How to read numeric value from seq file to a PIC 9(3) COMP-3

gaps030980 · New User Joined: 27 Sep 2005 Posts: 8 Location: Gurgaon

Seq file:-
****************************************************
1234
******************end of file**************************
Cobol prog:-
in Copybook

10 VAR-1 PIC 9(4) USAGE COMP-3
.
.
.

I want to create a seq file and populate value 1234 in it and I need to read it into my cobol prog in field defined as PIC 9(4) USAGE COMP-3.

Is it possible? The value in the seq file is NOT in packed decimal form.

dick scherrer · Posted: Sun Aug 24, 2008 9:21 am

Hello,

Yes, just define the field in the file as pic 9(4). If the data might be signed, use s9(4) for the definition.

In your program, move the file field to the working storage field.

If there is a chance the field in the file might not be numeric, you should test for numeric otherwise there will be problems later.

Arun Raj · Posted: Sun Aug 24, 2008 9:33 am

Kushal,

Are you trying to set up data according to your cobol copybook?
If you have fileaid, open the file using the layout and enter values. It will get saved in the format defined in the layout.

Thanks,
Arun

gaps030980 · New User Joined: 27 Sep 2005 Posts: 8 Location: Gurgaon