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