* $$ 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 - FAVOR BKUP OF CO. 74 POLICY ACT.FILE * * --------------------- * * PROGRAM - GVEXPORT * * TAPE OUT - PFPAF74.S.POL.ACT.FILE.BKUP * * REPORT OUT - * * ******************************************************** * // OPTION LOG * //SYS000 DD DSN='PFPAF74.S.POL.ACT.FILE.BKUP(+0)', * // DISP=(NEW,CATLG), * // OPTION=(RUN,TPL=U),UNIT=CART, * // LABEL=RETPD=30 // EXEC GVEXPORT,SIZE=AUTO IF=(HC EQ 00),DATA EXPORT EXO CAT=FSLPUCT CLUSTER CL=N74.POLICY.ACTIVITY /* * JMCL NAME=STEP002 * STEP STEP002 P74WPAF 09/22/94 * ********************************************************** * STEP002 - FAVOR RESTORE - 74 POLICY ACTIVITY FILE * * --------------------- * * PROGRAM - GVRESTOR * * TAPE IN - PFPAF74.S.POL.ACT.BKUP * * ******************************************************** * * //SYS000 DD DSN='PFPAF74.S.POL.ACT.FILE.BKUP(0)', * // DISP=(OLD,KEEP), * // OPTION=(RUN) // EXEC GVRESTOR,SIZE=AUTO IF=(HC EQ 00),DATA RESTORE ESTOP=8 REMP CLUSTER CL=N74.POLICY.ACTIVITY PURGE CATDEF=*,FSLPUCT /* /& * $$ EOJ
Return to the Sample Job Stream List
//P74WPAF JOB (P74WPAF),' ',
// 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 - FAVOR BKUP OF CO. 74 POLICY ACT.FILE *
//* --------------------- *
//* PROGRAM - GVEXPORT *
//* TAPE OUT - PFPAF74.S.POL.ACT.FILE.BKUP *
//* REPORT OUT - *
//* ******************************************************** *
//*
//* STEP0010 PGM=ADRDSSU GVEXPORT
//*
//STEP0010 EXEC PGM=ADRDSSU
//* MODULE GVEXPORT PROCESSED BY PLUG-IN JCLTFAV1
//* VS 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
//SYS000 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(SYS000)
/*
//*
//* JMCL NAME=STEP002
//* STEP STEP002 P74WPAF 09/22/94
//* **********************************************************
//* STEP002 - FAVOR RESTORE - 74 POLICY ACTIVITY FILE *
//* --------------------- *
//* PROGRAM - GVRESTOR *
//* TAPE IN - PFPAF74.S.POL.ACT.BKUP *
//* ******************************************************** *
//*
//* STEP0020 PGM=ADRDSSU GVRESTOR
//*
//STEP0020 EXEC PGM=ADRDSSU
//* MODULE GVRESTOR PROCESSED BY PLUG-IN JCLTFAV1
//* MT I SYS000 UA E 'PFPAF74.S.POL.ACT.FILE.BKUP(0)' RESTORE
//SYS000 DD DSN=MVS.PFPAF74.S.POL.ACT.FILE.BKUP(+1),
// DISP=SHR
//* VS 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(SYS000) -
DATASET( -
INCLUDE( -
MVS.N74.POLICY.ACTIVITY -
)) -
SPHERE -
REPLACE
/*
//
Return to the Sample Job Stream List