Using reference modification on COMP-3 variable

manikandanjs · Posted: Fri Jun 08, 2007 10:42 am

Hi,

The numeric value is stored in COMP-3 format in the file. we are facing problem in retreiving the value using reference modification. for example,

consider a file as below,

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

Hi,

Reference modification works only with data items whose usage is DISPLAY.

Vidusha

manikandanjs · Posted: Fri Jun 08, 2007 11:28 am

Hi,

Is there any way to convert the reference modified Hex value to a decimal value (without using redifine or decleration).

Thanks,
Loganathan K

Raphael Bacay · Posted: Fri Jun 08, 2007 11:51 am

Hello,

It is not possible to retrieve it using reference modification because reference modification only works for alpahnumeric fields. You can try to move the whole thing into a PIC 9(n) then into a PIC X(n) (to avoid reference modification) then do reference modification on the PIC X(n) field.

Regards.

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

Can you provide the layout of the file
If you have 7th and 8th position declared as COMP-3, then why do you want to use Reference modification
What yo want to achieve by using reference modification?

Vidusha

manikandanjs · Posted: Fri Jun 08, 2007 2:36 pm

hi,

my file size is 24000 bytes. In the middile some of the nemeric values are stored in COMP. To create an automation process of report we step into the reference modification approach were the user can give the starting position and length of the field in the PARM. With that details we tried to retreive the COMP value, but it is giving problem. Let me know if there is any query.

Thanks,
Manikandan J

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

You cannot just convert comp-3 to displayable data using reference modification
You either need to move them to display usage item or
use redefinition

Vidusha

William Thompson · Posted: Fri Jun 08, 2007 4:10 pm

Just use RM against the 01 level of the record.

manikandanjs · Posted: Fri Jun 08, 2007 4:38 pm

Hi William,

I'm not getting what is meant by RM. Could you please give an example for the same?

Thanks,
Manikandan J

William Thompson · Posted: Fri Jun 08, 2007 4:51 pm

Reference Modification..........

Craq Giegerich · Posted: Fri Jun 08, 2007 5:56 pm

First you say comp-3 then comp, which is it, they are completely different formats.

For comp-3.

dick scherrer · Posted: Fri Jun 08, 2007 9:52 pm

Hello,

If you have a 24000 byte record, i suspect there is a copybook for it. Why not use the field-name in the copybook? IMHO, it is a rather terrible approach using reference modification for a 24000 byte record. . . Mercy, what will happen when the field at byte 1000 has a length increase of 2 - it will make all of the displacements beyond that invalid.

If you post what you actually want to accomplish (rather than asking how to use reference modification for this packed/binary data), we may be able to help.