IBM Mainframe Forum

by **20sam13** » Sat Mar 02, 2013 1:28 am

I am trying to modify my JCL driver member to use one or the other //STEPLIB concatenations for a called Proc member. The JCL JOBCARD looks like:

Select all

//I5701A3Z JOB ('RP','00','MM'),'INST RPS PP TC01',
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// CLASS=2,
//**! TYPRUN=SCAN,
// NOTIFY=&SYSUID
//*
// SET TEST=1 //1=SIT, 0=PROD

I then use this symbolic down below in the JCL, following the Proc member EXEC statement to switch between the //STEPLIB override concatenation.

Sadly... when I EJCK the JCL, I get the message (CAY6339E STATEMENT MISPLACED WITHIN AN IF-THEN-ELSE CLAUSE) on each of the DD statements for the procstep override statement.... My goal is to not have to //*comment each line and then uncomment each line depending on which platform of the COBOL module I am testing.

Select all

//IFPROD IF (&TEST = 1) THEN
//STPR0040.STEPLIB DD DSN=PROD.OMP.BATCH.LOADLIB,DISP=SHR
// DD DSN=PROD.OM.BATCH.LOADLIB,DISP=SHR
// DD DSN=DB2.ALIAS.PROD.DSNLOAD,DISP=SHR
// INCLUDE MEMBER=RPSLIBS
//IFPROD ELSE
//*
//**** SIT STEPLIB
//*
//STPR0040.STEPLIB DD DSN=ISEN.S.SIT.BATCH.LOADLIB,DISP=SHR
// DD DSN=ISEN.P.PROD.BATCH.LOADLIB,DISP=SHR
// DD DSN=PROD.OMP.BATCH.LOADLIB,DISP=SHR
// DD DSN=ISEN.S.SIT.OMP.BATCH.LOADLIB,DISP=SHR
// DD DSN=ISEN.U.UAT.OMP.BATCH.LOADLIB,DISP=SHR
// DD DSN=PROD.OMP.CICS.LOADLIB,DISP=SHR
// DD DSN=TDB2D2DS.DB2.SDSNEXIT,DISP=SHR
// DD DSN=TDB2D2DS.DB2.SDSNLOAD,DISP=SHR
// INCLUDE MEMBER=RPSLIBS
//ENDPROD ENDIF

Thanks everyone!
-Scott

by **enrico-sorichetti** » Sat Mar 02, 2013 1:53 am

review the jcl guide and the jcl reference manuals
for the format of the IF statement

by **20sam13** » Sat Mar 02, 2013 2:02 am

Enrico,

Could you please be a little more helpful than just pointing me to a manual?

I looked at the manual, ran thru the exampled (none of which meet my criteria), plus I tried to google for the error code EJCK is returning and nothing can be found.

Additional assistance would be much appreciated for an experienced MF developer/coder who was outsourced over 6 years ago and just now returned to being a QA/Tester and has honestly forgotten more than I ever used.

by **Robert Sample** » Sat Mar 02, 2013 2:06 am

JCL does not have control structures like normal programming languages. In particular, as Enrico alluded, you have attempted to use a keyword on the IF statement that is not supported. What you have coded will not work as it is not valid JCL -- period. From the manual:

17.1.4.5 Relational-Expression Keywords

The following keywords are the only keywords supported by IBM and recommended for use in relational-expressions. Any other keywords, even if accepted by the system, are not intended or supported keywords.

Keyword Use

RC
indicates a return code
ABEND
indicates an abend condition occurred
¬ABEND
indicates no abend condition occurred
ABENDCC
indicates a system or user completion code
RUN
indicates that the specified step started execution
¬RUN
indicates that the specified step did not start execution

Since &TEST is not RC nor ABEND nor any of the other 4 supported keywords, your IF statement is not considered valid JCL.

by **20sam13** » Sat Mar 02, 2013 2:16 am

Thanks Robert,

I read thru that, but I could swear when I worked for the Marine Corps., I was able to code "conditional IFs" that used &symbolics to skip some steps and not others. It required some "work" to find the right pattern for the condition; but it would only work when comparing to a numeric, no alphas (i.e. &TEST="PROD"). Certainly, it would not have been a different JCL version I was using? Although, the same system also provided the Roscoe Editor w/ISPF and RPF (its version of a Rexx Exec/Clist) language.

Oh well... any other suggestions so I don't have to un/comment the stpr0040.steplib statements depending on what version I want to test?

Thanks Robert!

by **Akatsukami** » Sat Mar 02, 2013 2:35 am

20sam13 wrote:Certainly, it would not have been a different JCL version I was using?

Might could be. Or not. I don't know of anyone who has modified the base JCL interpreter, but someone might have; the JES2 JECL interpreter has been modified (Mellon Bank modifications). To the left, note this sentence that Mr. Sample quoted:

