To create DFSMSdss commands that delete selected data sets:
_______________________________________________________________
_______________________________________________________________
To change the management class assigned to a group of data sets of a given high level qualifier whose user requirements have changed (high level qualifier ABC to management class MCSTAND):
_______________________________________________________________
_______________________________________________________________
ABC.BACKUP.LAB.REVIEW
ABC.BACKUP.LAB.SCRIPT
ABC.BACKUP.LAB.JCL
_______________________________________________________________
_______________________________________________________________
_______________________________________________________________
ALTER / MGMTCLAS(MCSTAND)
The model command function uses the same conventions as ISPF option 3.4. That is, a slash (/) may be located in the command wherever the user wants the data set name substituted. An "at" sign (@) may be used in the command wherever the user wants the volume serial number, which a data set resides on substituted. However, only two slashes and one @ may be used in each model command.
Attention: There is no syntax checking performed for the command entered by the user. It is the user’s responsibility to correctly enter the command to be created against the entries in the table or DCOLLECT data.
ALTER ABC.BACKUP.LAB.REVIEW MGMTCLAS(MCSTAND)
ALTER ABC.BACKUP.LAB.SCRIPT MGMTCLAS(MCSTAND)
ALTER ABC.BACKUP.LAB.JCL MGMTCLAS(MCSTAND)
This output will be created in a sequential data set with the name USERID.Mxx.MODELCMD, where xx varies from 1 to 99.
_______________________________________________________________
//ALTER JOB ----
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER ABC.BACK.LAB.REVIEW MGMTCLAS(MCSTAND)
ALTER ABC.BACK.LAB.SCRIPT MGMTCLAS(MCSTAND)
ALTER ABC.BACK.LAB.JCL MGMTCLAS(MCSTAND)
/*
_______________________________________________________________
The model command facility can also be used with volume lists from ISPF tables or DCOLLECT data. The following example using volume lists creates a job to DEFRAG all volumes in an ISMF volume list:
SCR001 -------
SCR002 -------
SCR003 -------
SCR004 -------
SDV000 -------
SDV001 -------
SHR200 -------
DEFRAG DYNAM (@)
DEFRAG DYNAM(SCR001)
DEFRAG DYNAM(SCR002)
DEFRAG DYNAM(SCR003)
DEFRAG DYNAM(SCR004)
DEFRAG DYNAM(SDV000)
DEFRAG DYNAM(SDV001)
DEFRAG DYNAM(SHR200)
//DEFRAG JOB ----
//STEP1 EXEC PGM=ADRDSSU, PARM='TRACE=YES'
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFRAG DYNAM(SCROO1)
DEFRAG DYNAM(SCR002)
DEFRAG DYNAM(SCR003)
DEFRAG DYNAM(SCR004)
DEFRAG DYNAM(SDV000)
DEFRAG DYNAM(SDV001)
DEFRAG DYNAM(SHR200)
/*