264 lines
12 KiB
Plaintext
264 lines
12 KiB
Plaintext
//*****
|
|
//** ON REQ RPT GENERATION
|
|
//*****
|
|
//DTSVQRPT PROC
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
|
|
//DOESLBL1 EXEC PGM=IEBDG 00001801
|
|
//SYSPRINT DD SYSOUT=* 00001900
|
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002001
|
|
// UNIT=SYSDA, 00002100
|
|
// SPACE=(TRK,1), 00002202
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002300
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00002405
|
|
// DISP=SHR 00002505
|
|
//**** /* POPULATE THE LABELS WORK FILE 00003105
|
|
//DOESLBL2 EXEC PGM=IDCAMS 00003205
|
|
//SYSPRINT DD SYSOUT=* 00003305
|
|
//FILEIN DD DSN=&&TMP901, 00003405
|
|
// DISP=(OLD,DELETE,DELETE), 00003505
|
|
// UNIT=SYSDA 00003605
|
|
//DOESVRO1 DD DSN=&&LBL901, 00003705
|
|
// DISP=(NEW,PASS,DELETE), 00003805
|
|
// UNIT=SYSDA, 00003905
|
|
// SPACE=(8192,(1000,1000),RLSE), 00004005
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004105
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00004205
|
|
// DISP=SHR 00004305
|
|
//****
|
|
//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=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR
|
|
//RPT117R1 DD SYSOUT=W,HOLD=&LHOLD.,
|
|
// DEST=U@PRT155
|
|
//** '8 QTRS OF NONE' REPORT
|
|
//RPT119R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** POTENTIONALLY FICTITIOUS EMPLOYERS
|
|
//RPT120R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** EMPLYRS W/05/06/09/11 STATUS CODES
|
|
//RPT123R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** EMPLOYER ALPHA LIST
|
|
//RPT125R1 DD SYSOUT=(Z,DTS125R1),HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** TRIAL BAL RPT
|
|
//RPT305R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ACCT SUMMARY RPT
|
|
//RPT306R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** EMPLR ACCT CREDIT BAL RPT
|
|
//RPT308R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** STATEMENT OF ACCT (CR-MEMO-SM)
|
|
//RPT309R1 DD SYSOUT=W,HOLD=&LHOLD.,
|
|
// DEST=U@PRT155
|
|
//** STATEMENT OF ACCT (CR-MEMO-PC)
|
|
//RPT309R2 DD SYSOUT=I,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** STATEMENT OF ACCT - CTRL RPT
|
|
//RPT310R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** OPEN APPEALS LIST
|
|
//RPT410R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** OPEN BANKRUPTCIES LIST
|
|
//RPT411R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ESTIMATED REPORT LIST
|
|
//RPT412R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** "NO ESTIMATED REPORT" LIST
|
|
//RPT412R2 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** WRITE OFF CANDIDATES LIST
|
|
//RPT413R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** DELIQUENT REPORT NOTICES (UC-8)
|
|
//RPT417R1 DD SYSOUT=W,HOLD=&LHOLD.,
|
|
// DEST=U@PRT155
|
|
//** DELINQUERNT EMPLYR ACCT NBR LIST
|
|
//RPT418R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** FINAL NOTICE DELINQUENCY LIST
|
|
//RPT420R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** FINAL DELINQUENCY NOTICE
|
|
//RPT421R1 DD SYSOUT=W,HOLD=&LHOLD.,
|
|
// DEST=U@PRT155
|
|
//** FINAL DELINQUENCY REPORT LIST
|
|
//RPT422R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** FINAL DELINQUENCY REPORT LIST (2)
|
|
//RPT422R2 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** PRIOR DELINQUENT LIST - FLD REP
|
|
//RPT423R1 DD SYSOUT=(Z,DTS423R1),HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** COLLECTIONS SUMMARY RPT
|
|
//RPT426R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** TOTAL BAL DUE > $?? RPT
|
|
//RPT429R1 DD SYSOUT=Z,HOLD=&LHOLD., /* COPIES=2, /* (FOR PROD)
|
|
// DEST=&LDEST.
|
|
//** EMPLYRS QUALIFIED FOR EFF PENALTY
|
|
//RPT518R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** EMPLYRS QUALIFIED FOR PENALTY RATE
|
|
//RPT519R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** AUDIT SELECTION CRITERIA
|
|
//RPT602R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** AUDIT CANDIDATES LIST
|
|
//RPT602R2 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ASSIGNMENT SUMMARY - FLD REP
|
|
//RPT606R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ASSIGNMENT DETAIL - FLD REP
|
|
//RPT607R1 DD SYSOUT=I,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ASSIGNMENT MANAGEMENT RPTS
|
|
//RPT609R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ASSIGNMENT MANAGEMENT RPTS
|
|
//RPT609R2 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ACT EMPLYRS BY ZIPCODE CNTS
|
|
//RPT611R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//CBDATA DD DUMMY
|
|
//** AUDIT ASSGNMNTS W/NO AUDIT RESULTS
|
|
//RPT612R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** SUCCESSFUL FUTA CERTIFICATIONS
|
|
//RPT704R1 DD SYSOUT=(Z,DTS704Y1),HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** FAILED FUTA CERTIFICATIONS
|
|
//RPT705R1 DD SYSOUT=(Z,DTS705Y1),HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** POTENTIAL NON-FEDERAL FILERS
|
|
//RPT708R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** REQ. FOR FED-ID LETTER (MASS MAILING)
|
|
//RPT712R1 DD SYSOUT=W,HOLD=&LHOLD.,
|
|
// 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,HOLD=&LHOLD., /* COPIES=2, /* (FOR PROD)
|
|
// DEST=&LDEST.
|
|
//** TPS STATUS DETERMINATION RCRDS (EXPORT)
|
|
//RPT715R1 DD DSN=DOESTAX.&LVLNODE..RPT715,DISP=SHR
|
|
//**
|
|
//** TPS REPORT DELINQUENCY RECORDS (EXPORT)
|
|
//RPT716R1 DD DSN=DOESTAX.&LVLNODE..RPT716,DISP=SHR
|
|
//**
|
|
//** TPS COLLECTION RECORDS (EXPORT)
|
|
//RPT717R1 DD DSN=DOESTAX.&LVLNODE..RPT717,DISP=SHR
|
|
//**
|
|
//** TPS FIELD AUDIT RECORDS (EXPORT)
|
|
//RPT718R1 DD DSN=DOESTAX.&LVLNODE..RPT718,DISP=SHR
|
|
//**
|
|
//** TPS CONTRIBUTION REPORT RECORDS (EXPORT)
|
|
//RPT719R1 DD DSN=DOESTAX.&LVLNODE..RPT719,DISP=SHR
|
|
//**
|
|
//** TPS DB/BILLINGS RATED (CONTRIB) (EXPORT)
|
|
//RPT720R1 DD DSN=DOESTAX.&LVLNODE..RPT720,DISP=SHR
|
|
//**
|
|
//** TPS DB/BILLINGS SI (REIMBURS) (EXPORT)
|
|
//RPT720R2 DD DSN=DOESTAX.&LVLNODE..RPT721,DISP=SHR
|
|
//**
|
|
//** TPS CR/REFUNDS RATED (CONTRIB) (EXPORT)
|
|
//RPT722R1 DD DSN=DOESTAX.&LVLNODE..RPT722,DISP=SHR
|
|
//**
|
|
//** TPS EXPERIENCE RATING (EXPORT)
|
|
//**RPT723R1 IS IN DTSARRPT
|
|
//**
|
|
//** ACCTS AVAIL FOR PURGE LST
|
|
//RPT729R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** WAGE FILE/TAX FILE COMPARISON
|
|
//RPT737R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** ELECTRONIC FILER LIST
|
|
//RPT740R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** CICS OP ID LIST
|
|
//RPT791R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** EMPLYRS W/A MISSING SIC
|
|
//RPT792R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** FUTA QTRLY FEIN CHANGES
|
|
//RPT793R1 DD SYSOUT=W,HOLD=&LHOLD.,
|
|
// DEST=U@PRT155
|
|
//** WAGE RPTS (UC-30 QTRLY)
|
|
//DTS902F1 DD DSN=DOESTAX.&LVLNODE..UC30DATA,DISP=SHR
|
|
//**
|
|
//** WAGE RPTS (UC-30 DAILY)
|
|
//RPT902R1 DD DUMMY
|
|
//** ONLINE UPDT LOG PARMS (MUST BE HERE*)
|
|
//PARM906 DD DUMMY,DCB=BLKSIZE=80
|
|
//** ONLINE UPDATE LOG RPT
|
|
//RPT906R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//**RPT907R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
//** DEST=&LDEST.
|
|
//** /* DEFINE 907R1 FOR VIEWDIR IN EACH JOB
|
|
//RPT907R1 DD DUMMY
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//**RPT907R2 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
//** DEST=&LDEST.
|
|
//** /* 2ND VERSION OF RPT907 NOT NEEDED IN VD
|
|
//RPT907R2 DD DUMMY
|
|
//** UC-30 CNTS RPTN
|
|
//RPT908R1 DD SYSOUT=Z,HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//** CONTROL REPORT SUMMARY
|
|
//**RPT980R1 DD SYSOUT=Q,HOLD=&LHOLD., /* COPIES=2, /* (FOR PROD)
|
|
//** DEST=&LDEST.
|
|
//** /* DEFINE 980R1 FOR VIEWDIR IN EACH JOB
|
|
//RPT980R1 DD DUMMY
|
|
//** EXPORT CONTROL REPORTS
|
|
//RPT991R1 DD SYSOUT=Q,HOLD=&LHOLD., /* COPIES=2, /* (FOR PROD)
|
|
// 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
|
|
//**
|