//BCGBQ737 JOB (UI,4300,3400,T),COMP.WG.TAX,CLASS=P,MSGCLASS=X, // NOTIFY=DCGGAB, //**** TYPRUN=SCAN, //**** USER=OPCSUB, // REGION=0M /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //**** // SET LVLNODE='PROD' // SET LVDHOLD='YES' // SET LHOLD='YES' // SET UINODE='PROD' //**** //* ON REQUEST REPORT DTSBR737 - //* WAGE FILE - TAX FILE COMPARE //**** //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //** //* NO BACKUP NEEDED BEFORE THIS REPORT //** //STEP0100 EXEC DTSUX737, // YRQ='081', (CAL. YR THRU THIS QTR) // TAMT1='90000', (BEGIN 1ST RANGE TO REPORT) // TAMT2='95000', (BEGIN 2ND RANGE) // TAMT3='99999' (BEGIN 3RD RANGE) //* //* REPORT RECORD SORT //STEP0200 EXEC DTSRSORT //* REPORT GENERATION //STEP0300 EXEC DTSRQRPT //DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200 //STEP0100.RPT737R1 DD SYSOUT=(*) //*TEP0100.RPT737R1 DD SYSOUT=(V,DTS737R1),HOLD=&LVDHOLD. //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //*TEP0100.RPT907R1 DD SYSOUT=(V,DTS907R1),HOLD=&LVDHOLD. //STEP0100.RPT907R1 DD SYSOUT=(*) //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //STEP0100.RPT907R2 DD DUMMY //** CONTROL REPORT SUMMARY //STEP0100.RPT980R1 DD SYSOUT=(V,DTS980R1),HOLD=&LVDHOLD. //*