View previous topic :: View next topic
|
Author |
Message |
roopannamdhari Warnings : 1 New User
Joined: 14 Sep 2006 Posts: 71 Location: Bangalore
|
|
|
|
Hi,
while running below PL\1 pgm i am getting run time error can any body hepl me out in resolving this error.
PGM:
[img]SEQREAD:PROCEDURE OPTIONS(MAIN);
DCL INPUT1 FILE INPUT RECORD ENV(F RECSIZE(80));
DCL INPUT_REC CHAR(80);
DCL INPUT_COUNT DECIMAL (10) INIT(0);
OPEN FILE(INPUT1);
ON ENDFILE(INPUT1) GO TO EOJ;
READ FILE(INPUT1) INTO(INPUT_RECORD);
PUT LIST (INPUT_RECORD);
EOJ: CLOSE FILE(INPUT1);
PUT LIST('INPUT-RECORD COUNT==>', INPUT_COUNT);
END SEQREAD; [/img]
Runjcl:
[img]//job card
//STEP1 EXEC PGM=SEQREAD
//STEPLIB DD DSN=LOADMODULE-DATASET-NAME,DISP=SHR
//INPUT1 DD DSN=INPUT-FILE(REC LENGTH=80,REC FORMATE=F),DISP=SHR
//SYSPRINT DD SYSOUT=* [/img]
Error mes:
[img]
IBM121I 'ONCODE'=0001 'RECORD' CONDITION RAISED
LENGTH OF RECORD VARIABLE LESS THAN RECORD LENGTH ('ONFILE'= INPUT1)
AT OFFSET +0000CC IN PROCEDURE WITH ENTRY SEQREAD [/img]
Thank in advance, |
|
Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007 Posts: 792 Location: Chennai, India
|
|
|
|
Please change the source line of this,
Code: |
READ FILE(INPUT1) INTO(INPUT_RECORD); |
as
Code: |
READ FILE(INPUT1) INTO(INPUT_REC); |
Please use code tag for better readability... |
|
Back to top |
|
|
roopannamdhari Warnings : 1 New User
Joined: 14 Sep 2006 Posts: 71 Location: Bangalore
|
|
|
|
i am new to PL/1 .its taking implicit declaration for input_record so it was not giving complilation error ....
thanks a lot... gnanas |
|
Back to top |
|
|
|