How to customize CA JCLCHECK when CONTROL-M has multiple DAPARM files?

Products

• JCLCheck Workload Automation

Issue/Introduction

How to customize CA JCLCheck for the Control M  interface when there are multiple DAPARM files?

Environment

Release:
Component: JCLCHK

Resolution

Using  EJCK  with Control-M. 

1.  Change the EJCK clist, hlq.CAZ2CLS0 member EJCK by adding CTMPRM2 variable in the ALLOCATE SPECIAL CTM FILES section.  The new format will look like below.

/* ****************** ALLOCATE SPECIAL CTM FILES ****************** */ 
IF &JK@RES = CTM THEN DO                                  /* TACH237   
   FREE FI(SYSPRINT)                                       /* TACH237  
   ISPEXEC SELECT CMD(%JCKUSRCM)                          /* TACH237   
   ISPEXEC VGET (CTMALOC CTMPARM CTMPRM2 CTMPREN RESRECD) /* TACH237   
   IF &STR(&CTMALOC) ¬=    THEN +                                      
      ALLOC FI(DAALOCIN) DA('&CTMALOC')  REUSE SHR        /* TACH237   
   IF &STR(&CTMPARM)  ¬=   THEN +                                      
      ALLOC FI(DAPARM) DA('&CTMPARM' '&CTMPRM2')    REUSE SHR /* TACH237
   IF &STR(&CTMPREN) ¬=   THEN +                                        
      ALLOC FI(DAPRENV) DA('&CTMPREN')   REUSE SHR        /* TACH237   
   IF &STR(&RESRECD) ¬=   THEN +                                       
      ALLOC FI(RECORD) DA('&RESRECD')    REUSE SHR        /* TACH237   
END                                                       /* TACH237   
 
2.  Change the member JCKUSRCM from hlq.CAZ2CLS0 to add the CTMPRM2 variable.

Change the statement:  
GLOBAL CTMALOC CTMPARM CTMPREN RESRECD        
to
GLOBAL CTMALOC CTMPARM CTMPRM2 CTMPREN RESRECD  

Change the statements:
/*************************************************/
/*  DAPARM   file                                */
/*************************************************/
  SET &CTMPARM = &STR()                            
/*************************************************/
to
/*************************************************/ 
/*  DAPARM   file                                */ 
/*************************************************/ 
  SET &CTMPARM = &STR(your.ctm.parm)              
  SET &CTMPRM2 = &STR(your.ctm.parm2)  

Change the statements:
ISPEXEC VPUT (CTMALOC CTMPARM CTMPREN RESRECD) 
to
ISPEXEC VPUT (CTMALOC CTMPARM CTMPRM2 CTMPREN RESRECD)          
     

Using CA JCLCheck ISPF Invocation with Control-M. 

1.  Change the member JCKUSRCM from hlq.CAZ2CLS0 to add the CTMPRM2 variable.  See above for procedure item 2.

2.  Change the member JCKSKLCM from hlq.CAZ2SKL0 to add the CTMPRM2 concatenation to the skeleton JCL.
Add the concatenation to the DAPARM dd as seen below: 
    
)SEL &CTMPARM ¬= &Z                  
//DAPARM   DD   DSN=&CTMPARM,DISP=SHR
//         DD   DSN=&CTMPRM2,DISP=SHR

3.  Change the member JCKSPFCM from hlq.CAZ2CLS0 to add the CTMPRM2 variable.

Change the statement 
ISPEXEC VGET (CTMALOC CTMPARM CTMPREN RESRECD)  /* TACH237
to
ISPEXEC VGET (CTMALOC CTMPARM CTMPREN CTMPRM2 RESRECD)  /* TACH237

Change the statement 
   ALLOC FI(DAPARM) DA('&CTMPARM')   REUSE SHR  /* TACH237 
to
   ALLOC FI(DAPARM) DA('&CTMPARM' '&CTMPRM2') REUSE SHR