X hits on this document

951 views

0 shares

0 downloads

0 comments

134 / 236

EDS Maintenance Processor

FIGURE 40. KEBMAINT PURGE Command (continued)

//REORG

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

//SYSPRINT DD

SYSOUT=*

// //

RDS

DD

DSN=-RHILEV-.-IMSID-.EI.SEQ,DISP=(,CATLG), UNIT=-UNIT-,SPACE=(CYL,(100,10),RLSE),

//

DCB=(LRECL=32600,BLKSIZE=32604,RECFM=VBS,DSORG=PS)

//SYSIN /*

DD

*

*/

/*

COPY THE VSAM FILE TO THE SEQUENTIAL DATASET

*/

/* REPRO -

*/

IDS(-RVHILEV-.-IMSID-.RKEIEDS) - OUTFILE(RDS) /* /* DELETE THE VSAM DATASET /* IF MAXCC = 0 THEN -

*/ */ */

DELETE -

  • -

    RVHILEV-.-IMSID-.RKEIEDS CLUSTER SCRATCH PURGE

/* /* RE-ALLOCATE THE VSAM DATASET /* IF MAXCC = 0 THEN - 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) )

*/ */ */

/* /* /* IF

COPY

MAXCC

FROM THE

SEQUENTIAL

= 0 THEN

-

FILE

TO

THE

VSAM

FILE

*/ */ */

REPRO - INFILE(RDS) - ODS(-RVHILEV-.-IMSID-.RKEIEDS)

//

134

OMEGAMON II for DBCTL Historical Component (EPILOG) Reference Manual Version 510

Document info
Document views951
Page views951
Page last viewedThu Dec 08 06:57:40 UTC 2016
Pages236
Paragraphs8116
Words69808

Comments