Any other keywords, even if accepted by the system, are not intended or supported keywords

IOW, you might find an interpreter that will do what you want, but there is no guarantee that it will continue to do so, and complaints to IBM will meet with the response, "Too bad, so sad".

by **Robert Sample** » Sat Mar 02, 2013 2:56 am

You may have been dealing with something from a job scheduler. CA-7, for example, has SCC (step condition code) processing as well as CA-DRIVR statements for conditionally including JCL statements from a library; neither of these will work outside a CA-7 scheduling environment.

by **20sam13** » Sat Mar 02, 2013 2:59 am

Oh well... can't fault a person for trying...

So, here is another approach, will it work?

Top of JCL, like this one: SET PROD=//*
SET TEST=

Under the EXEC PROCNAME & all of its &Symbolics, can a person code:

&PROD..//STPR0040.STEPLIB DD DSN=PRODLIB,DISP=SHR
&PROD..// DD DSN=PRODLIB2,DISP=SHR
&PROD..// DD DSN=PRODLIB3,DISP=SHR

Submit JCL and end up having the override look like the following in the PROC MEMBER @ //STPR0040:

//*//STPR0040.STEPLIB DSN=PRODLIB,DISP=SHR
//*// DD DSN=PRODLIB2,DISP=SHR
//*// DD DSN=PRODLIB3,DISP=SHR

In essence, commenting out the STEPLIB for that PROCSTEP and allowing the other JCLLIB MEMBER //STPR0040.STEPLIB override into the step and use its concatenation?

by **20sam13** » Sat Mar 02, 2013 3:03 am

Hmmm... if I was using the CA7 scheduler abilities / functionality, I did not recognize it. As I was just coding these &Symbolics in the JCLLIB and not submitting using the CA7 scheduler...

*POOF* now I also recall another BIG piece of the puzzle from the Marine Corps., my proc was enclosed within the JCLLIB using the //PROC and //PEND. Which I may have coded the IF-THEN-ELSE-ENDIF directly down at the step I wanted to flip-flop between a test load concat and a prod load concat.

1 fewer brain cells left.... hope I remember where I parked my car today.

by **enrico-sorichetti** » Sat Mar 02, 2013 3:20 am

Could you please be a little more helpful than just pointing me to a manual?

pretty stupid remark :geek:

anyway here is a hint
obviously s1 and s2 are proclib members containing the proper steplib concatenation
output statements 6 an 10 show that the steplib was changed according to the include directive

the job

Select all

****** ***************************** Top of Data ******************************
000001 //ENRICO1 JOB (ACCT#),'ZZ1',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000004 // JCLLIB ORDER=(ENRICO.TEST.PROCLIB)
000005 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000006 //*
000007 // SET ZSTEP=S1
000008 //GO EXEC PGM=S1X14
000009 // INCLUDE MEMBER=&ZSTEP
000010 // SET ZSTEP=S2
000011 //GO EXEC PGM=S2X14
000012 // INCLUDE MEMBER=&ZSTEP
****** **************************** Bottom of Data ****************************

the result

Select all

