IBM Mainframe Forum

Hi,

I am having a group variable which I am displaying in the sysprint. But one of the sub variable is having an edit mask which is not taking the mask format when printed. Instead it is displayed as packed decimal. Is there any way I can print the value as per the edit mask ?

Thanks,
Ram.

Hello and welcome to the forum,

Suggest you discontinue using the group field and try using the individual fields.

If this doesn't work, you might post the definitions in question and the code that uses the definitions.

the reqmt is to get the numberic edited field ( DIFFRPT-EQUITY) in the output file.

File definition :

FILE DIFFRPT F 133
DIFFRPT-REC 1 133 A
DIFFRPT-F1 1 10 A
DIFFRPT-OFF 12 5 N
DIFFRPT-F2 20 10 A
DIFFRPT-CUST 32 5 N
DIFFRPT-F3 40 10 A
DIFFRPT-ACCT-TYPE 52 2 A
DIFFRPT-F4 55 10 A
DIFFRPT-EQUITY 70 11 N 2 MASK('ZZZ,ZZZ,ZZ9.99')
DIFFRPT-FILL1 1 10 A
DIFFRPT-FIELD 11 20 A
DIFFRPT-FILL2 31 15 A
DIFFRPT-FILE1 46 15 A
DIFFRPT-FILL3 61 15 A
DIFFRPT-FILE2 76 15 A


I am trying to display the entire record in SYSPRINT so that I can create a file from that later.

Hello,

Somewhere in the code is there a PUT DIFFRPT?

Before this is there a statement that moves a value to DIFFRPT-EQUITY?

You may need to move the edited field to a working field, redefine it as alpha, and move the redefined alpha field to the output record.

I don't have a way to test this just now, or would have done a little experiment.

i am moving ( BAL1-EQUITY 9 6 P 2 )from input file to DIFFRPT-EQUITY after which the DIFFRPT-REC is written.

What should be the definiition of working storage field which can hold numeric edited data ?