please help me in resolving PL\1 run time error maxcc=20

roopannamdhari

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,

Gnanas SNG · Posted: Fri Mar 28, 2008 2:25 pm Post subject:

Please change the source line of this,

roopannamdhari · Posted: Fri Mar 28, 2008 2:45 pm Post subject:

i am new to PL/1 .its taking implicit declaration for input_record so it was not giving complilation error ....

thanks a lot... gnanas