Return to the Sample Job Stream List

FZPSD63J Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FZPSD63J,USER='FPS '
// JOB FZPSD63J (BFPD3320)  RET PURGED POL FROM TAPE
* $$ LST CLASS=Q,DISP=H,LST=SYSLST,FNO=LPO1,USER='GARY THIGPEN'
* $$ LST CLASS=G,DISP=K,LST=01E,FNO=LPO1,USER='GARY THIGPEN'
/* ===== NO UPDATE FOR FPS UTILITY FILE ====
// UPSI 01000000                        01=PROD ONLY
// ASSGN SYS005,SYSIPT
// EXEC OPNCLSB
BFPD3320
NFPSUTIL
NFPSPIF1
NFPSPIF2
NBCRMSTH
NBCRMSTC
/*
// EXEC  TDYNASN
// ASSGN SYS016,DUMMY
/*
/* ============== REPORTS ==================
/*      SYSLST           DISPLAYS
// ASSGN SYS007,X'01E'   ERROR REPORT
/* ============== INPUT ====================
/*
// DLBL CONT0,'PROD.FPS.CONTROL.FILE0',0,VSAM,CAT=VSAM05,              *
               RECORDS=76,RECSIZE=92
// TLBL TAPE1,'FPSPIFYE.(-0),U'      FPS YEARLY PIF'S
// TLBL TAPE2,'FPSPIFYE.(-1),U'
// TLBL TAPE3,'FPSPIFYE.(-2),U'
// TLBL TAPE4,'FPSPIFYE.(-3),U'
// TLBL TAPE5,'FPSPIFYE.(-4),U'
// TLBL TAPE6,'FPSPIFYE.(-5),U'
// TLBL TAPE7,'FPSPIFYE.(-6),U'
// TLBL TAPE8,'FPSPIFYE.(-7),U'
// TLBL TAPE9,'FPSPIFYE.(-8),U'
// TLBL TAPE10,'FPSPIFYE.(-9),U'
// TLBL TAPE11,'FPSPIFYE.(-10),U'
// TLBL TAPE12,'FPSPIFYE.(-11),U'
// TLBL TAPE13,'FPSPIFYE.(-12),U'
// TLBL TAPE14,'FPSPIFYE.(-13),U'
// TLBL TAPE15,'FPSPIFYE.(-14),U'
/* ============== I/O  =====================
/*      FPSUTIL             FPS UTILITY FILE
/*      FPSPIF1 / FPSPIF2   DISK PIF
/*      BCRMSTH             ACRI HISTORY
/*      BCRMSTC             ACRI CURRENT
/* ============== EXECUTION ================
// EXEC BFPD3320,SIZE=(BFPD3320,64K)
/*
// ASSGN SYS005,SYSIPT
// UPSI 01000000        01=PROD ONLY
// EXEC OPNCLSB
BFPD3320
UFPSUTIL
UFPSPIF1
UFPSPIF2
UBCRMSTH
UBCRMSTC
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FZPSD63J JOB (FZPSD63J),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PROC=MTPBATCH                                         OPNCLSB
//*
//STEP0010 EXEC PROC=MTPBATCH
//* MODULE OPNCLSB PROCESSED BY PLUG-IN OPNCLSB
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN    DD  *
CICS PRDCICS2
INQY FPSUTIL
INQY FPSPIF1
INQY FPSPIF2
INQY BCRMSTH
INQY BCRMSTC
/*
//*
//*  --> PGM=TDYNASN  <-- DELETED
//*
//*     STEP0020  PGM=BFPD3320
//*
//STEP0020 EXEC PGM=BFPD3320,PARM='/UPSI(01000000)'
//* SD VS    I VSAM05              'PROD.FPS.CONTROL.FILE0'
//CONT0    DD  DSN=PROD.FPS.CONTROL.FILE0,
//             DISP=SHR
//* VS VS    I VSAM11   S          'PROD.FPS.ACRI.CURRENT'
//BCRMSTC  DD  DSN=MVS.PROD.FPS.ACRI.CURRENT,
//             DISP=SHR
//* VS VS    U VSAM11   S          'PROD.FPS.UTILITY'
//FPSUTIL  DD  DSN=MVS.PROD.FPS.UTILITY,
//             DISP=SHR
//* VS VS    U VSAM11   S          'PROD.FPS.ACRI.HISTORY'
//BCRMSTH  DD  DSN=MVS.PROD.FPS.ACRI.HISTORY,
//             DISP=SHR
//* MT I SYS016 480            'FPSPIFYE.(-0),U'
//TAPE1    DD  DSN=PROD.FPSPIFYE(0),
//             DISP=SHR
//* MT I SYS016 480            'FPSPIFYE.(-1),U'
//TAPE2    DD  DSN=PROD.FPSPIFYE(-1),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-2),U'
//TAPE3    DD  DSN=PROD.FPSPIFYE(-2),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-3),U'
//TAPE4    DD  DSN=PROD.FPSPIFYE(-3),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-4),U'
//TAPE5    DD  DSN=PROD.FPSPIFYE(-4),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-5),U'
//TAPE6    DD  DSN=PROD.FPSPIFYE(-5),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-6),U'
//TAPE7    DD  DSN=PROD.FPSPIFYE(-6),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-7),U'
//TAPE8    DD  DSN=PROD.FPSPIFYE(-7),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-8),U'
//TAPE9    DD  DSN=PROD.FPSPIFYE(-8),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-9),U'
//TAPE10   DD  DSN=PROD.FPSPIFYE(-9),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-10),U'
//TAPE11   DD  DSN=PROD.FPSPIFYE(-10),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-11),U'
//TAPE12   DD  DSN=PROD.FPSPIFYE(-11),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-12),U'
//TAPE13   DD  DSN=PROD.FPSPIFYE(-12),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-13),U'
//TAPE14   DD  DSN=PROD.FPSPIFYE(-13),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* MT I SYS016 480            'FPSPIFYE.(-14),U'
//TAPE15   DD  DSN=PROD.FPSPIFYE(-14),
//             DISP=SHR,
//             UNIT=AFF=TAPE1
//* PR O SYS007 01E 0002
//REPORT1  DD  SYSOUT=(G,,LPO1)
//SYSOUT  INCLUDE MEMBER=SYSOUT
//*
//*     STEP0030  PROC=MTPBATCH                                         OPNCLSB
//*
//STEP0030 EXEC PROC=MTPBATCH
//* MODULE OPNCLSB PROCESSED BY PLUG-IN OPNCLSB
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN    DD  *
CICS PRDCICS2
UPDT FPSUTIL
UPDT FPSPIF1
UPDT FPSPIF2
UPDT BCRMSTH
UPDT BCRMSTC
/*
//
   

Return to the Sample Job Stream List