1 J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N O D E N 1
0
23.46.56 JOB01761 ---- FRIDAY, 01 MAR 2013 ----
23.46.56 JOB01761 IRR010I USERID ENRICO IS ASSIGNED TO THIS JOB.
23.46.56 JOB01761 ICH70001I ENRICO LAST ACCESS AT 23:37:59 ON FRIDAY, MARCH 1, 2013
23.46.56 JOB01761 $HASP373 ENRICO1 STARTED - INIT 1 - CLASS A - SYS SYS1
23.46.56 JOB01761 IEF403I ENRICO1 - STARTED - TIME=23.46.56
23.46.56 JOB01761 HTRT01I CPU (Total) Elapsed CPU (TCB) CPU (SRB) Service
23.46.56 JOB01761 HTRT02I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th Units
23.46.56 JOB01761 HTRT03I ENRICO1 GO 00 11 00.01 00.08 00.01 00.00 477
23.46.57 JOB01761 HTRT03I ENRICO1 GO 00 11 00.02 00.10 00.02 00.00 844
23.46.57 JOB01761 IEF404I ENRICO1 - ENDED - TIME=23.46.57
23.46.57 JOB01761 HTRT06I
23.46.57 JOB01761 HTRT04I ENRICO1 Job Service Totals 22 00.03 00.21 00.03 00.00 1321
23.46.57 JOB01761 $HASP395 ENRICO1 ENDED
0------ JES2 JOB STATISTICS ------
- 01 MAR 2013 JOB EXECUTION DATE
- 12 CARDS READ
- 108 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 8 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
!! END OF JES SPOOL FILE !!
1 //ENRICO1 JOB (ACCT#),'ZZ1',NOTIFY=ENRICO, JOB01761
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2 // JCLLIB ORDER=(ENRICO.TEST.PROCLIB)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*
3 // SET ZSTEP=S1
4 //GO EXEC PGM=S1X14
5 // INCLUDE MEMBER=&ZSTEP
IEFC653I SUBSTITUTION JCL - MEMBER=S1
6 XXSTEPLIB DD DISP=SHR,DSN=ENRICO.TEST.LOAD
7 // SET ZSTEP=S2
8 //GO EXEC PGM=S2X14
9 // INCLUDE MEMBER=&ZSTEP
IEFC653I SUBSTITUTION JCL - MEMBER=S2
10 XXSTEPLIB DD DISP=SHR,DSN=ENRICO.TEST.PLILOAD
!! END OF JES SPOOL FILE !!
STMT NO. MESSAGE
5 IEFC002I INCLUDE GROUP S1 WAS EXPANDED USING PRIVATE LIBRARY ENRICO.TEST.PROCLIB
9 IEFC002I INCLUDE GROUP S2 WAS EXPANDED USING PRIVATE LIBRARY ENRICO.TEST.PROCLIB
ICH70001I ENRICO LAST ACCESS AT 23:37:59 ON FRIDAY, MARCH 1, 2013
IEF236I ALLOC. FOR ENRICO1 GO
IEF237I 0AB4 ALLOCATED TO STEPLIB
IEF142I ENRICO1 GO - STEP WAS EXECUTED - COND CODE 0000
IEF285I ENRICO.TEST.LOAD KEPT
IEF285I VOL SER NOS= STOR04.
HTRT05I ------------------------------------------------------------------------
- Step Termination Statistics -
- -
- Program Name S1X14 hh:mm:ss.th -
- Step Name GO Elapsed Time 00.08 -
- Procedure Step TCB CPU Time 00.01 -
- Return Code 00 SRB CPU Time 00.00 -
- Total I/O 11 Total CPU Time 00.01 -
- Service Units 477 -
- -
- Region Size 1024K Pages Paged 0 -
- Data/Hiperspace 0M Pages Swapped 0 -
- ASID Swaps 0 Pages Stolen 0 -
- VIO (In and Out) 0 -
- -
- --------Below 16Meg-------- --------Above 16Meg-------- -
- Private Area 9192K Private Area 1801216K -
- Max Allocated 8K Max Allocated 0K -
- LSQA And SWA 248K LSQA And SWA 10716K -
- -
- DDName Unit Blksize I/O -
- STEPLIB 0AB4 27998 1 -
- *System* 10 -
- -
------------------------------------------------------------------------
IEF373I STEP/GO /START 2013060.2346
IEF374I STEP/GO /STOP 2013060.2346 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 8K SYS 248K EXT 0K SYS 10716K
IEF236I ALLOC. FOR ENRICO1 GO
IEF237I 0AB4 ALLOCATED TO STEPLIB
IEF142I ENRICO1 GO - STEP WAS EXECUTED - COND CODE 0000
IEF285I ENRICO.TEST.PLILOAD KEPT
IEF285I VOL SER NOS= STOR04.
HTRT05I ------------------------------------------------------------------------
- Step Termination Statistics -
- -
- Program Name S2X14 hh:mm:ss.th -
- Step Name GO Elapsed Time 00.10 -
- Procedure Step TCB CPU Time 00.02 -
- Return Code 00 SRB CPU Time 00.00 -
- Total I/O 11 Total CPU Time 00.02 -
- Service Units 844 -
- -
- Region Size 1024K Pages Paged 0 -
- Data/Hiperspace 0M Pages Swapped 0 -
- ASID Swaps 0 Pages Stolen 0 -
- VIO (In and Out) 0 -
- -
- --------Below 16Meg-------- --------Above 16Meg-------- -
- Private Area 9192K Private Area 1801216K -
- Max Allocated 8K Max Allocated 0K -
- LSQA And SWA 248K LSQA And SWA 10852K -
- -
- DDName Unit Blksize I/O -
- STEPLIB 0AB4 27998 4 -
- *System* 7 -
- -
------------------------------------------------------------------------
IEF373I STEP/GO /START 2013060.2346
IEF374I STEP/GO /STOP 2013060.2346 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 8K SYS 248K EXT 0K SYS 10852K
IEF375I JOB/ENRICO1 /START 2013060.2346
IEF376I JOB/ENRICO1 /STOP 2013060.2346 CPU 0MIN 00.03SEC SRB 0MIN 00.00SEC
!! END OF JES SPOOL FILE !!

IBM Mainframe Forum

JCL IF to override //STEPLIB in a Proc

JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc

Re: JCL IF to override //STEPLIB in a Proc