Author: Sumeendar
Subject: Execessive parameter issue
Posted: Mon Dec 19, 2016 4:35 pm (GMT 5.5)
I am getting following error message for line number 5
My objective is to get paramters values and using GENCARD utility program write these values to a ps file.
can any one throw the light on what could be the reason for the above error
JCL Snippet is below
Subject: Execessive parameter issue
Posted: Mon Dec 19, 2016 4:35 pm (GMT 5.5)
I am getting following error message for line number 5
| Code: |
| 5 IEFC640I EXCESSIVE NUMBER OF POSITIONAL PARAMETERS IN THE VALUE FIELD |
My objective is to get paramters values and using GENCARD utility program write these values to a ps file.
can any one throw the light on what could be the reason for the above error
JCL Snippet is below
| Code: |
| 3 // SET UID='I90113', // RTERR=Y, USE REPORTED TERRITORY // TBLC=Y, TERR BASE LOSS COST CALL // PCF=Y, PRIMARY CLASS FACTOR CALL // SCF=Y, SEC CLASS FACTOR CALL // DAMF=Y, DISCOUNT ADD/MULT CALL // ST=01, ALABAMA // TOB=V, TYPE OF BUSINESS // REVNUM=0037, REVIEW NUMBER // MOD=01, MODULE NUMBER // RVWTYP='S', REVIEW TYPE // INCSEL='NPYY', INCLUSION SELECTION FLAGS // SCAM='B' 4 //S1 EXEC TESTPROC 5 XXTESTPROC PROC TESTPROC, XX ARG1=&RTERR.&TBLC.&PCF.&SCF.&DAMF., XX ARG2=&ST.&TOB.&REVNUM.&MOD.&RVWTYP.&INCSEL.&SCAM. XX******************************************************************* XX* SGEN - GENERATE ARGUMENT VALUES * XX******************************************************************* IEFC653I SUBSTITUTION JCL - TESTPROC,ARG1=YYYYY,ARG2=01V003701SNPYYB 6 XX SET PARM3=&ARG1.&ARG2 IEFC653I SUBSTITUTION JCL - PARM3=YYYYY01V003701SNPYYB 7 XXSGEN EXEC PGM=GENCARD, XX PARM=('D=*',,,'&PARM3') IEFC653I SUBSTITUTION JCL - PGM=GENCARD,PARM=('D=*',,,'YYYYY01V003701SNPYYB' 8 //SGEN.PASSME DD SYSOUT=* X/PASSME DD DSN=&&PARMPASS, X/ DISP=(NEW,PASS,DELETE), X/ DCB=(LRECL=80,BLKSIZE=800,RECFM=FB), X/ UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE) 9 XX |