//ECNTV910 JOB (UI,4300,3400,T),RQ910.VIEWDIR, 00000010 // CLASS=P,MSGCLASS=X, 00000010 // USER=#DOADTS, // NOTIFY=ECNTJP2, //*** NOTIFY=ECNTSUP, //**** TYPRUN=SCAN, // REGION=0M /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //**** /* VIEWDIRECT OPTIONS // SET LVLPROG='PROD' // SET LVLNODE='PROD' // SET LDEST=U@PRT65 // SET LVDHOLD='YES' //* JOB : RE-RUN REPORTS FROM THE QUARTERLY UC30 CONT. & WAGE RPTS. //**** /*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY //PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** SORT THE REPORT RECORDS //STEP0050 EXEC DTSRSORT, // RPTGEN='(+0)' //**** REPORT GENERATION //**** //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE //DOESLBL1 EXEC PGM=IEBDG, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), // UNIT=SYSDA, // SPACE=(TRK,1), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), // DISP=SHR //**** /* POPULATE THE LABELS WORK FILE //DOESLBL2 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //FILEIN DD DSN=&&TMP901, // DISP=(OLD,DELETE,DELETE), // UNIT=SYSDA //DOESVRO1 DD DSN=&&LBL901, // DISP=(NEW,PASS,DELETE), // UNIT=SYSDA, // SPACE=(8192,(1000,1000),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), // DISP=SHR //**** //STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION // COND=(0,LT) //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //** //PARMIN DD DUMMY //**//PARMIN DD * //**DTSBD800,INC,907,910, //**/* //** //ATLSTIN DD DUMMY //** //DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) //** //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) //** //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //** //** TPS REPORT CONTRIBUTION REPORTS (EXPORT) //RPT719R1 DD DUMMY //** CONTRIBUTION REPORTS (UC30 NOT NEEDED) //RPT902R1 DD DUMMY //** CONTRIBUTION REPORTS FILE (NOT NEEDED) //DTS902F1 DD DUMMY //** CONTRIBUTION REPORTS (UC30H NOT NEEDED) //RPT910R1 DD DUMMY //** CONTRIBUTION REPORTS FILE (NOT NEEDED) //DTS910F1 DD DUMMY //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //RPT907R1 DD SYSOUT=(Z,DTS907Y1),HOLD=&LVDHOLD., // DEST=&LDEST. //** UNUSUAL CONDITIONS REPORT (NOT NEEDED) //RPT907R2 DD DUMMY //** UC30 COUNTS (REPORT SUMMARY) //RPT908R1 DD SYSOUT=(Z,DTS908Y1),HOLD=&LVDHOLD., // DEST=&LDEST. //** CONTROL REPORT SUMMARY //RPT980R1 DD SYSOUT=(Q,DTS980Y1),HOLD=&LVDHOLD., // DEST=&LDEST. //** EXPORT CONTROL REPORTS (NONE FOR NOW) //RPT991R1 DD DUMMY //** EXPORT CONTROL REPORTS //**RPT991R1 DD SYSOUT=(Q,DTS991Q1),HOLD=&LVDHOLD., //** DEST=&LDEST. //* //* 00640000