//NNNNNNS JOB (ALA03),'NNNNNNN NNN NN',CLASS=A,MSGCLASS=H 00010008 /*ROUTE PRINT U5704 00030000 //**********************************************************************00040000 //* JOB NAME: PDS.SASRPW(RPWJOB4) - FORMERLY "J4RRUN97" USED 00060000 //**********************************************************************00060000 //* 00100000 //* I N S T R U C T I O N S 00050003 //* 00140000 //* 1. UPDATE DCB LRECL AND BLKSIZE PARAMETERS (IF CHANGED). 00140000 //* 2. ODSN FILES: ENTER CHANGE COMM: "CHANGE FY19YYPQ FY19YYPQ ALL" 00140000 //* "CHANGE FY19YYAP FY19YYAP ALL" 00140000 //* 3. IDSN FILES: UPDATE INDIVIDUALLY (AS REQUIRED) 00140000 //* 4. ENTER EMPTY (PLACEHOLDER) FILES: COPY "HSQRAN.BRPWD01.EMPTY" TO 00050003 //* "HSQRAN.BRPWT01.EMPTY.SXX.FY19YYQY" ("SXX" IS STEP NUMBER). 00050003 //* 5. SUBMIT JOB: 00140000 //* (1) CHECK SYSOUT (ALL STEPS) FOR COND CODE 0000; 00050003 //* FOR RERUN - DELETE FILES WITH TSO DELETE & "NOS" PARAM 00050003 //* AND CALL TAPE LIBRARY TO "SCRATCH" FROM TMS (OR TEST 00050003 //* USING RETPD=1 FOR 1-DAY). 00050003 //* (2) "NOT CATLG" INDICATES SAME NAME FILE PREVIOUSLY COPIED. 00050003 //* (IGNORE IF COND CODE =0000, OR CORRECT AND RERUN). 00050003 //* (3) USE TSO "TMS" (TAPE MGMT SYS) AND VOLSER NO. TO VERIFY. 00050003 //**********************************************************************00100000 //* 00100000 //* 00100000 //* 00100000 //COPIES PROC 00050003 //STEP1 EXEC PGM=IEBGENER 00054000 //SYSPRINT DD DUMMY 00055000 //SYSIN DD DUMMY 00056000 //SYSUT1 DD DISP=OLD, 00057000 // DSN=&IDSN 00060000 //SYSUT2 DD UNIT=TAPE, 00070005 // DISP=(NEW,CATLG), 00080000 // VOL=(,RETAIN,,REF=*.S01.STEP1.SYSUT2), 00090004 // LABEL=(&LABNUM.,SL,,,RETPD=1825), 00100000 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600), 00110000 // DSN=&ODSN 00120000 //COPIES PEND 00130000 //* 00130000 //* 00130000 //* 00130000 //********************************************************************* 00360000 //* BEG PROGRAMS * 00360000 //********************************************************************* 00360000 //S01 EXEC COPIES, 00150000 // LABNUM=1, 00160000 // IDSN='NNNNNN.PDS.SASRPW(RPWJOB1)', 00170000 // ODSN='HSQRAN.BRPWT01.RPWJOB1.FY2000Q4' 00180000 //STEP1.SYSUT2 DD VOL= 00190004 //*** 00360000 //*** 00360000 //S02 EXEC COPIES, 00200000 // LABNUM=2, 00210000 // IDSN='NNNNNN.PDS.SASRPW(RPWJOB2)', 00220000 // ODSN='HSQRAN.BRPWT01.RPWJOB2.FY2000Q4' 00180000 //*** 00360000 //*** 00360000 //S03 EXEC COPIES, 00200000 // LABNUM=3, 00210000 // IDSN='NNNNNN.PDS.SASRPW(RPWJOB3)', 00220000 // ODSN='HSQRAN.BRPWT01.RPWJOB3.FY2000Q4' 00180000 //*** 00360000 //*** 00360000 //S04 EXEC COPIES, 00320000 // LABNUM=4, 00330000 // IDSN='NNNNNN.PDS.SASRPW(RPWJOB4)', 00220000 // ODSN='HSQRAN.BRPWT01.RPWJOB4.FY2000Q4' 00180000 //********************************************************************* 00360000 //* END PROGRAMS * 00360000 //********************************************************************* 00360000 //* 00360000 //* 00360000 //* 00360000 //********************************************************************* 00360000 //* BEG JOB-1 * 00360000 //********************************************************************* 00360000 //* NOTE: S05-S08 MANUAL OFFICE DATA FILES FOR EACH AP - USE DUMMY. 00370000 //S05 EXEC COPIES, 00360000 // LABNUM=5, 00370000 // IDSN='HSQRAN.BRPWD01.MANUALS.FY200010', 00580000 // ODSN='HSQRAN.BRPWT01.MANUALS.FY200010' 00390000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) 00831001 //*** 00360000 //*** 00360000 //S06 EXEC COPIES, 00360000 // LABNUM=6, 00370000 // IDSN='HSQRAN.BRPWD01.MANUALS.FY200011', 00580000 // ODSN='HSQRAN.BRPWT01.MANUALS.FY200011' 00390000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) 00831001 //*** 00360000 //*** 00360000 //S07 EXEC COPIES, 00360000 // LABNUM=7, 00370000 // IDSN='HSQRAN.BRPWD01.MANUALS.FY200012', 00580000 // ODSN='HSQRAN.BRPWT01.MANUALS.FY200012' 00390000 //* IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 //* ODSN='HSQRAN.BRPWT01.EMPTY.S07.FY2000Q4' 00390000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) 00831001 //*** 00360000 //*** 00360000 //S08 EXEC COPIES, 00360000 // LABNUM=8, 00370000 // IDSN='HSQRAN.BRPWD01.MANUALS.FY200013', 00580000 // ODSN='HSQRAN.BRPWT01.MANUALS.FY200013' 00390000 //* IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 //* ODSN='HSQRAN.BRPWT01.EMPTY.S08.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) 00831001 //*** 00360000 //*** 00360000 //S09 EXEC COPIES, 00440000 // LABNUM=9, 00450000 //* NOTE: S09 NO CHANGE TO F.Y.1.9.9.6.Q.1 UNLESS PANEL CHANGE MADE. 00380000 // IDSN='HSQRAN.BRPWD01.MANUALS.FRMQ199', 00380000 // ODSN='HSQRAN.BRPWT01.MANUALS.FRMQ199.FY2000Q4' 00380000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=120,BLKSIZE=2400) 00831001 //*** 00360000 //*** 00360000 //* NOTE: S10-S13 FRAME FILE FOR EACH AP (USE DUMMY) 00360000 //S10 EXEC COPIES, 00480000 // LABNUM=10, 00490000 // IDSN='HSISMN.BRPWD01.OFFLIST.FY200010(0)', 00380000 // ODSN='HSQRAN.BRPWT01.OFFLIST.FY200010' 00390000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*** 00360000 //*** 00360000 //S11 EXEC COPIES, 00480000 // LABNUM=11, 00490000 // IDSN='HSISMN.BRPWD01.OFFLIST.FY200011(0)', 00380000 // ODSN='HSQRAN.BRPWT01.OFFLIST.FY200011' 00390000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*** 00360000 //*** 00360000 //S12 EXEC COPIES, 00480000 // LABNUM=12, 00490000 // IDSN='HSISMN.BRPWD01.OFFLIST.FY200012(0)', 00380000 // ODSN='HSQRAN.BRPWT01.OFFLIST.FY200012' 00390000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*** 00360000 //*** 00360000 //S13 EXEC COPIES, 00480000 // LABNUM=13, 00490000 // IDSN='HSISMN.BRPWD01.OFFLIST.FY200013(0)', 00380000 // ODSN='HSQRAN.BRPWT01.OFFLIST.FY200013' 00390000 //* IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 //* ODSN='HSQRAN.BRPWT01.EMPTY.S13.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*** 00360000 //*** 00360000 //S14 EXEC COPIES, 00520000 // LABNUM=14, 00530000 // IDSN='HSQRAN.BRPWD01.EDITDAT1.FY2000Q4', 00550000 // ODSN='HSQRAN.BRPWT01.EDITDAT1.FY2000Q4' 00550000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=125,BLKSIZE=5000) 00831001 //********************************************************************* 00360000 //* END JOB-1 * 00360000 //********************************************************************* 00360000 //* 00360000 //* 00360000 //* 00360000 //********************************************************************* 00360000 //* BEG JOB-2 * 00360000 //********************************************************************* 00360000 //* NOTE: S15-S26 FOUR FILES FOR EACH MAIL CLASS (USE DUMMY) 00560000 //* USE 'HSQRAN.BRPWD01.EMPTY' FOR DUMMY 00580000 //S15 EXEC COPIES, 00560000 // LABNUM=15, 00570000 // IDSN='HSQRAN.BRPWD01.RATES1C.JAN1099', 00580000 // ODSN='HSQRAN.BRPWT01.RATES1C.JAN1099.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S16 EXEC COPIES, 00560000 // LABNUM=16, 00570000 // IDSN='HSQRAN.BRPWD01.RATES1C.OCT0498', 00580000 // ODSN='HSQRAN.BRPWT01.RATES1C.OCT0498.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S17 EXEC COPIES, 00560000 // LABNUM=17, 00570000 // IDSN='HSQRAN.BRPWD01.RATES1C.OCT0597', 00580000 // ODSN='HSQRAN.BRPWT01.RATES1C.OCT0597.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S18 EXEC COPIES, 00560000 // LABNUM=18, 00570000 // IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 // ODSN='HSQRAN.BRPWT01.EMPTY.S18.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*TEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S19 EXEC COPIES, 00560000 // LABNUM=19, 00570000 // IDSN='HSQRAN.BRPWD01.RATESPD.JAN1099', 00580000 // ODSN='HSQRAN.BRPWT01.RATESPD.JAN1099.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S20 EXEC COPIES, 00560000 // LABNUM=20, 00570000 // IDSN='HSQRAN.BRPWD01.RATESPD.OCT0498', 00580000 // ODSN='HSQRAN.BRPWT01.RATESPD.OCT0498.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S21 EXEC COPIES, 00560000 // LABNUM=21, 00570000 // IDSN='HSQRAN.BRPWD01.RATESPD.OCT0597', 00580000 // ODSN='HSQRAN.BRPWT01.RATESPD.OCT0597.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S22 EXEC COPIES, 00560000 // LABNUM=22, 00570000 // IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 // ODSN='HSQRAN.BRPWT01.EMPTY.S22.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*TEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S23 EXEC COPIES, 00560000 // LABNUM=23, 00570000 // IDSN='HSQRAN.BRPWD01.RATESSA.JAN1099', 00580000 // ODSN='HSQRAN.BRPWT01.RATESSA.JAN1099.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S24 EXEC COPIES, 00560000 // LABNUM=24, 00570000 // IDSN='HSQRAN.BRPWD01.RATESSA.OCT0498', 00580000 // ODSN='HSQRAN.BRPWT01.RATESSA.OCT0498.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S25 EXEC COPIES, 00560000 // LABNUM=25, 00570000 // IDSN='HSQRAN.BRPWD01.RATESSA.OCT0597', 00580000 // ODSN='HSQRAN.BRPWT01.RATESSA.OCT0597.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S26 EXEC COPIES, 00560000 // LABNUM=26, 00570000 // IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 // ODSN='HSQRAN.BRPWT01.EMPTY.S26.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*TEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S27 EXEC COPIES, 00560000 // LABNUM=27, 00570000 // IDSN='HSQRAN.BRPWD01.RATESSB.JAN1099', 00580000 // ODSN='HSQRAN.BRPWT01.RATESSB.JAN1099.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S28 EXEC COPIES, 00560000 // LABNUM=28, 00570000 // IDSN='HSQRAN.BRPWD01.RATESSB.OCT0498', 00580000 // ODSN='HSQRAN.BRPWT01.RATESSB.OCT0498.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S29 EXEC COPIES, 00560000 // LABNUM=29, 00570000 // IDSN='HSQRAN.BRPWD01.RATESSB.OCT0597', 00580000 // ODSN='HSQRAN.BRPWT01.RATESSB.OCT0597.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S30 EXEC COPIES, 00560000 // LABNUM=30, 00570000 // IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 // ODSN='HSQRAN.BRPWT01.EMPTY.S30.FY2000Q4' 00580000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*TEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=132,BLKSIZE=13200) 00831001 //*** 00560000 //*** 00560000 //S31 EXEC COPIES, 00600000 // LABNUM=31, 00610000 // IDSN='HSQRAN.BRPWD01.EDITDAT2.FY2000Q4', 00630000 // ODSN='HSQRAN.BRPWT01.EDITDAT2.FY2000Q4' 00630000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=150,BLKSIZE=6000) 00831001 //********************************************************************* 00360000 //* END JOB-2 * 00360000 //********************************************************************* 00360000 //* 00360000 //* 00360000 //* 00360000 //********************************************************************* 00360000 //* BEG JOB-3 * 00360000 //********************************************************************* 00360000 //S32 EXEC COPIES, 00640000 // LABNUM=32, 00650000 // IDSN='HSISMN.RPW.FY2000.CATEGORY.DIR', 00660000 // ODSN='HSQRAN.BRPWT01.FY2000.CATEGORY.DIR.FY2000Q4' 00660000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=110,BLKSIZE=3300) 00831001 //*** 00360000 //*** 00360000 //S33 EXEC COPIES, 00640000 // LABNUM=33, 00650000 // IDSN='HSISMN.RPW.ADJ.CNTL2000(SUMDIR)', 00660000 // ODSN='HSQRAN.BRPWT01.ADJ.CNTL2000.SUMDIR.FY2000Q4' 00660000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) 00831001 //*** 00360000 //*** 00360000 //*** 00360000 //*** 00360000 //S34 EXEC COPIES, 00680000 // LABNUM=34, 00690000 // IDSN='HSISMN.RPW.REVCNTL.FY200010', 00710002 // ODSN='HSQRAN.BRPWT01.REVCNTL.FY200010' 00710002 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=110,BLKSIZE=2200) 00831001 //*** 00360000 //*** 00360000 //S35 EXEC COPIES, 00680000 // LABNUM=35, 00690000 // IDSN='HSISMN.RPW.REVCNTL.FY200011', 00710002 // ODSN='HSQRAN.BRPWT01.REVCNTL.FY200011' 00710002 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=110,BLKSIZE=2200) 00831001 //*** 00360000 //*** 00360000 //S36 EXEC COPIES, 00680000 // LABNUM=36, 00690000 // IDSN='HSISMN.RPW.REVCNTL.FY200012', 00710002 // ODSN='HSQRAN.BRPWT01.REVCNTL.FY200012' 00710002 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=110,BLKSIZE=2200) 00831001 //*** 00360000 //*** 00360000 //S37 EXEC COPIES, 00680000 // LABNUM=37, 00690000 // IDSN='HSISMN.RPW.REVCNTL.FY200013', 00710002 // ODSN='HSQRAN.BRPWT01.REVCNTL.FY200013' 00710002 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=110,BLKSIZE=2200) 00831001 //* IDSN='HSQRAN.BRPWD01.EMPTY', 00580000 //* ODSN='HSQRAN.BRPWT01.EMPTY.S37.FY2000Q4' 00710002 //*TEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) 00831001 //*** 00360000 //*** 00360000 //S38 EXEC COPIES, 00640000 // LABNUM=38, 00650000 // IDSN='HSQRAN.BRPWD01.INFLATE1.FY2000Q4', 00670000 // ODSN='HSQRAN.BRPWT01.INFLATE1.FY2000Q4' 00670000 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=240,BLKSIZE=4800) 00831001 //*** 00360000 //*** 00360000 //S39 EXEC COPIES, 00680000 // LABNUM=39, 00690000 // IDSN='HSQRAN.BRPWD01.TRANS.FY2000Q4', 00710002 // ODSN='HSQRAN.BRPWT01.TRANS.FY2000Q4' 00710002 //STEP1.SYSUT2 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=2400) 00831001 //********************************************************************* 00360000 //* END JOB-3 * 00360000 //********************************************************************* 00360000 /* 00360000