Return to the Sample Job Stream List

R72M06AS Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

//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