You can replace the CICS® VR
supplied JCL skeleton DWWUJOB with one of your own ones that satisfies
your requirements.
CICS® VR 6.1 provides members DWWURJOB and DWWURIM in the
SDWWSENU/SDWWSJPN data set as a sample for JCL customization at ISPF recovery construction. To
use these samples, take the following actions:
Copy members DWWURJOB and DWWURIM from the SDWWSENU/SJPN data set and edit them
according to your requirements. Rename DWWURJOB to DWWUJOB.
Add your data set with the edited DWWURJOB and DWWURIM, to DWWSLIB concatenation in
DWWCLIST after the ISPFILE.
Make sure that your ISPFILE data set does not contain an old DWWUJOB.
Figure 1. DWWURJOB sample
)CM @BANNER_START 01
)CM Licensed Materials - Property of IBM
)CM
)CM 5655-GY1 DWWURJOB
)CM
)CM (C) Copyright IBM Corp. 2014
)CM (C) Copyright HCL Technologies Ltd. 2025
)CM
)CM @BANNER_END
)CM R71977 520 140127 ......... Customization
)CM ***********************************************************
)CM
)CM This is a sample to show how to modify the CICSVR JCL
)CM skeleton to satisfy your requirements.
)CM
)CM The imbedded skeleton DWWURIM adds the JOB statement
)CM and sets three variables:
)CM HLQ - high level qualifier for CICS VR libraries
)CM SUF - suffix for CICS VR libraries (optional)
)CM CICSEXCI - CICS SDFHEXCI data set name
)CM
)CM Uncomment STEPLIB DD if CICS VR libraries are not specified
)CM in LNKLST.
)CM Note: For running IVP, DWWEXLD data set must be specified
)CM in STEPLIB.
)CM ***********************************************************
)CM
)IM DWWURIM
)SEL &CUTIL NE BACKUP
//DWW PROC
//&CUTIL EXEC PGM=&CPROG,COND=(8,LE)
//STEPLIB DD DSN=&HLQ..SDWWLOAD&SUF,DISP=SHR
// DD DSN=&HLQ..SDWWLENU&SUF,DISP=SHR
//* DD DSN=&HLQ..DWWEXLD,DISP=SHR
//DWWMSG DD SYSOUT=*
//DWWPRINT DD SYSOUT=*
//DWWDUMP DD SYSOUT=*
// PEND
//* END OF PROC
)ENDSEL
Note:
DWWCONx DD statements must not be specified in this skeleton.
The CICS® VR recovery construction
uses the same RCDS names, which are specified in the DWWCLIST.
Variables &CUTIL and &CPROG are substituted by the CICS® VR recovery construction and
depend on the selected function.
For forward recovery, &CUTIL = FORWARD, &CPROG = DWWCO.
For reorganization, &CUTIL=REORG, &CPROG=DWWRG.
Figure 2. DWWURIM sample
)CM 5655-GY1 DWWURIM
)CM
)CM (C) Copyright IBM Corp. 2014
)CM (C) Copyright HCL Technologies Ltd. 2025
)CM
)CM @BANNER_END
)CM R71977 520 140127 ......... Customization
)CM ***********************************************************
)CM This is a sample of skeleton that adds the JOB statement.
)CM
)CM Use the &CJOBCHAR variable in the JOB name.
)CM
)CM It also sets the following symbolic parameters:
)CM HLQ - high level qualifier for CICS VR libraries
)CM SUF - suffix for CICS VR libraries (optional)
)CM CICSEXCI - CICS SDFHEXCI data set name
)CM ***********************************************************
)CM
)SET REXXVAR = CJOBCHAR,CICSEXCI,HLQ,SUF
)SET REXXVAR = &REXXVAR,JCL1,JCL2
)REXX &REXXVAR
USER = Sysvar('SYSUID');
SYSNAME = Mvsvar('SYSNAME');
/*------------- Logic ------------------------*/
If SYSNAME = "MVV1" Then
Do;
HLQ = "DWW.CICSVR42";
CICSEXCI = 'CTS420.CICS670.SDFHEXCI';
SUF = '.STAGE01';
_CLASS = '1';
End;
Else
Do;
HLQ = "DWW.V610";
CICSEXCI = 'CTS510.CICS680.SDFHEXCI';
SUF = '.STAGE02';
_CLASS = 'A';
End;
_JOBNAME = Left(USER||CJOBCHAR,8);
/*--------------------------------------------*/
JCL1 = "//"_JOBNAME" JOB (ACCOUNT),MSGLEVEL=(1,1),"
JCL2 = "// NOTIFY=&SYSUID,MSGCLASS=X,REGION=4M,CLASS="_CLASS
)ENDREXX
&JCL1
&JCL2
Note:
As the DWWURIM is embedded at the CICS® VR
recovery construction, the variable SYSNAME is the system name where
the TSO user (&USER) runs the CICS® VR
ISPF dialog.
The CICSEXCI variable is optional. It is used at a job construction
if you select the following functions:
Reorganization with option CICS-offline
Back up with option CICS-offline
Recovery, Recovery and Backup, or Reorganization are selected
for CICS® Backout Failed spheres.
This figure shows the recovery job that is generated when you select
option 1 Recover from the Utility drop-down menu
of the CICS Backout Failed sphere list panel.
TSO user is VNDR69O, which is logged on system MVV1.