The following sections illustrate the uses of DFHRMUTL.
Figure 61 shows the statements required to update the global catalog so that CICS® performs an initial start if START=AUTO is specified.
You could use this job to modify a newly-defined global catalog. This would mean that could retain START=AUTO for all your CICS start jobs, including the first with a new global catalog.
//RMUTL EXEC PGM=DFHRMUTL,REGION=1M
//STEPLIB DD DSNAME=link.dataset,DISP=SHR
//SYSPRINT DD SYSOUT=A
//DFHGCD DD DSNAME=catalog.dataset,DISP=OLD
//SYSIN DD *
SET_AUTO_START=AUTOINIT
/*
Figure 62 shows the statements required to examine the autostart override record on a CICS global catalog data set.
//RMUTL EXEC PGM=DFHRMUTL,REGION=1M
//STEPLIB DD DSNAME=link.dataset,DISP=SHR
//SYSPRINT DD SYSOUT=A
//DFHGCD DD DSNAME=catalog.dataset,DISP=OLD
//SYSIN DD *
/*
This JCL also reveals:
Figure 63 shows the statements required to update the global catalog so that CICS performs a warm or emergency start if START=AUTO is specified. This enables you to undo the effects of a previous run of DFHRMUTL that set the autostart override record to AUTOINIT or AUTOCOLD. (The AUTOASIS override record is equivalent to there being no override record in the global catalog.)
If the global catalog data set was produced by a COLD_COPY, or if it is empty, DFHRMUTL rejects the AUTOASIS value.
//RMUTL EXEC PGM=DFHRMUTL,REGION=1M
//STEPLIB DD DSNAME=link.dataset,DISP=SHR
//SYSPRINT DD SYSOUT=A
//DFHGCD DD DSNAME=catalog.dataset,DISP=OLD
//SYSIN DD *
SET_AUTO_START=AUTOASIS
/*
Figure 64 shows the statements required to:
Because the original catalog data set is overwritten by a COLD_COPY, it is not suitable for a warm or emergency start. DFHRMUTL does not allow you to reset the override record to read AUTOASIS.
//RMUTL EXEC PGM=DFHRMUTL,REGION=1M
//STEPLIB DD DSNAME=link.dataset,DISP=SHR
//SYSPRINT DD SYSOUT=A
//DFHGCD DD DSNAME=catalog.dataset,DISP=OLD
//NEWGCD DD DSNAME=newcatalog.dataset,DISP=OLD
//SYSIN DD *
SET_AUTO_START=AUTOCOLD,COLD_COPY
/*
// IF (RMUTL.RC=0) THEN
//* Step to be performed if RMUTL succeeds
//COPY EXEC PGM=IDCAMS
//DFHGCD DD DSNAME=catalog.dataset,DISP=OLD
//SYSPRINT DD SYSOUT=A
//NEWGCD DD DSNAME=newcatalog.dataset,DISP=OLD
//SYSIN DD *
REPRO INFILE(NEWGCD) OUTFILE(DFHGCD) REUSE
/*
//* End of step
// ENDIF