Example JCL for the TRENDS situation used to keep a history. This shop elected
not to use GDGs. The EREP9000 contains two control statements but I don't
think they've been touched in over 15 years (they are listed after the JCL)
//*==================================================================*
//* 4. MAKE A BACKUP COPY OF THE HISTORY FILE *
//*==================================================================*
//COPYHIST EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY,DCB=BLKSIZE=121 * DUMMY PRINT - DONT NEED
//SYSUT1 DD DSN=SYSTEMS.EREP.PROD.HIST, * MAKING A COPY OF
// DISP=OLD * HISTORY FILE
//SYSUT2 DD DSN=SYSTEMS.EREP.PROD.HISTBKUP, * TO BACKUP FILE
// DISP=OLD *
//*==================================================================*
//* 5. CAPTURE LATEST 30 DAY'S HISTORY *
//*==================================================================*
//HISTORY EXEC PGM=IFCEREP1,
// REGION=2048K,
// COND=(0,LT,COPYHIST), * DONT RUN IF COPY FAILED
// PARM=('TRENDS', * RUNNING 30 DAY SELECTION
// 'HIST=Y', * FROM HISTORY INPUT
// 'ACC=Y', * ACCUM IN ACCDEV
// 'TABSIZE=768K', * LARGE TABLE
// 'ZERO=N') * DON'T CLEAR LOGREC
//ACCDEV DD DSN=SYSTEMS.EREP.PROD.HIST, * OUTPUT HISTORY FILE
// DISP=OLD *
//ACCIN DD DSN=SYSTEMS.EREP.PROD.HISTBKUP, * IS COMBINED FROM
// DISP=OLD * PREVIOUS ONE PLUS
// DD DSN=SYSTEMS.EREP.PROD.DAY, * THE DATA FROM
// DISP=OLD * TODAYS RUN
//DIRECTWK DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//EREPPT DD DUMMY, * DUMMY OUTPUT
// DCB=BLKSIZE=133 * SINCE USING TRENDS AS
//* * RUNNING COPY PROGRAM
//TOURIST DD SYSOUT=*
//SERLOG DD DUMMY
//SYSIN DD DSN=DOT2.JOBS.DATA(EREP9000),DISP=SHR
SYSIN statements
*------------- LIMIT STATEMENTS TO CONTROL OUTPUT ---------------*
LIMIT 3880,OVRN=1000
*------------- THIS IMPLIES ALL I/O ADDRESSES ARE UNIQUE ------------*
SYSIMG BASESN=ALL
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
