X hits on this document

1489 views

0 shares

0 downloads

0 comments

140 / 236

EDS Utility Processor

FIGURE 42. KEIUTIL Sample Job

//KEIUTIL JOB ...

//* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //* //*

KEIUTIL

  • -

    SAMPLE JOB TO ARCHIVE THE EPILOG VSAM DATASET TO TAPE, REORGANIZE THE VSAM CLUSTER AND LEAVE ONLY THE MOST RECENT DATA IN THE DATASET.

BEFORE RUNNING THIS JOB THE FOLLOWING PARAMETERS MUST BE CUSTOMIZED FOR YOUR INSTALLATION:

  • -

    RHILEV-

HIGH-LEVEL INDEX OF RUNTIME LIBRARIES

  • -

    RVHILEV-

HIGH-LEVEL INDEX OF RUNTIME EPILOG VSAM DATASET

  • -

    RVVOL-

VOLUME SERIAL OF RUNTIME EPILOG VSAM DATASET

  • -

    IMSID-

ADDRESS-SPACE-SPECIFIC RUNTIME MIDDLE-LEVEL QUALIFIER OF RUNTIME DATASETS (VSAM AND NON-VSAM)

UNLOAD:

DUMP

THE

ENTIRE

VSAM

DATASET

TO

TAPE

----------------------------------

//UNLOAD

EXEC PGM=IDCAMS,REGION=4096K

//SYSPRINT

DD

//RKEIEDS

DD

//ARCHIVE

DD

SYSOUT=* DISP=SHR,DSN=-RVHILEV-.-IMSID-.RKEIEDS DSN=ARCHIVE.-IMSID-.RKEIEDS,

// // //

SYSIN

DISP=(,KEEP),UNIT=TAPE,VOL=(,RETAIN), DCB=(RECFM=VBS,LRECL=32604,BLKSIZE=32608) DD *

REPRO

INFILE(RKEIEDS) OUTFILE(ARCHIVE)

/* //* //* //* //* //* //* //*

DEFINE:

DELETE

AND

REDEFINE

THE

VSAM

CLUSTER

NOTE THAT IF THE CLUSTER HAS BEEN DEFINED AS SUBALLOCATED(THAT IS, REUSERATHER THAN UNIQUE) THIS STEP IS NOT NECESSARY.

//DEFINE

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

//SYSPRINT DD

SYSOUT=*

//SYSIN

DD

*

140

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

Document info
Document views1489
Page views1489
Page last viewedSun Jan 22 23:31:37 UTC 2017
Pages236
Paragraphs8116
Words69808

Comments