//DTSCHGA1 JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X, 00010099 //**** TYPRUN=SCAN, 00020099 // NOTIFY=ECNTSUP,REGION=0M 00030099 //**** 00040000 //* ANNUAL CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099 //**** 00041199 //**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299 //******************************************************************* 00042099 //8/13/12 PER TOM THIS JOB IS NO LONGER REQUIRED * 00042199 //******************************************************************* 00042299 //*DO NOT RUN THIS JOB UNTIL FUTHER NOTICE ZL1 8/14/12 ** 00042399 //******************************************************************* 00042499 // SET PRGNODE='PROD' 00043099 // SET LVLNODE='PROD' 00044099 // SET MSTNODE='PROD' 00045199 // SET CHGNODE='PROD' 00046099 // SET UINODE='PROD' 00047000 // SET CHGMNBR='CHGM002' 00048000 // SET CHGMSSN='CHGM030' 00049000 // SET QTRLY='FY2012' 00050099 // SET LDEST='LOCAL' 00070000 // SET LHOLD='YES' 00080000 // SET LVDHOLD='YES' 00081099 //***** 00090000 //****PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100099 //****LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110099 //**** 00120000 //**** 00130000 //STEP0100 EXEC DTSUXCGR 00140099 //*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099 //*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099 //STEP0300.EXTPARM DD * 00170065 ANN, , ,YNNNNN,000000 00190099 /* 00210000 //*ANN, , ,YYYYYY,000000 00220099 //*QTR, , ,YYYYNY,000000 00230099 //*EMP,070106,063007,YNNNNN,154162 00240099 //********************************************************************* 00940071 //STEP0200 EXEC PGM=CHGBD301, 00951099 // COND=(0,LT) 00970000 //SYSOUT DD SYSOUT=* 00980000 //SYSABOUT DD SYSOUT=* 00990000 //SYSUDUMP DD SYSOUT=* 01000000 //** 01010000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01020000 //** 01030000 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 01080099 // DISP=SHR, 01080199 //* DISP=(NEW,CATLG,DELETE), 01081099 // UNIT=SYSDA, 01082099 // SPACE=(80,(2,10),RLSE), 01083099 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 01084099 //** 01120000 //BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY, 01130099 // DISP=SHR, 01131099 //* DISP=(NEW,CATLG,DELETE), 01131199 // UNIT=SYSDA, 01132099 // SPACE=(31040,(1000,1000),RLSE), 01133099 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 01134099 //*D220CHG DD DSN=&&BD220RPT, 01140099 //* DISP=(OLD,PASS,DELETE) 01150099 //** 01160000 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01170000 // AMP=('BUFNI=5,BUFND=10') 01180000 //** 01190000 //RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 01210000 // DISP=(NEW,CATLG,DELETE), 01230099 //** DISP=(OLD,KEEP,KEEP), 01231099 // UNIT=SYSDA, 01240099 // SPACE=(8000,(1000,1000),RLSE), 01250099 // DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 01260099 //** 01270000 //TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 01301099 // DISP=(NEW,CATLG,DELETE), 01310099 //** DISP=(OLD,KEEP,KEEP), 01320099 // UNIT=SYSDA, 01330000 // SPACE=(11800,(1000,1000),RLSE), 01340000 // DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 01350000 //** 01360000 //** TO BE PROCESSED IN THE NEXT DAILY RUN 01370000 //*TSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 01380099 //* DISP=(,CATLG,DELETE), 01390099 //* UNIT=SYSDA, 01400099 //* SPACE=(8192,(1000,1000),RLSE), 01410099 //* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099 //** 01430000 //** SM - TOTAL CHARGES (RATED) 01440000 //RPC100R1 DD SYSOUT=*, 01451099 // DEST=&LDEST., 01460000 // HOLD=&LHOLD. 01470000 //** CHRG SUMMARY-RATED 01480000 //RPC100R3 DD SYSOUT=O 01491099 //** 01520099 //**** SORT REPORT RECORDS (901/907) 01800000 //STEP0150 EXEC PGM=SORT, 01810000 // COND=(0,LT), 01820000 // REGION=0M 01830000 //SYSOUT DD SYSOUT=* 01840000 //SORTIN DD DSN=&&BD205RPT, 01860099 // DISP=(OLD,DELETE,DELETE) 01870099 //SORTOUT DD DSN=&&SRTRPT, 01880000 // DISP=(,PASS,DELETE), 01890000 // UNIT=SYSDA, 01900000 // SPACE=(16384,(1000,1000),RLSE), 01910000 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01920000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 01930099 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01940099 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01950000 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01960000 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01970000 //* 01980000 //**** 01990000 //STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 02000000 // COND=(0,LT) 02010000 //SYSOUT DD SYSOUT=* 02020000 //SYSABOUT DD SYSOUT=* 02030000 //SYSUDUMP DD SYSOUT=* 02040000 //** 02050000 //DTSFVRI1 DD DSN=&&SRTRPT, 02060000 // DISP=(OLD,DELETE,DELETE) 02070000 //** 02080000 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 02090062 // AMP=('BUFNI=5,BUFND=10') 02100000 //** 02110000 //PARMIN DD DUMMY 02120000 //** 02130000 //ATLSTIN DD DUMMY 02140000 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02150000 //RPT907R1 DD SYSOUT=Z, 02160000 // DEST=&LDEST., 02170000 // HOLD=&LHOLD. 02180000 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02190000 //RPT907R2 DD SYSOUT=Z, 02200000 // DEST=&LDEST., 02210000 // HOLD=&LHOLD. 02220000 //** CONTROL REPORT SUMMARY 02230000 //RPT980R1 DD SYSOUT=Q,COPIES=2, 02240000 // HOLD=&LHOLD., 02250000 // DEST=&LDEST. 02260000 //** 02270000