JCL step execution based on sym parm value defined at job le
Posted: Thu Aug 28, 2014 5:01 pmHi All,
I have a requirement to execute a particular step based on the value provided in symbolic parameter
We have assigned value for the symbolic parm PRODTEST as mentioned below
Based on the parm value mentioned above (it can be either as T or P), we are supposed to execute one or the other JCL step like mentioned below.
But i m getting JCL error like this. Please help me resolve this error
STMT NO. MESSAGE
47 IEFC013I ERROR IN IF STATEMENT: T NOT VALID
54 IEFC013I ERROR IN IF STATEMENT: T NOT VALID
This is how JCL substitution is happening in JESJCL
I have a requirement to execute a particular step based on the value provided in symbolic parameter
We have assigned value for the symbolic parm PRODTEST as mentioned below
//XXXXXXXX JOB (x,xxx,xxxx),CLASS=A,MSGCLASS=T,REGION=0M,NOTIFY=&SYSUID
// SET PRODTEST=T ----> symbolic parm
// SET PRODTEST=T ----> symbolic parm
Based on the parm value mentioned above (it can be either as T or P), we are supposed to execute one or the other JCL step like mentioned below.
But i m getting JCL error like this. Please help me resolve this error
STMT NO. MESSAGE
47 IEFC013I ERROR IN IF STATEMENT: T NOT VALID
54 IEFC013I ERROR IN IF STATEMENT: T NOT VALID
// IF (&PRODTEST = 'P') THEN
//SUBMIT1 EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=XXXXX.XXX.DONTUIM.JCLS(PRODUIM)
//SYSUT2 DD SYSOUT=(B,INTRDR)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
// ENDIF
// IF (&PRODTEST = 'T') THEN
//SUBMIT2 EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=XXXXX.XXX.DONTUIM.JCLS(TESTUIM)
//SYSUT2 DD SYSOUT=(B,INTRDR)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
// ENDIF
//SUBMIT1 EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=XXXXX.XXX.DONTUIM.JCLS(PRODUIM)
//SYSUT2 DD SYSOUT=(B,INTRDR)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
// ENDIF
// IF (&PRODTEST = 'T') THEN
//SUBMIT2 EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=XXXXX.XXX.DONTUIM.JCLS(TESTUIM)
//SYSUT2 DD SYSOUT=(B,INTRDR)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
// ENDIF
This is how JCL substitution is happening in JESJCL
47 // IF (&PRODTEST = P) THEN
IEFC653I SUBSTITUTION JCL - (T = P)
48 //SUBMIT1 EXEC PGM=IEBGENER
49 //SYSUT1 DD DISP=SHR,DSN=XXXXXX.XXXX.DONTUIM.JCLS(PRODUIM)
50 //SYSUT2 DD SYSOUT=(B,INTRDR)
51 //SYSPRINT DD DUMMY
52 //SYSIN DD DUMMY
53 // ENDIF
54 // IF (&PRODTEST = T) THEN
IEFC653I SUBSTITUTION JCL - (T = T)
55 //SUBMIT2 EXEC PGM=IEBGENER
IEFC653I SUBSTITUTION JCL - (T = P)
48 //SUBMIT1 EXEC PGM=IEBGENER
49 //SYSUT1 DD DISP=SHR,DSN=XXXXXX.XXXX.DONTUIM.JCLS(PRODUIM)
50 //SYSUT2 DD SYSOUT=(B,INTRDR)
51 //SYSPRINT DD DUMMY
52 //SYSIN DD DUMMY
53 // ENDIF
54 // IF (&PRODTEST = T) THEN
IEFC653I SUBSTITUTION JCL - (T = T)
55 //SUBMIT2 EXEC PGM=IEBGENER