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
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
Additional Information:
As always, contact CA Technologies support for CA JCLCheck if you have further questions.