|
|
| Author |
Message |
roopannamdhari
Warnings : 1
New User
Joined: 14 Sep 2006
Posts: 35
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 |
|
 |
References
|
 Posted: Fri Mar 28, 2008 12:31 pm Post subject: Re: please help me in resolving PL\1 run time error maxcc=20 |
|
|
|
|
Gnanas SNG
Senior Member
Joined: 06 Sep 2007
Posts: 414
Location: 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: 35
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 |
|
|
|
|
