* $$ JOB JNM=R72M06AS,CLASS=C,DISP=H,USER=GRAND * $$ LST CLASS=A,DISP=L // JOB R72M06AS // OPTION LOG * ******************************************************************** * * STEP001 - RESTORE N00.AGENT.MASTER TO THE FSLMUCT * * CHANGE TLBL TO THE APPROPRIATE BACKUP FILE. STEP001 CAN * BE BYPASSED IF ALL OF MONTH-END IS RERUN, IN WHICH CASE * THE AGENT MASTER WOULD GET RESTORED TO FSLMUCT. * * ******************************************************************** // STEP STEP001 GOTO=STEP005 RESTORE N00.AGENT.MASTER TO FSLMUCT // DLBL FSLPUCT,'FSLCAT',,VSAM,, // DLBL FSLTUCT,'FSL.TEST.USER.CAT',,VSAM // DLBL FSLMUCT,'FSL.PROD.ME.USER.CAT',,VSAM * // TLBL SYS000,'PBK.BME.UCAT3',O,RUN FROM BEFORE ME BACKUP // TLBL SYS000,'PBK.AGMST',O,RUN FROM 1ST STEP OF P72M06AS // EXEC GVRESTOR, SIZE=AUTO RESTORE REMP PURGE CLUSTER CL=N00.AGENT.MASTER *AMS - CLUSTER (VOL (GL0069 GL006A)) - DATA (VOL (GL0069 GL006A)) - INDEX (VOL (GL0069 GL006A)) CATDEF=*,FSLMUCT /* * ********************************************************************* * * STEP002 - RESTORE AGENT HISTORY * VSAM FILE TO THE FSLPUCT * * NOTE- PBK.AGT.HIST IS ALSO CREATED IN P74M06AS, SO NEED TO * MAKE SURE THE PROPER GEN FILE IS USED FOR THIS RESTORE. * * * ********************************************************************* // STEP STEP002 GOTO=EOJ RESTORE N72.AGENT.HIST.FILE TO FSLPUCT // DLBL FSLPUCT,'FSLCAT',,VSAM // DLBL FSLTUCT,'FSL.TEST.USER.CAT',,VSAM // DLBL FSLMUCT,'FSL.PROD.ME.USER.CAT',,VSAM // TLBL SYS000,'PBK.AGT.HIST',O,GEN=78,RUN FROM P72M06AS // EXEC GVRESTOR,SIZE=AUTO RESTORE REMP PURGE CLUSTER CL=N72.AGENT.HIST.FILE *AMS - CLUSTER (VOL(GL0065)) - DATA (VOL (GL0065)) - INDEX (VOL (GL0065)) CATDEF=*,FSLPUCT /* * ********************************************************************* * * STEP003 - RESTORE AGENT RESERVE HISTORY * VSAM FILE TO THE FSLPUCT * * NOTE- PBK.RES.HIST IS ALSO CREATED IN P74M06AS, SO NEED TO * MAKE SURE THE PROPER GEN FILE IS USED FOR THIS RESTORE. * * ********************************************************************* // STEP STEP003 GOTO=EOJ RESTORE N72.AGENT.RES.HIST TO FSLPUCT // DLBL FSLPUCT,'FSLCAT',,VSAM // DLBL FSLTUCT,'FSL.TEST.USER.CAT',,VSAM // DLBL FSLMUCT,'FSL.PROD.ME.USER.CAT',,VSAM // TLBL SYS000,'PBK.RES.HIST',O,GEN=71,RUN FROM P72M06AS // EXEC GVRESTOR,SIZE=AUTO RESTORE REMP PURGE CLUSTER CL=N72.AGENT.RES.HIST *AMS - CLUSTER (VOL(GL0064)) - DATA (VOL (GL0064)) - INDEX (VOL (GL0064)) CATDEF=*,FSLPUCT /* * ********************************************************************* * * STEP004 - RESTORE SAM FILES TO DISK * * NOTE THAT IF P72M03AC IS RERUN, THEN THESE FILES USED IN * P72M06AS WILL BE RECREATED. * * ********************************************************************* // STEP STEP004 GOTO=EOJ RESTORE SAM FILES BACKED UP IN P72M06AS * (THESE ARE CREATED IN P72M03AC) // DLBL WSYS022,'N72STMT.C',N,K,T=100,R // DLBL WSYS024,'N72STMT.MERGE',N,K,T=100,R // DLBL WSYS025,'N72STMT.RENEW',N,K,T=100,R // TLBL SYS000,'P72AGMST.D',OLD,RUN,SYS000 // EXEC DUSP,SIZE=DUSP SET MTC=RUN ; RESTORE WSYS022(SAM) ; RESTORE WSYS024(SAM) ; RESTORE WSYS025(SAM) ; /* * ********************************************************************* * * STEP005 - BACK OUT GEN FILES CREATED IN P72M06AS. * * NOTE- PBK.AGT.HIST AND PBK.RES.HIST ARE ALSO CREATED IN * P74M06AS, SO NEED TO DETERMINE IF NEED TO BACK THEM * OUT ALSO. * * * ********************************************************************* // STEP STEP005 // EXEC SPSERV TFILE ID='PBK.AGMST',GEN=58,DEL TFILE ID='P72GLJF',GEN=56,DEL TFILE ID='PBK.AGT.HIST',GEN=78,DEL TFILE ID='PBK.AGT.HIST',GEN=79,DEL (FROM P74M06AS) TFILE ID='SDSPT.ME.P72M06AS',GEN=50,DEL TFILE ID='P72SCITR',GEN=51,DEL TFILE ID='PBK.RES.HIST',GEN=71,DEL TFILE ID='PBK.RES.HIST',GEN=72,DEL (FROM P74M06AS) TFILE ID='P72AGMST.D',GEN=53,DEL /* /& * $$ EOJ
Return to the Sample Job Stream List
//R72M06AS JOB (R72M06AS),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* ******************************************************************** //* //* STEP001 - RESTORE N00.AGENT.MASTER TO THE FSLMUCT //* //* CHANGE TLBL TO THE APPROPRIATE BACKUP FILE. STEP001 CAN //* BE BYPASSED IF ALL OF MONTH-END IS RERUN, IN WHICH CASE //* THE AGENT MASTER WOULD GET RESTORED TO FSLMUCT. //* //* ******************************************************************** //* // TLBL SYS000,'PBK.BME.UCAT3',O,RUN FROM BEFORE ME BACKUP //* //* STEP0010 PGM=ADRDSSU GVRESTOR //* //STEP0010 EXEC PGM=ADRDSSU //* MODULE GVRESTOR PROCESSED BY PLUG-IN JCLTFAV1 //* MT I SYS000 UA 'PBK.AGMST' RESTORE //SYS000 DD DSN=PBK.AGMST(0), // DISP=SHR //* VS VS O FSLMUCT A 'N00.AGENT.MASTER' RESTORE //#RESTORE DD DUMMY,DSN=MVS.N00.AGENT.MASTER //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * RESTORE - INDD(SYS000) - DATASET( - INCLUDE( - MVS.N00.AGENT.MASTER - )) - SPHERE - REPLACE /* //* //* ********************************************************************* //* //* STEP002 - RESTORE AGENT HISTORY //* VSAM FILE TO THE FSLPUCT //* //* NOTE- PBK.AGT.HIST IS ALSO CREATED IN P74M06AS, SO NEED TO //* MAKE SURE THE PROPER GEN FILE IS USED FOR THIS RESTORE. //* //* //* ********************************************************************* //* //* STEP0020 PGM=ADRDSSU GVRESTOR //* //STEP0020 EXEC PGM=ADRDSSU //* MODULE GVRESTOR PROCESSED BY PLUG-IN JCLTFAV1 //* MT I SYS000 UA 'PBK.AGT.HIST' RESTORE //SYS000 DD DSN=PBK.AGT.HIST(-78), // DISP=SHR //* VS VS O FSLPUCT A 'N72.AGENT.HIST.FILE' RESTORE //#RESTORE DD DUMMY,DSN=MVS.N72.AGENT.HIST.FILE //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * RESTORE - INDD(SYS000) - DATASET( - INCLUDE( - MVS.N72.AGENT.HIST.FILE - )) - SPHERE - REPLACE /* //* //* ********************************************************************* //* //* STEP003 - RESTORE AGENT RESERVE HISTORY //* VSAM FILE TO THE FSLPUCT //* //* NOTE- PBK.RES.HIST IS ALSO CREATED IN P74M06AS, SO NEED TO //* MAKE SURE THE PROPER GEN FILE IS USED FOR THIS RESTORE. //* //* ********************************************************************* //* //* STEP0030 PGM=ADRDSSU GVRESTOR //* //STEP0030 EXEC PGM=ADRDSSU //* MODULE GVRESTOR PROCESSED BY PLUG-IN JCLTFAV1 //* MT I SYS000 UA 'PBK.RES.HIST' RESTORE //SYS000 DD DSN=PBK.RES.HIST(-71), // DISP=SHR //* VS VS O FSLPUCT A 'N72.AGENT.RES.HIST' RESTORE //#RESTORE DD DUMMY,DSN=MVS.N72.AGENT.RES.HIST //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * RESTORE - INDD(SYS000) - DATASET( - INCLUDE( - MVS.N72.AGENT.RES.HIST - )) - SPHERE - REPLACE /* //* //* ********************************************************************* //* //* STEP004 - RESTORE SAM FILES TO DISK //* //* NOTE THAT IF P72M03AC IS RERUN, THEN THESE FILES USED IN //* P72M06AS WILL BE RECREATED. //* //* ********************************************************************* //* (THESE ARE CREATED IN P72M03AC) //* //* STEP0040 PGM=ADRDSSU DUSP //* //STEP0040 EXEC PGM=ADRDSSU //* MODULE DUSP PROCESSED BY PLUG-IN JCLTDUSP //* MT I SYS000 UA 'P72AGMST.D' RESTORE //SYS000 DD DSN=MVS.PROD.P72AGMST.D(0), // DISP=SHR //* SD O WSYS022 'N72STMT.C' RESTORE //#RESTORE DD DUMMY,DSN=MVS.N72STMT.C //* SD O WSYS024 'N72STMT.MERGE' RESTORE //#RESTORE DD DUMMY,DSN=MVS.N72STMT.MERGE //* SD O WSYS025 'N72STMT.RENEW' RESTORE //#RESTORE DD DUMMY,DSN=MVS.N72STMT.RENEW //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * RESTORE - INDD(SYS000) - DATASET( - INCLUDE( - MVS.N72STMT.C - MVS.N72STMT.MERGE - MVS.N72STMT.RENEW - )) - SPHERE - REPLACE /* //* //* ********************************************************************* //* //* STEP005 - BACK OUT GEN FILES CREATED IN P72M06AS. //* //* NOTE- PBK.AGT.HIST AND PBK.RES.HIST ARE ALSO CREATED IN //* P74M06AS, SO NEED TO DETERMINE IF NEED TO BACK THEM //* OUT ALSO. //* //* //* ********************************************************************* //* //* STEP0050 PGM=SPSERV //* //STEP0050 EXEC PGM=SPSERV //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * TFILE ID='PBK.AGMST',GEN=58,DEL TFILE ID='P72GLJF',GEN=56,DEL TFILE ID='PBK.AGT.HIST',GEN=78,DEL TFILE ID='PBK.AGT.HIST',GEN=79,DEL (FROM P74M06AS) TFILE ID='SDSPT.ME.P72M06AS',GEN=50,DEL TFILE ID='P72SCITR',GEN=51,DEL TFILE ID='PBK.RES.HIST',GEN=71,DEL TFILE ID='PBK.RES.HIST',GEN=72,DEL (FROM P74M06AS) TFILE ID='P72AGMST.D',GEN=53,DEL /* //
Return to the Sample Job Stream List