* $$ 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