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