Would like to pass variables to jobs submitted by CA Workload Automation ESP Edition. These variables should be resolved when jobs are submitted.
Release : 12.0
Component : CA ESP WORKLOAD AUTOMATION
Passing multiple variables to JCL.
Below is a procedure that can be used for this request. You want to use your naming standards for DS names.
1) CREATE MEMBER IN SYMLIB SYS2.ESP.SYMLIB(PARM):
PARM1 = 'RCB.BBB.COHRT(0)'
PARM2 = 'RCB_BBB_COHRT.TXT'
2) CREATE APPLICATION INVOKING SYMLIB:
APPL TESTVAR3
JCLLIB 'SYS2.ESP.JCLLIB'
COPYJCL 'SYS2.ESP.COPYJCL'
INVOKE 'SYS2.ESP.SYMLIB(PARM)'
JOB BABRIVAR
RUN DAILY
ENDJOB
3) JCL OF JOB USING %PARM1 and %PARM2 VARIBLES:
//STEP1 EXEC FTPWEB,PARM='(EXIT'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//DASA DD DSN=%PARM1,DISP=SHR
//INPUT DD DSN=YYY.XXX.MAINT.CNTL(SSISSIGN),DISP=SHR
// DD DDNAME=SYSIN
//OUTPUT DD SYSOUT=*
//SYSIN DD *
BINARY
SENDSITE
PUT //DD:DASA \OUT\UDPMF\%PARM2
QUIT
4) RESOLVED JCL IN SIMULATION:
//ENCORE EXEC X120ENC
//ENCPARMS DD *
/* -- ADDITIONAL STATEMENTS INSERTED BY ESP -- */
SUBSYS X120 ESPGROUP(X120GRP)
//STEP1 EXEC FTPWEB,PARM='(EXIT'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//DASA DD DSN=RCB.BBB.COHRT(0),DISP=SHR
//INPUT DD DSN=YYY.XXX.MAINT.CNTL(SSISSIGN),DISP=SHR
// DD DDNAME=SYSIN
//OUTPUT DD SYSOUT=*
//SYSIN DD *
BINARY
SENDSITE
PUT //DD:DASA \OUT\UDPMF\RCB_BBB_COHRT.TXT
QUIT