321 lines
14 KiB
Plaintext
321 lines
14 KiB
Plaintext
//*****
|
|
//** 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
|
|
//**
|