X hits on this document

1530 views

0 shares

0 downloads

0 comments

141 / 236

EDS Utility Processor

FIGURE 42. KEIUTIL Sample Job (continued)

DELETE -RVHILEV-.-IMSID-.RKEIEDS DEFINE - CLUSTER( NAME(-RVHILEV-.-IMSID-.RKEIEDS) - CYLINDERS(100 10) - VOL(-RVVOL-) - RECSZ(100 32600) - SPANNED - KEYS(32 0) - SHAREOPTIONS(2,3) - FSPC(0 0) - UNIQUE - SPEED ) - DATA( NAME(-RVHILEV-.-IMSID-.RKEIEDS.DATA) - CISZ(8192) ) - INDEX( NAME(-RVHILEV-.-IMSID-.RKEIEDS.INDEX) )

/* //* //* DATA //* //RELOAD PGM=KEBUTIL, //STEPLIB //RKANPAR //RKEIEDS //UEIIN // //RKEIMSG //RKEI2IN **********

RELOAD:

RELOAD THE DATASET USING KEBUTIL WITH RECENT

EXEC REGION=4096K,COND=(0,NE),PARM=EPPROD=EI

DD DD DD DD

DISP=SHR,DSN=-RHILEV-.-.IMSID-.RKANMOD DISP=SHR,DSN=-RHILEV-.IMSID-.RKANPAR DISP=SHR,DSN=-RVHILEV-.-IMSID-.RKEIEDS DISP=OLD,DSN=*.UNLOAD.ARCHIVE,

VOL=REF=*.UNLOAD.ARCHIVE DD SYSOUT=* DD * *****************************************************

* * *

REMOVE ANY DATA

OVER 5 DAYS OLD

* * *

*************************************************************** EXCLUDE NUMDAY(5) ***************************************************************

*

  • *

    REMOVE ANY DATA FROM THE WEEKEND

*

* * *

*************************************************************** EXCLUDE DAY(WEEKEND) /*

If your EPILOG datastore is UNIQUE, you must modify the above stream to delete and define the EPILOG cluster.

EDS Maintenance

141

Document info
Document views1530
Page views1530
Page last viewedTue Jan 24 13:25:08 UTC 2017
Pages236
Paragraphs8116
Words69808

Comments