Basic System DMS PROC › ACTION Commands › Complex DSCL Command Sequences

Complex DSCL Command Sequences

Even complicated structures are based on the simple rules discussed previously. In time, you will be able to build very sophisticated processing, in one or two scans if you like. An example:

//jobname JOB (acct,info),etc.
//*************************************************************
//* GET A BEFORE IMAGE REPORT, DELETE TRASH, ARCHIVE UNUSED   *
//* data sets, BACK UP EVERYTHING USEFUL, RELEASE SPACE ON    *
//* OVERALLOCATED data sets. THEN GET AN AFTER IMAGE REPORT   *
//*************************************************************
//STEP EXEC DMS
SET MODE=SIMULATE
PASSWORD MASTER=the-DMS-master-password

SCAN REALVOLS

***************************************************************
* GET A BEFORE IMAGE REPORT:                                  *

VREPORT ALLOCS

***************************************************************
* DELETE TRASH:                                               *
***************************************************************

SELECT CRITERIA=(TEMP,EQ,YES,AND,CREDT,LE,TODAY-2)
SELECT CRITERIA=(CATSTAT,NE,YES,AND,CREDT,LE,TODAY-2)
DELETE

***************************************************************
* ARCHIVE MOST GDGS, LEAVING 2 GENERATIONS ON DISK:           *
***************************************************************

EXCLUDE DSNAMES=(data.set.name.patterns.that.should,

have.more.than.two.generations,left.on.disk),

SELECT CRITERIA=(GDG,EQ,YES,AND,GDGGEN,LE,-2)

ARCHIVE DISP=RECAT,EXPDT=99000 catalog control

***************************************************************
* ARCHIVE OTHER GDGS, LEAVING 5 GENERATIONS ON DISK:          *
***************************************************************

SELECT CRITERIA=(GDG,EQ,YES,AND,GDGGEN,LE,-5)

ARCHIVE DISP=RECAT,EXPDT=99000 catalog control

***************************************************************
* ARCHIVE UNUSED STUFF FOR 7 YEARS, ALLOW AUTO-RESTORE:       *
***************************************************************

SELECT CRI=(USEDT,LE,TODAY-28)          not used in 28 days
EXCLUDE DSNAMES=SYS/                  leave my SYS/ on disk
EXCLUDE DSNAMES=*.DSNDBC./       DB2 doesn't maintain,USEDT

ARCHIVE DISP=RECAT,RETPD=2557

***************************************************************
* data set-ORIENTED BACKUP EVERYTHING THAT NEEDS IT:          *
***************************************************************

SELECT CRITERIA=(MODIFIED,EQ,YES)           newly modified
SELECT CRITERIA=(ARCDT,LE,TODAY-27)      about to roll off
SELECT DSNAMES=*.DSNDBC./       DB2 doesn't maintain MODDT
SELECT CATALOGS=/                          my ICF catalogs
SELECT VTOCS                        for RECOVER VOL=,VTOCS

BACKUP RETPD=28

***************************************************************
* RELEASE OVER-ALLOCATED SPACE:                               *
***************************************************************

SELECT CRITERIA=(DSORG,EQ,VSAM,AND,PCTUSED,LT,70)

RELEASE PCTUSED=75

SELECT CRITERIA=(DSORG,EQ,PO,AND,PCTUSED,LT,75)

RELEASE PCTUSED=80

SELECT CRITERIA=(DSORG,EQ,PS,AND,PCTUSED,LT,100)

RELEASE PCTUSED=100

//**************************************************************
//* GET AN AFTER IMAGE REPORT:                                 *
//**************************************************************
// EXEC DMS
SCAN REALVOLS
VREPORT ALLOCS