//***** //** TPS REPORT GENERATION //***** //DTSTPRPT PROC LDEST=U@PRT65, // LVDHOLD='YES' //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702 //DOESLBL1 EXEC PGM=IEBDG, 00001806 // COND=(0,LT) 00001906 //SYSPRINT DD SYSOUT=* 00002006 //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106 // UNIT=SYSDA, 00002206 // SPACE=(TRK,1), 00002306 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00002506 // DISP=SHR 00002606 //**** /* POPULATE THE LABELS WORK FILE 00003105 //DOESLBL2 EXEC PGM=IDCAMS, 00003206 // COND=(0,LT) 00003306 //SYSPRINT DD SYSOUT=* 00003405 //FILEIN DD DSN=&&TMP901, 00003505 // DISP=(OLD,DELETE,DELETE), 00003605 // UNIT=SYSDA 00003705 //DOESVRO1 DD DSN=&&LBL901, 00003805 // DISP=(NEW,PASS,DELETE), 00003905 // UNIT=SYSDA, 00004005 // SPACE=(8192,(1000,1000),RLSE), 00004105 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00004305 // DISP=SHR 00004405 //** 00004705 //STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION // COND=(0,LT) //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //** //PARMIN DD DUMMY //** //ATLSTIN DD DUMMY //** //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) //** //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001 //** 00100100 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //** //** NEW/REACT/DEACTIVATED EMPLYRS //RPT116R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR //RPT117R1 DD SYSOUT=W, // DEST=U@PRT155 //** '8 QTRS OF NONE' REPORT //RPT119R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** POTENTIONALLY FICTITIOUS EMPLOYERS //RPT120R1 DD SYSOUT=Z,COPIES=2, // DEST=&LDEST. //** EMPLYRS W/05/06/09/11 STATUS CODES //RPT123R1 DD SYSOUT=Z, // DEST=&LDEST. //** EMPLOYER ALPHA LIST //RPT125R1 DD SYSOUT=Z, // DEST=&LDEST. //** ACCOUNT NUMBER CHANGED //RPT204R1 DD SYSOUT=O, // DEST=&LDEST. //** TRIAL BAL RPT //RPT305R1 DD SYSOUT=Z, // DEST=&LDEST. //** ACCT SUMMARY RPT //RPT306R1 DD SYSOUT=Z, // DEST=&LDEST. //** EMPLR ACCT CREDIT BAL RPT //RPT308R1 DD SYSOUT=Z, // DEST=&LDEST. //** STATEMENT OF ACCT (CR-MEMO-SM) //RPT309R1 DD SYSOUT=W, // DEST=U@PRT155 //** STATEMENT OF ACCT (CR-MEMO-PC) //RPT309R2 DD SYSOUT=I, // DEST=&LDEST. //** STATEMENT OF ACCT - -CTRL RPT //RPT310R1 DD SYSOUT=Z, // DEST=&LDEST. //** OPEN APPEALS LIST //RPT410R1 DD SYSOUT=Z, // DEST=&LDEST. //** OPEN BANKRUPTCIES LIST //RPT411R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** ESTIMATED REPORT LIST //RPT412R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** NO ESTIMATED REPORT LIST //RPT412R2 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** WRITE OFF CANDIDATES LIST //RPT413R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** DELIQUENT REPORT NOTICES (UC-8) //RPT417R1 DD SYSOUT=W, // DEST=U@PRT155 //** DELINQUERNT EMPLYR ACCT NBR LIST //RPT418R1 DD SYSOUT=0 //** FINAL NOTICE DELINQUENCY LIST //** (NOW PRODUCED AS RPT422R2) //RPT420R1 DD DUMMY //**RPT420R1 DD SYSOUT=Z, //** DEST=&LDEST. //** FINAL DELINQUENCY NOTICE //RPT421R1 DD SYSOUT=W, // DEST=U@PRT155 //** FINAL DELINQUENCY REPORT LIST //RPT422R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** FINAL DELINQUENCY REPORT LIST (2) //RPT422R2 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** PRIOR DELINQUENT LIST - FLD REP/1 ENTRY //RPT423R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** PRIOR DELINQUENT LIST - FLD REP/2 ENTRIES //RPT423R2 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** PRIOR DELINQUENT LIST - FLD REP/3+ ENTRIES //RPT423R3 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** COLLECTIONS SUMMARY RPT //RPT426R1 DD SYSOUT=Z, // DEST=&LDEST. //** TOTAL BAL DUE > $?? RPT //RPT429R1 DD SYSOUT=Z,COPIES=2, // DEST=&LDEST. //** FIRST DELINQUENT ANNUAL SELF MAILER //RPT451R1 DD SYSOUT=W, // DEST=U@PRT155 //** FIRST DELINQUENT ANNUAL REPORT //RPT452R1 DD SYSOUT=Z, // DEST=&LDEST. //RPT452R2 DD SYSOUT=Z, // DEST=&LDEST. //** FINAL DELINQUENT ANNUAL SELF MAILER //RPT453R1 DD SYSOUT=W, // DEST=U@PRT155 //** FINAL DELINQUENT ANNUAL REPORT //RPT454R1 DD SYSOUT=Z, // DEST=&LDEST. //RPT454R2 DD SYSOUT=Z, // DEST=&LDEST. //** EMPLYRS QUALIFIED FOR EFF PENALTY //RPT518R1 DD SYSOUT=Z, // DEST=&LDEST. //** EMPLYRS QUALIFIED FOR PENALTY RATE //RPT519R1 DD SYSOUT=Z, // DEST=&LDEST. //** AUDIT SELECTION CRITERIA //RPT602R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** AUDIT CANDIDATES LIST //RPT602R2 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** ASSIGNMENT SUMMARY - FLD REP //RPT606R1 DD SYSOUT=Z, // DEST=&LDEST. //** ASSIGNMENT DETAIL - FLD REP //RPT607R1 DD SYSOUT=I, // DEST=&LDEST. //** ASSIGNMENT MANAGEMENT RPTS //RPT609R1 DD SYSOUT=Z, // DEST=&LDEST. //** ASSIGNMENT MANAGEMENT RPTS //RPT609R2 DD SYSOUT=Z, // DEST=&LDEST. //** ACT EMPLYRS BY ZIPCODE CNTS //RPT611R1 DD SYSOUT=Z, // DEST=&LDEST. //****CBDATA DD DUMMY //CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR //** AUDIT ASSGNMNTS W/NO AUDIT RESULTS //RPT612R1 DD SYSOUT=Z, // DEST=&LDEST. //** SUCCESSFUL FUTA CERTIFICATIONS //RPT704R1 DD SYSOUT=Z, // DEST=&LDEST. //** FAILED FUTA CERTIFICATIONS //RPT705R1 DD SYSOUT=Z, // DEST=&LDEST. //** POTENTIAL NON-FEDERAL FILERS //RPT708R1 DD SYSOUT=Z, // DEST=&LDEST. //** REQ. FOR FED-ID LETTER (MASS MAILING) //RPT712R1 DD SYSOUT=W, // DEST=U@PRT155 //** ETA-581 ELEMENT RECORDS (EXPORT) //RPT713R1 DD DSN=DOESTAX.&LVLNODE..RPT713,DISP=SHR //** //** ETA-581 SPEC DEPT OF LABOR REPORT //RPT713R2 DD SYSOUT=O,COPIES=2, // DEST=&LDEST. //** TPS STATUS DETERMINATION RCRDS (EXPORT) //RPT715R1 DD DSN=DOESTAX.&LVLNODE..RPT715.&TPSYRQ, // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=68,BLKSIZE=6800) //** //** TPS REPORT DELINQUENCY RECORDS (EXPORT) //RPT716R1 DD DSN=DOESTAX.&LVLNODE..RPT716(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=60,BLKSIZE=6000) //** //** TPS COLLECTION RECORDS (EXPORT) //RPT717R1 DD DSN=DOESTAX.&LVLNODE..RPT717.&TPSYRQ, // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=71,BLKSIZE=7100) //** //** TPS FIELD AUDIT RECORDS (EXPORT) //RPT718R1 DD DSN=DOESTAX.&LVLNODE..RPT718.&TPSYRQ, // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=60,BLKSIZE=6000) //** //** TPS CONTRIBUTION REPORT RECORDS (EXPORT) //RPT719R1 DD DSN=DOESTAX.&LVLNODE..RPT719(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=60,BLKSIZE=6000) //** //** TPS DB/BILLINGS RATED (CONTRIB) (EXPORT) //RPT720R1 DD DSN=DOESTAX.&LVLNODE..RPT720.&TPSYRQ., //* DISP=SHR, // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=82,BLKSIZE=82) //** //** TPS DB/BILLINGS SI (REIMBURS) (EXPORT) //RPT720R2 DD DSN=DOESTAX.&LVLNODE..RPT721.&TPSYRQ., //* DISP=SHR, // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=82,BLKSIZE=82) //** //** TPS CR/REFUNDS RATED (CONTRIB) (EXPORT) //RPT722R1 DD DSN=DOESTAX.&LVLNODE..RPT722.&TPSYRQ., // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=82,BLKSIZE=82) //** //** TPS EXPERIENCE RATING (EXPORT) //**RPT723R1 IS IN DTSARRPT //** ACCTS AVAIL FOR PURGE LST //RPT729R1 DD SYSOUT=Z, // DEST=&LDEST. //** WAGE FILE/TAX FILE COMPARISON //RPT737R1 DD SYSOUT=Z, // DEST=&LDEST. //** ELECTRONIC FILER LIST //RPT740R1 DD SYSOUT=Z, // DEST=&LDEST. //** CICS OP ID LIST //RPT791R1 DD SYSOUT=Z, // DEST=&LDEST. //** EMPLYRS W/A MISSING SIC //RPT792R1 DD SYSOUT=Z, // DEST=&LDEST. //** FUTA QTRLY FEIN CHANGES //RPT793R1 DD SYSOUT=W, // DEST=U@PRT155 //** WAGE RPTS (UC-30 QTRLY) //DTS902F1 DD DSN=DOESTAX.&LVLNODE..UC30DATA,DISP=SHR //** //** WAGE RPTS (UC-30 DAILY) //RPT902R1 DD DUMMY //** WAGE RPTS (UC-30 QTRLY WITH SUR CHARGE) //RPT902R2 DD SYSOUT=I //** ONLINE UPDT LOG PARMS (MUST BE HERE*) //PARM906 DD DUMMY,DCB=BLKSIZE=80 //** ONLINE UPDATE LOG RPT //RPT906R1 DD SYSOUT=Z, // DEST=&LDEST. //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** UNUSUAL CONDITIONS ENCOUNTERED REPORT //RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD., // DEST=&LDEST. //** UC-30 CNTS RPTN //RPT908R1 DD SYSOUT=Z, // DEST=&LDEST. //** WAGE RPTS (UC-30H YRLY) //DTS910F1 DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR //** //** WAGE RPTS (UC-30H DAILY) //RPT910R1 DD DUMMY //** CONTROL REPORT SUMMARY //RPT980R1 DD SYSOUT=X, // DEST=&LDEST. //** EXPORT CONTROL REPORTS //RPT991R1 DD SYSOUT=X, // DEST=&LDEST. //**** //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00131001 // COND=(0,LT), 00140000 // REGION=4096K 00150000 //DOESVRI1 DD DSN=&&LBL901, 00150101 // DISP=(OLD,DELETE,DELETE) 00150201 //SYSOUT DD SYSOUT=* 00151000 //SYSABOUT DD SYSOUT=* 00152000 //SYSABEND DD SYSOUT=* 00153000 //CAIMRPTS DD SYSOUT=* 00154000 //DOESLBL1 DD SYSOUT=(C), 00155101 // FCB=P104, 00155201 // DEST=U@PRT155, 00155302 // HOLD=&LHOLD. 00155403 //** 00157001 //**