MQSeries.net :: View topic - MRM

Christian_B · Posted: Fri Feb 07, 2003 7:00 am Post subject: MRM - COBOL Definition

Hello everyone,
we have the problem to define a field in MRM, which is a number in the mainframe format „packed without sign“ (which is a common format in old Cobol programs on MVS), meaning that the field is defined as PIC X in COBOL, but contains two digits in each byte, just as a packed-decimal field, where the last byte hasn’t a digit and the sign but two digits.
Example:
COBOL defninition: PIC XXX
Content: 326478
Byte structure: 32|64|78 (1. byte: 32, 2. byte: 64, 3. byte: 7

(The packed decimal definition would be 4 bytes: 03|26|47|8C).

The problem is to map the field into a string containing the right number.

Has anybody struggled with this problem before and can tell me how to do the MRM definitions?

Regards
Christian