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

Document ID : KB000103305
Last Modified Date : 27/06/2018
Show Technical Document Details
Question:
How to customize CA JCLCheck for the Control M  interface when there are multiple DAPARM files?
Answer:
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

  
                                                                  
Additional Information:
As always, contact CA Technologies support for CA JCLCheck if you have further questions.