* $$ JNM=P74WPAF,CLASS=C,DISP=H,USER=OPER
* $$ LST CLASS=A,DISP=L,FNO=W1DE,SYSID=N
// JOB P74WPAF
* ******* REORG OF CO 74 POLICY ACTIVITY FILE
* JMCL NAME=STEP001
* STEP STEP001 P74WPAF 09/21/94
* **********************************************************
* STEP001 - DATABACK BKUP OF CO. 74 POLICY ACT.FILE *
* --------------------- *
* PROGRAM - M4VBR *
* TAPE OUT - PFPAF74.S.POL.ACT.FILE.BKUP *
* REPORT OUT - *
* ******************************************************** *
// OPTION LOG
* //M4BKUP DD DSN='PFPAF74.S.POL.ACT.FILE.BKUP(+0)',
* // DISP=(NEW,CATLG),
* // OPTION=(RUN,TPL=U),UNIT=CART,
* // LABEL=RETPD=30
// EXEC M4VBR,SIZE=AUTO IF=(HC EQ 00),DATA
BACKUP NAME='BACKUP OF CO. 74 POLICY ACT.FILE'
INUSE
CATDD FSLPUCT
SELECT N74.POLICY.ACTIVITY
/*
* JMCL NAME=STEP002
* STEP STEP002 P74WPAF 09/22/94
* **********************************************************
* STEP002 - DATABACK RESTORE - 74 POLICY ACTIVITY FILE *
* --------------------- *
* PROGRAM - M4VBR *
* TAPE IN - PFPAF74.S.POL.ACT.BKUP *
* ******************************************************** *
* //M4BKUP DD DSN='PFPAF74.S.POL.ACT.FILE.BKUP(0)',
* // DISP=(OLD,KEEP),
* // OPTION=(RUN)
// EXEC M4VBR,SIZE=AUTO IF=(HC EQ 00),DATA
RESTORE
PURGE
CATDD=FSLPUCT
SELECT=N74.POLICY.ACTIVITY
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//P74WPAF4 JOB (P74WPAF4),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* ******* REORG OF CO 74 POLICY ACTIVITY FILE
//* JMCL NAME=STEP001
//* STEP STEP001 P74WPAF 09/21/94
//* **********************************************************
//* STEP001 - DATABACK BKUP OF CO. 74 POLICY ACT.FILE *
//* --------------------- *
//* PROGRAM - M4VBR *
//* TAPE OUT - PFPAF74.S.POL.ACT.FILE.BKUP *
//* REPORT OUT - *
//* ******************************************************** *
//*
//* STEP0010 PGM=ADRDSSU M4VBR
//*
//STEP0010 EXEC PGM=ADRDSSU
//* MODULE M4VBR PROCESSED BY PLUG-IN JCLT4VBR
//* VS I FSLPUCT A 'N74.POLICY.ACTIVITY' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.N74.POLICY.ACTIVITY
//* MT O SYS000 UA E 'PFPAF74.S.POL.ACT.FILE.BKUP(+0)' BACKUP
//M4BKUP DD DSN=MVS.PFPAF74.S.POL.ACT.FILE.BKUP(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=TAPE,
// VOL=(,RETAIN)
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DUMP -
DATASET( -
INCLUDE( -
MVS.N74.POLICY.ACTIVITY -
)) -
SPHERE -
SHARE -
TOL(ENQF) -
OUTDD(M4BKUP)
/*
//*
//* JMCL NAME=STEP002
//* STEP STEP002 P74WPAF 09/22/94
//* **********************************************************
//* STEP002 - DATABACK RESTORE - 74 POLICY ACTIVITY FILE *
//* --------------------- *
//* PROGRAM - M4VBR *
//* TAPE IN - PFPAF74.S.POL.ACT.BKUP *
//* ******************************************************** *
//*
//* STEP0020 PGM=ADRDSSU M4VBR
//*
//STEP0020 EXEC PGM=ADRDSSU
//* MODULE M4VBR PROCESSED BY PLUG-IN JCLT4VBR
//* MT I SYS000 UA E 'PFPAF74.S.POL.ACT.FILE.BKUP(0)' RESTORE
//M4BKUP DD DSN=MVS.PFPAF74.S.POL.ACT.FILE.BKUP(+1),
// DISP=SHR
//* VS O FSLPUCT A 'N74.POLICY.ACTIVITY' RESTORE
//#RESTORE DD DUMMY,DSN=MVS.N74.POLICY.ACTIVITY
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
RESTORE -
INDD(M4BKUP) -
DATASET( -
INCLUDE( -
MVS.N74.POLICY.ACTIVITY -
)) -
SPHERE -
REPLACE
/*
//
Return to the Sample Job Stream List