X hits on this document

953 views

0 shares

0 downloads

0 comments

133 / 236

EDS Maintenance Processor

FIGURE 40. KEBMAINT PURGE Command (continued)

/* //* //* //* //* //* //* //* //* //* //* //* //* //* / / M A I N T

NOTE THAT THIS JOB WANTS THE VSAM CLUSTER EXCLUSIVELY(DISP=OLD); THIS IS BECAUSE KEBMAINT WILL PROBABLY NEED TO WRITE TO THE DATASET.

KEBMAINT IS GENERALLY USED FOR ONE OF THE TWO FOLLOWING PURPOSES:

LOAD

PURGE

COPY DATA INTO THE DATABASE FROM AN UNLOADED SMF DATASET. (REQUIRES RKEISMFDDCARD BE SUPPLIED.) DELETE SETS OF RECORDS FROM THE DATABASE

THE SAMPLE HERE IS USED TO PURGE ALL DATA FROM THE EDS WHICH HAS BEEN COLLECTED BEFORE FEBRUARY 19 OF 1995.

EXEC PGM=KEBMAINT,REGION=2048K,PARM=EPPROD=EI

//* //* EPILOG //STEPLIB // //* //* EPILOG //RKEIEDS // //* //* EPILOG //RKANPAR // //*

LOADLIB DD DISP=SHR, D S N = - R H I L E V - . - I M S I D - . R K A N M O D

EDS DD

VSAM CLUSTER DISP=OLD D , S N = - R V H I L E V - . - I M S I D - . R K E I E D S

PARMLIBS DD DISP=SHR , DSN=-RHILEV-.-IMSID-.RKANPAR

//* SEQUENTIAL SMF FILE

//*RKEISMF //* //*

DD

DISP=SHR, DSN=-RHILEV-.-IMSID-.EISMF.DATA

//* EPILOG MESSAGES

//RKEIMSG

DD

SYSOUT=*

//*

//* EPILOG

REPORT

//RKEIOUTR

DD SYSOUT=*

//* //* EPILOG CONTROL

INPUT

//RKEI2IN

DD

*

*

  • *

    PURGE ALL DATA COLLECTED BEFORE FEBRUARY 19

PURGE SYS

EDATE(01/02/97)

PURGE OTH

EDATE(01/02/97)

*

PURGE GRP(*) EDATE(01/02/97)

PURGE RALL PURGE GDEF /*

EDATE(01/02/97) EDATE(01/02/97)

//DELETE

EXEC PGM=IDCAMS,REGION=512K,COND=(0,NE)

//SYSPRINT DD

SYSOUT=*

//SYSIN DD

*

/*

/*

DELETE THE SEQUENTIAL EPILOG DATASTORE

/* DELETE -RHILEV-.-IMSID-.EI.SEQ IF LASTCC EQ 8 THEN SET MAXCC

=0

NONVSAM SCRATCH PURGE

*/ */ */

//* //* //*

REORG THE EPILOG VSAM DATABASE CLUSTER

EDS Maintenance

133

Document info
Document views953
Page views953
Page last viewedThu Dec 08 08:45:04 UTC 2016
Pages236
Paragraphs8116
Words69808

Comments