Using variables in JCL submitted by CA Workload Automation ESP Edition.
search cancel

Using variables in JCL submitted by CA Workload Automation ESP Edition.

book

Article ID: 218456

calendar_today

Updated On:

Products

ESP Workload Automation

Issue/Introduction

Would like to pass variables to jobs submitted by CA Workload Automation ESP Edition. These variables should be resolved when jobs are submitted.

Environment

Release : 12.0

Component : CA ESP WORKLOAD AUTOMATION

Cause

Passing multiple variables to JCL.

Resolution

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                                  

Additional Information