Display the masked field in SYSPRINT



Unicenter CA-Easytrieve Plus Report Generator: CA's information retrieval and data management tool

Display the masked field in SYSPRINT

Postby mramvivek » Wed May 27, 2009 10:16 pm

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.
mramvivek
 
Posts: 3
Joined: Wed May 27, 2009 10:10 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Display the masked field in SYSPRINT

Postby dick scherrer » Thu May 28, 2009 1:05 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Display the masked field in SYSPRINT

Postby mramvivek » Thu May 28, 2009 1:16 am

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.
mramvivek
 
Posts: 3
Joined: Wed May 27, 2009 10:10 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Display the masked field in SYSPRINT

Postby dick scherrer » Thu May 28, 2009 1:25 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: Display the masked field in SYSPRINT

Postby mramvivek » Thu May 28, 2009 2:00 am

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 ?
mramvivek
 
Posts: 3
Joined: Wed May 27, 2009 10:10 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CA-Easytrieve

 


  • Related topics
    Replies
    Views
    Last post