Return to the Sample Job Stream List
* $$ JOB JNM=AHAHRBU,USER=0000AH0320000000,CLASS=G,PRI=4,DISP=H * $$ LST CLASS=A,DISP=D,COPY=1 // JOB AHAHRBU * // JA RERUNON X * ****************************************************** * PHYSICAL BACKUP FOR FILE=DDAHR00, DATABASE=DD75600 * * *** DB TABLE NAME = AHR, DBID = 756 *** * * ****************************************************** // TLBL ADRAHR1,'AHDBAHR0' // EXEC DBUTLTY BACKUP AREA=AHR,DBID=756,DEVICE=TAPE,RECID=NO, SEQ=PHYSICAL,BLKSIZE=7476,DTFNAME=ADRAHR1 /* /& // JA RERUNOFF * $$ EOJ * $$ JOB JNM=AHAHRNL,USER=0000AH0320000000,CLASS=G,PRI=4,DISP=H * $$ LST CLASS=A,DISP=D,COPY=1 // JOB AHAHRNL * // JA RERUNON X * ********************************************************* * NULL FOR FILE=DDAHR00, DATABASE=DD75600 * * *** DB TABLE NAME = AHR, DBID = 756 *** * * * RUN TIME SHOULD BE ABOUT 13 MINUTES PER 10000 TRACKS * * ********************************************************* * ASSGN'S DLBL.S & EXTENT'S ARE ON STANDARD LABELS // EXEC DBUTLTY INIT AREA=IXX,DBID=756 INIT AREA=AHR,DBID=756 LOAD AREA=AHR,DBID=756,FORMAT=NONE,URI=YES,OPTIMIZE=YES /* /& // JA RERUNOFF * $$ EOJ * $$ JOB JNM=AHAHRRS,USER=0000AH0320000000,CLASS=G,PRI=4,DISP=H * $$ LST CLASS=A,DISP=D,COPY=1 // JOB AHAHRRS * // JA RERUNON X * ********************************************** * RESTORE FOR FILE=DDAHR00, DATABASE=DD75600 * * *** DB TABLE NAME = AHR, DBID = 756 *** * * ********************************************** // TLBL ADRAHR2,'AHDBAHR0' // EXEC DBUTLTY INIT AREA=IXX,DBID=756 LOAD AREA=AHR,DBID=756,DEVICE=TAPE,FORMAT=BACKUP, KBYTES=100,DTFNAME=ADRAHR2,URI=YES,OPTIMIZE=YES,SORT=1 /* /& // JA RERUNOFF * $$ EOJ * $$ JOB JNM=BDCM4BU,USER=0000BD1010000000,PRI=3,DISP=H,CLASS=G * $$ LST DISP=D,CLASS=A,COPY=1 // JOB BDCM4BU EXTRACT BACKUP OF CM4 604 * // JA RERUNON X * ******************************************** * PHYSICAL EXTRACT BACKUP FOR FILE=DDCM400 * * DB TABLE NAME = CM4, DBID = 604 * * ******************************************** * FILE SHOULD NOT BE UPDATED DURING JOB RUN * ******************************************** // TLBL ADRCM4,'BD94CM4X' // EXEC DBUTLTY EXTRACT AREA=CM4,TABLE=CM4,DBID=604,DEVICE=TAPE, SEQ=PHYSICAL,DTFNAME=ADRCM4 /* /& // JA RERUNOFF * $$ EOJ
Return to the Sample Job Stream List
//AHAHRBU JOB (AHAHRBU),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* ******************************************************
//* PHYSICAL BACKUP FOR FILE=DDAHR00, DATABASE=DD75600 *
//* *** DB TABLE NAME = AHR, DBID = 756 *** *
//* ******************************************************
//*
//* STEP0010 PROC=DBUTPROD DBUTLTY
//*
//STEP0010 EXEC PROC=DBUTPROD
//* MODULE DBUTLTY PROCESSED BY PLUG-IN JCLTDBUT
//* DA U S 'PROD.CXX'
//CXX DD DSN=MVS.PROD.CXX,
// DISP=SHR
//* DA I S 'PROD.CADB.IXX756'
//IXX756 DD DSN=MVS.PROD.CADB.IXX756,
// DISP=SHR
//* DA I S 'PROD.CADB.AHR756'
//AHR756 DD DSN=MVS.PROD.CADB.AHR756,
// DISP=SHR
//* MT O 'AHDBAHR0' BACKUP
//ADRAHR1 DD DSN=CAR.AHDBAHR0,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TAPE,
// VOL=(,RETAIN)
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
BACKUP AREA=AHR,DBID=756,RECID=NO,SEQ=PHYSICAL,BLKSIZE=7476, *
DDNAME=ADRAHR1
/*
//*
//* *********************************************************
//* NULL FOR FILE=DDAHR00, DATABASE=DD75600 *
//* *** DB TABLE NAME = AHR, DBID = 756 *** *
//* * RUN TIME SHOULD BE ABOUT 13 MINUTES PER 10000 TRACKS *
//* *********************************************************
//* ASSGN'S DLBL.S & EXTENT'S ARE ON STANDARD LABELS
//*
//* STEP0020 PROC=DBUTPROD DBUTLTY
//*
//STEP0020 EXEC PROC=DBUTPROD
//* MODULE DBUTLTY PROCESSED BY PLUG-IN JCLTDBUT
//* DA U S 'PROD.CXX'
//CXX DD DSN=MVS.PROD.CXX,
// DISP=SHR
//* DA U S 'PROD.CADB.IXX756'
//IXX756 DD DSN=MVS.PROD.CADB.IXX756,
// DISP=SHR
//* DA U S 'PROD.CADB.AHR756'
//AHR756 DD DSN=MVS.PROD.CADB.AHR756,
// DISP=SHR
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
INIT AREA=IXX,DBID=756
INIT AREA=AHR,DBID=756
LOAD AREA=AHR,DBID=756,FORMAT=NONE,URI=YES,OPTIMIZE=YES
/*
//*
//* **********************************************
//* RESTORE FOR FILE=DDAHR00, DATABASE=DD75600 *
//* *** DB TABLE NAME = AHR, DBID = 756 *** *
//* **********************************************
//*
//* STEP0030 PROC=DBUTPROD DBUTLTY
//*
//STEP0030 EXEC PROC=DBUTPROD
//* MODULE DBUTLTY PROCESSED BY PLUG-IN JCLTDBUT
//* DA U S 'PROD.CXX'
//CXX DD DSN=MVS.PROD.CXX,
// DISP=SHR
//* DA U S 'PROD.CADB.IXX756'
//IXX756 DD DSN=MVS.PROD.CADB.IXX756,
// DISP=SHR
//* MT I 'AHDBAHR0' LOAD
//ADRAHR2 DD DSN=CAR.AHDBAHR0,
// DISP=OLD
//* DA U S 'PROD.CADB.AHR756'
//AHR756 DD DSN=MVS.PROD.CADB.AHR756,
// DISP=SHR
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
INIT AREA=IXX,DBID=756
LOAD AREA=AHR,DBID=756,FORMAT=BACKUP,KBYTES=100,URI=YES, *
OPTIMIZE=YES,DDNAME=ADRAHR2
/*
//*
//* ********************************************
//* PHYSICAL EXTRACT BACKUP FOR FILE=DDCM400 *
//* DB TABLE NAME = CM4, DBID = 604 *
//* ********************************************
//* FILE SHOULD NOT BE UPDATED DURING JOB RUN
//* ********************************************
//*
//* STEP0040 PROC=DBUTPROD DBUTLTY
//*
//STEP0040 EXEC PROC=DBUTPROD
//* MODULE DBUTLTY PROCESSED BY PLUG-IN JCLTDBUT
//* DA U S 'PROD.CXX'
//CXX DD DSN=MVS.PROD.CXX,
// DISP=SHR
//* MT O 'BD94CM4X' EXTRACT
//ADRCM4 DD DSN=PROD.BD94CM4X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TAPE
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
EXTRACT AREA=CM4,TABLE=CM4,DBID=604,SEQ=PHYSICAL,DDNAME=ADRCM4
/*
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=CAR.AHDBAHR0,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List