View previous topic :: View next topic
|
Author |
Message |
Sumeendar
New User
Joined: 31 Jan 2006 Posts: 39
|
|
|
|
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 |
|
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
You seem to be defining TESTPROC recursively. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
No - that is a straight cut'n'paste from SDSF. I get the same result. Looking into it. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Code: |
5 XXTESTPROC PROC TESTPROC,
XX ARG1=&RTERR.&TBLC.&PCF.&SCF.&DAMF.,
XX ARG2=&ST.&TOB.&REVNUM.&MOD.&RVWTYP.&INCSEL.&SCAM. |
TESTPROC is defined as a positional parameter for PROC TESTPROC. Redo it as
Code: |
5 XXTESTPROC PROC ARG1=&RTERR.&TBLC.&PCF.&SCF.&DAMF.,
XX ARG2=&ST.&TOB.&REVNUM.&MOD.&RVWTYP.&INCSEL.&SCAM. |
and see if you get better results. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
Works for me |
|
Back to top |
|
|
Sumeendar
New User
Joined: 31 Jan 2006 Posts: 39
|
|
|
|
Thank u. It worked now |
|
Back to top |
|
|
|
|