S001 abend in reading/writing a file using structures.

rohitcognizant

I have to declare 4 structures , populate them by reading from a file and write them into a file.
I have tried the following method.
I get a system abend S001 when i run this.
Please do help me out.

PGM9:PROC OPTIONS(MAIN);
DCL SORT1 FILE INPUT RECORD;
DCL SORT FILE UPDATE RECORD;

DCL 1 STRUCT1,
2 NUM1 PIC '999' INIT(123),
2 UNSD1 CHAR(77);
DCL 1 STRUCT2,
2 NUM1 PIC '999' INIT(456),
2 UNSD1 CHAR(77);
DCL 1 STRUCT3,
2 NUM1 PIC '999' INIT(789),
2 UNSD1 CHAR(77);
DCL 1 STRUCT4,
2 NUM1 PIC '999' INIT(000),
2 UNSD1 CHAR(77);

OPEN FILE(SORT1);
OPEN FILE(SORT);

READ FILE(SORT1) INTO(STRUCT1);
PUT SKIP LIST(STRUCT1);
WRITE FILE(SORT) FROM(STRUCT1);
WRITE FILE(SORT) FROM(STRUCT2);
WRITE FILE(SORT) FROM(STRUCT3);
WRITE FILE(SORT) FROM(STRUCT4);*/

CLOSE FILE(SORT1);
CLOSE FILE(SORT);

END PGM9; [/img][/quote]

rohitcognizant

I tried to read from a file and populate it into the following structure and then write the same into a new file.
I get a system abend when i run this.
What could be the problem?
Is there anything wrong with the fixed dec declaration?

PGM9:PROC OPTIONS(MAIN);
DCL SORT1 FILE INPUT RECORD;
DCL SORT FILE UPDATE RECORD;

DCL 1 STRUCT1,
2 NUM1 fixed dec(3),
2 UNSD1 CHAR(77);

OPEN FILE(SORT1);
OPEN FILE(SORT);

READ FILE(SORT1) INTO(STRUCT1);
PUT SKIP LIST(STRUCT1);
WRITE FILE(SORT) FROM(STRUCT1);

CLOSE FILE(SORT1);
CLOSE FILE(SORT);

END PGM9;

dick scherrer · Posted: Thu Jun 14, 2007 11:50 pm Post subject:

Hello,

Please post the jcl from the abended run as well as the actual diagnostic info that will be in the jes output.

Bitneuker · Posted: Mon Jun 18, 2007 5:11 pm Post subject:

Why are you using structures if you simply want to copy the inputfile? Usually one programs:

Bitneuker · Posted: Mon Jun 18, 2007 5:13 pm Post subject:

And as Dick wrote: post all your info so we may find out which file is in failure; you've got 3 sort, sort1 and sysout.