giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Copybook/CODEDATE.cpy Normal file
View File

@ -0,0 +1,10 @@
00001 04/29/04
00002 *************************************************************** CODEDATE
00003 * COBOL 2 SYSTEM DATE, TIME, DAY AND DAY-OF-WEEK * LV001
00004 *************************************************************** CODEDATE
00005 CODEDATE
00006 ACCEPT WS-SYSTEM-DATE FROM DATE. CODEDATE
00007 ACCEPT WS-SYSTEM-TIME FROM TIME. CODEDATE
00008 ACCEPT WS-SYSTEM-DAY FROM DAY. CODEDATE
00009 ACCEPT WS-SYSTEM-DOW FROM DAY-OF-WEEK. CODEDATE
00010 CODEDATE

27
Copybook/DOESXLBL.cpy Normal file
View File

@ -0,0 +1,27 @@
00001 ***** 01/31/03
00002 * DOESXLBL
00003 * DOESXLBL XEROX LASER DEFINITIONS PRINTING LABELS LV001
00004 * DOESXLBL
00005 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESXLBL
00006 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESXLBL
00007 * REFERENCE RFP #**** PROGRAMMER: XXX DOESXLBL
00008 * DOESXLBL
00009 ***** DOESXLBL
00010 ******************************************************************DOESXLBL
00011 * XEROX LASER DEFINITION *DOESXLBL
00012 ******************************************************************DOESXLBL
00013 01 XEROX-CNTL-LINE1. DOESXLBL
00014 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DOESXLBL
00015 05 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DOESXLBL
00016 05 XEROX-JDE PIC X(11) VALUE 'JDE=X2PLBL,'. DOESXLBL
00017 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DOESXLBL
00018 05 XEROX-BEGIN PIC X(18) VALUE DOESXLBL
00019 'BEGIN=(0.05,0.05),'. DOESXLBL
00020 05 XEROX-TOF PIC X(06) VALUE 'TOF=1,'. DOESXLBL
00021 05 XEROX-BOF PIC X(08) VALUE 'BOF=100,'. DOESXLBL
00022 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DOESXLBL
00023 01 XEROX-CNTL-LINE2. DOESXLBL
00024 05 FILLER PIC X. DOESXLBL
00025 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DOESXLBL
00026 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DOESXLBL
00027 DOESXLBL

45
Copybook/DTSES140.cpy Normal file
View File

@ -0,0 +1,45 @@
00001 ***** 10/02/24
00002 * DTSES140
00003 * DTSES140 ESSP TAX REPORT EXTRACT RECORD LV005
00004 * DTSES140
00005 * EXCHANGES EMPLOYER TAX REPORTS BETWEEN MAINFRAME AND DTSES140
00006 * SQL SERVER DATABASE. DTSES140
00007 * DTSES140
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSES140
00009 * LEVEL-88 FOR REPORTS FROM IN-HOUSE CASHIERING, DTSES140
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSES140
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSES140
00012 ***** DTSES140
00013 DTSES140
00014 15 X140-REC-TYPE PIC X(03) VALUE '140'. DTSES140
00015 15 FILLER PIC X(01) VALUE ','. DTSES140
00016 15 X140-EMP-NO PIC 9(06). DTSES140
00017 15 FILLER PIC X(01) VALUE ','. DTSES140
00018 15 X140-QUARTER PIC X(06). DTSES140
00019 15 FILLER PIC X(01) VALUE ','. DTSES140
00020 15 X140-REP-TYPE PIC X(08). CL**2
00021 15 FILLER PIC X(01) VALUE ','. DTSES140
00022 15 X140-REP-EMPLEE-CNT PIC X(08). CL**2
00023 15 FILLER PIC X(01) VALUE ','. CL**2
00024 15 X140-EXCESS-WAGE PIC ----------9.99. CL**5
00025 15 FILLER PIC X(01) VALUE ','. DTSES140
00026 15 X140-TAX-WAGE PIC ----------9.99. CL**4
00027 15 FILLER PIC X(01) VALUE ','. DTSES140
00028 15 X140-TOTAL-WAGE PIC ----------9.99. CL**4
00029 15 FILLER PIC X(01) VALUE ','. CL**2
00030 15 X140-SUBM PIC X(04). CL**2
00031 15 FILLER PIC X(01) VALUE ','. CL**2
00032 15 X140-RCVD-DATE PIC X(10). CL**2
00033 15 FILLER PIC X(01) VALUE ','. CL**2
00034 15 X140-WRKR-CNT-1ST-MNTH PIC 9(08). CL**2
00035 15 FILLER PIC X(01) VALUE ','. DTSES140
00036 15 X140-WRKR-CNT-2ND-MNTH PIC 9(08). CL**2
00037 15 FILLER PIC X(01) VALUE ','. DTSES140
00038 15 X140-WRKR-CNT-3RD-MNTH PIC 9(08). CL**2
00039 15 FILLER PIC X(01) VALUE ','. DTSES140
00040 15 X140-RPT-SUBM PIC X(04). CL**2
00041 15 FILLER PIC X(01) VALUE ','. DTSES140
00042 15 X140-REMITTANCE PIC 9(11).99. CL**2
00043 15 FILLER PIC X(01) VALUE ','. CL**2
00044 15 X140-RESP-OPID PIC X(06). CL**2
00045 15 FILLER PIC X(363). CL**2

41
Copybook/DTSES144.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 10/02/24
00002 * DTSES144
00003 * DTSIX144 EMPLOYEE WAGE EXTRACT RECORD LV001
00004 * DTSES144
00005 * IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL DTSES144
00006 * APPLICATIONS. DTSES144
00007 * DTSES144
00008 * 02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001. GD DTSES144
00009 * 06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS. GD DTSES144
00010 * DTSES144
00011 * DTSES144
00012 ***** DTSES144
00013 DTSES144
00014 15 X144-REC-TYPE PIC X(03) VALUE '144'. DTSES144
00015 15 FILLER PIC X(01) VALUE ','. DTSES144
00016 15 X144-EMP-NO PIC 9(06). DTSES144
00017 15 FILLER PIC X(01) VALUE ','. DTSES144
00018 15 X144-QUARTER PIC X(06). DTSES144
00019 15 FILLER PIC X(01) VALUE ','. DTSES144
00020 15 X144-SSN PIC 9(09). DTSES144
00021 15 FILLER PIC X(01) VALUE ','. DTSES144
00022 15 X144-WAGE-STATUS PIC X(01). DTSES144
00023 88 X144-ICESA-88 VALUE '1'. DTSES144
00024 88 X144-PAPER-RPT-88 VALUE '2'. DTSES144
00025 88 X144-WAGE-ONLY-DISK-88 VALUE '3'. DTSES144
00026 88 X144-ANNUAL-RPT-88 VALUE '4'. DTSES144
00027 88 X144-WEB-RPT-88 VALUE '5'. DTSES144
00028 88 X144-AMEND-RPT-88 VALUE '6'. DTSES144
00029 88 X144-BENEFITS-88 VALUE '7'. DTSES144
00030 88 X144-INTRANET-RPT-88 VALUE '8'. DTSES144
00031 88 X144-CLAIMNT-WAGE-88 VALUE '9'. DTSES144
00032 88 X144-UNKNOWN-88 VALUE '0'. DTSES144
00033 15 FILLER PIC X(01) VALUE ','. DTSES144
00034 15 X144-EARNINGS PIC --------9.99. DTSES144
00035 15 FILLER PIC X(01) VALUE ','. DTSES144
00036 15 X144-LAST-NAME PIC X(20). DTSES144
00037 15 FILLER PIC X(01) VALUE ','. DTSES144
00038 15 X144-FIRST-NAME PIC X(15). DTSES144
00039 15 FILLER PIC X(01) VALUE ','. DTSES144
00040 15 X144-MID-INIT PIC X(01). DTSES144
00041 15 FILLER PIC X(432). DTSES144

43
Copybook/DTSES147.cpy Normal file
View File

@ -0,0 +1,43 @@
00001 ***** 10/02/24
00002 * DTSES147
00003 * DTSIX147 EMPLOYEE AMENDED WAGES TO BE DELETED LV001
00004 * DTSES147
00005 * IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL DTSES147
00006 * APPLICATIONS. DTSES147
00007 * DTSES147
00008 * 02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001. GD DTSES147
00009 * 06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS. GD DTSES147
00010 * 09-01-2015 COPIED FROM IX147, USED FOR AMENDED WAGES ZL1 DTSES147
00011 * DTSES147
00012 * DTSES147
00013 ***** DTSES147
00014 DTSES147
00015 15 X147-REC-TYPE PIC X(03) VALUE '147'. DTSES147
00016 15 FILLER PIC X(01) VALUE ','. DTSES147
00017 15 X147-EMP-NO PIC 9(06). DTSES147
00018 15 FILLER PIC X(01) VALUE ','. DTSES147
00019 15 X147-QUARTER PIC X(06). DTSES147
00020 15 FILLER PIC X(01) VALUE ','. DTSES147
00021 15 X147-SSN PIC 9(09). DTSES147
00022 15 FILLER PIC X(01) VALUE ','. DTSES147
00023 15 X147-WAGE-STATUS PIC X(01). DTSES147
00024 88 X147-ICESA-88 VALUE '1'. DTSES147
00025 88 X147-PAPER-RPT-88 VALUE '2'. DTSES147
00026 88 X147-WAGE-ONLY-DISK-88 VALUE '3'. DTSES147
00027 88 X147-ANNUAL-RPT-88 VALUE '4'. DTSES147
00028 88 X147-WEB-RPT-88 VALUE '5'. DTSES147
00029 88 X147-AMEND-RPT-88 VALUE '6'. DTSES147
00030 88 X147-BENEFITS-88 VALUE '7'. DTSES147
00031 88 X147-INTRANET-RPT-88 VALUE '8'. DTSES147
00032 88 X147-CLAIMNT-WAGE-88 VALUE '9'. DTSES147
00033 88 X147-UNKNOWN-88 VALUE '0'. DTSES147
00034 15 FILLER PIC X(01) VALUE ','. DTSES147
00035 * 15 X147-EARNINGS PIC --------9.99. DTSES147
00036 15 X147-EARNINGS PIC 9(11)V99. DTSES147
00037 15 FILLER PIC X(01) VALUE ','. DTSES147
00038 15 X147-LAST-NAME PIC X(20). DTSES147
00039 15 FILLER PIC X(01) VALUE ','. DTSES147
00040 15 X147-FIRST-NAME PIC X(15). DTSES147
00041 15 FILLER PIC X(01) VALUE ','. DTSES147
00042 15 X147-MID-INIT PIC X(01). DTSES147
00043 15 FILLER PIC X(431). DTSES147

41
Copybook/DTSEX145.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 04/04/18
00002 * DTSEX145
00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV007
00004 * DTSEX145
00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSEX145
00006 * SQL SERVER DATABASE. DTSEX145
00007 * DTSEX145
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSEX145
00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSEX145
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSEX145
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSEX145
00012 * DTSEX145
00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSEX145
00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSEX145
00015 * DATABASE FROM THE MAINFRAME. GD DTSEX145
00016 ***** DTSEX145
00017 DTSEX145
00018 15 E145-REC-TYPE PIC X(03) VALUE '145'. CL**3
00019 15 FILLER PIC X(01) VALUE ','. DTSEX145
00020 15 E145-EMP-NO PIC 9(06). CL**3
00021 15 FILLER PIC X(01) VALUE ','. DTSEX145
00022 15 E145-QTR PIC X(06). CL**3
00023 15 FILLER PIC X(01) VALUE ','. DTSEX145
00024 15 FILLER PIC X(06). CL**3
00025 15 FILLER PIC X(01) VALUE ','. CL**3
00026 15 FILLER PIC X(03). CL**5
00027 15 FILLER PIC X(01) VALUE ','. CL**3
00028 15 FILLER PIC X(02). CL**3
00029 15 FILLER PIC X(01) VALUE ','. CL**3
00030 15 FILLER PIC X(02). CL**3
00031 15 FILLER PIC X(01) VALUE ','. CL**3
00032 15 FILLER PIC X(02). CL**3
00033 15 FILLER PIC X(01) VALUE ','. CL**3
00034 15 E145-REMITTANCE PIC 9(11).99. CL**7
00035 15 FILLER PIC X(01) VALUE ','. DTSEX145
00036 15 E145-RECV-DATE PIC X(10). CL**3
00037 15 FILLER PIC X(01) VALUE ','. CL**3
00038 15 FILLER PIC X(10). CL**3
00039 15 FILLER PIC X(01) VALUE ','. CL**3
00040 15 E145-TRACE-NO PIC X(08). CL**3
00041 15 FILLER PIC X(429). CL**5

41
Copybook/DTSHX145.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 04/04/18
00002 * DTSHX145
00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV008
00004 * DTSHX145
00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSHX145
00006 * SQL SERVER DATABASE. DTSHX145
00007 * DTSHX145
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSHX145
00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSHX145
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSHX145
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSHX145
00012 * DTSHX145
00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSHX145
00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSHX145
00015 * DATABASE FROM THE MAINFRAME. GD DTSHX145
00016 ***** DTSHX145
00017 DTSHX145
00018 15 H145-REC-TYPE PIC X(03) VALUE '145'. CL**7
00019 15 FILLER PIC X(01) VALUE ','. DTSHX145
00020 15 H145-EMP-NO PIC 9(06). CL**7
00021 15 FILLER PIC X(01) VALUE ','. DTSHX145
00022 15 H145-QTR PIC X(06). CL**7
00023 15 FILLER PIC X(01) VALUE ','. DTSHX145
00024 15 FILLER PIC X(06). CL**3
00025 15 FILLER PIC X(01) VALUE ','. CL**3
00026 15 FILLER PIC X(03). CL**5
00027 15 FILLER PIC X(01) VALUE ','. CL**3
00028 15 FILLER PIC X(02). CL**3
00029 15 FILLER PIC X(01) VALUE ','. CL**3
00030 15 FILLER PIC X(02). CL**3
00031 15 FILLER PIC X(01) VALUE ','. CL**3
00032 15 FILLER PIC X(02). CL**3
00033 15 FILLER PIC X(01) VALUE ','. CL**3
00034 15 H145-REMITTANCE PIC 9(11).99. CL**8
00035 15 FILLER PIC X(01) VALUE ','. DTSHX145
00036 15 H145-RECV-DATE PIC X(10). CL**7
00037 15 FILLER PIC X(01) VALUE ','. CL**3
00038 15 FILLER PIC X(10). CL**3
00039 15 FILLER PIC X(01) VALUE ','. CL**3
00040 15 H145-TRACE-NO PIC X(08). CL**7
00041 15 FILLER PIC X(429). CL**5

28
Copybook/DTSIL941.TXT Normal file
View File

@ -0,0 +1,28 @@
00001 ***** 09/30/98
00002 * DTSIL941
00003 * DTSIL941 VARIABLE LENGTH RECORD FILE INPUT LINKAGE. LV002
00004 * DTSIL941
00005 * DTSIL941 AND (DTSIRSK1 OR DTSIRSK2 OR DTSIRSK3) DEFINE CL**2
00006 * THE LINKAGE AREAS TO DTSCU941 (VARIABLE LENGTH RECORD CL**2
00007 * FILE INPUT). DTSIL941
00008 * DTSIL941
00009 * CL**2
00010 * 09/30/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00011 * CL**2
00012 ***** DTSIL941
00013 CL**2
00014 10 L941-TRACE-IND PIC X(01). DTSIL941
00015 88 L941-TRACE-88 VALUE 'T'. DTSIL941
00016 CL**2
00017 10 L941-MOD-NAME PIC X(08). DTSIL941
00018 CL**2
00019 10 L941-CMND-CD PIC X(03). DTSIL941
00020 88 L941-OPEN-READ-88 VALUE 'OPR'. DTSIL941
00021 88 L941-READ-NEXT-88 VALUE 'RDN'. DTSIL941
00022 88 L941-CLOSE-88 VALUE 'CL '. DTSIL941
00023 CL**2
00024 10 FILLER PIC X(51). DTSIL941
00025 CL**2
00026 10 L941-RESULT-IND PIC X(01). DTSIL941
00027 88 L941-OK-88 VALUE '0'. DTSIL941
00028 88 L941-NO-REC-88 VALUE '1'. DTSIL941

289
Copybook/DTSIW119.cpy Normal file
View File

@ -0,0 +1,289 @@
00001 *Modified: z. lalputan 01/29/20
00002 *Date: 12 december 2019 DTSIW119
00003 * LV007
00004 SKIP2 DTSIW119
00005 01 GENERIC-LETTER. DTSIW119
00006 05 GEN-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00007 05 GEN-LINE-2 PIC X(133) VALUE SPACES. DTSIW119
00008 05 GEN-LINE-3. DTSIW119
00009 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00010 10 FILLER PIC X(50) VALUE CL**2
00011 'The District of Columbia Unemployment Insurance Ta'. CL**7
00012 10 FILLER PIC X(40) CL**2
00013 VALUE 'x Division has received and processed'. CL**2
00014 05 GEN-LINE-4. CL**2
00015 10 FILLER PIC X(02) VALUE SPACES. CL**2
00016 10 FILLER PIC X(44) VALUE CL**2
00017 'your request to close your employer account '. CL**2
00018 10 gen-emp-no PIC 9(06). CL**5
00019 10 filler PIC X(01) VALUE '.'. CL**2
00020 10 FILLER PIC X(40) CL**2
00021 VALUE ' This notice confirms that '. CL**6
00022 05 GEN-LINE-5. CL**2
00023 10 FILLER PIC X(02) VALUE SPACES. CL**2
00024 10 FILLER PIC X(50) VALUE CL**2
00025 'your account has been closed. Please note that th'. CL**2
00026 10 FILLER PIC X(40) CL**2
00027 VALUE 'e inactivation of this account also '. CL**2
00028 05 GEN-LINE-6. CL**2
00029 10 FILLER PIC X(02) VALUE SPACES. CL**2
00030 10 FILLER PIC X(50) VALUE CL**2
00031 'terminates all user access via the Employer Self S'. CL**4
00032 10 FILLER PIC X(40) CL**2
00033 VALUE 'ervice Portal (ESSP). Any balance due'. CL**4
00034 05 GEN-LINE-7. CL**2
00035 10 FILLER PIC X(02) VALUE SPACES. CL**2
00036 10 FILLER PIC X(50) VALUE CL**2
00037 'or missing wage reports must be submitted via regu'. CL**4
00038 10 FILLER PIC X(40) CL**2
00039 VALUE 'lar U.S. mail to DOES - UI Tax '. CL**4
00040 05 GEN-LINE-8. CL**2
00041 10 FILLER PIC X(02) VALUE SPACES. CL**2
00042 10 FILLER PIC X(50) VALUE CL**2
00043 'Division, P.O. Box 96664, Washingtion, DC 20019. '. CL**4
00044 10 FILLER PIC X(40) CL**2
00045 VALUE ' '. CL**2
00046 05 gen-LINE-9 PIC X(133) VALUE SPACES. CL**2
00047 05 gen-LINE-10 PIC X(133) VALUE SPACES. CL**2
00048 05 GEN-LINE-11. CL**2
00049 10 FILLER PIC X(02) VALUE SPACES. CL**2
00050 10 FILLER PIC X(50) VALUE CL**2
00051 'Reimbursable employers, please be advised that you'. CL**4
00052 10 FILLER PIC X(40) CL**2
00053 VALUE ' may be responsible for reimbursing '. CL**4
00054 05 GEN-LINE-12. CL**3
00055 10 FILLER PIC X(02) VALUE SPACES. CL**3
00056 10 FILLER PIC X(50) VALUE CL**3
00057 'the Unemployment Trust Fund for Unemployment Insur'. CL**6
00058 10 FILLER PIC X(40) CL**3
00059 VALUE 'ance Benefits paid to former employees'. CL**4
00060 05 GEN-LINE-13. CL**3
00061 10 FILLER PIC X(02) VALUE SPACES. CL**3
00062 10 FILLER PIC X(50) VALUE CL**3
00063 'up to five (5) quarters after your inactivation ef'. CL**4
00064 10 FILLER PIC X(40) CL**3
00065 VALUE 'fective date. For more information, '. CL**4
00066 05 GEN-LINE-14. CL**3
00067 10 FILLER PIC X(02) VALUE SPACES. CL**3
00068 10 FILLER PIC X(50) VALUE CL**3
00069 'please submit your inquires to UITax.Info@dc.gov. '. CL**4
00070 10 FILLER PIC X(40) CL**3
00071 VALUE ' '. CL**3
00072 05 gen-LINE-15 pic x(90) value spaces. CL**3
00073 05 gen-LINE-16 pic x(90) value spaces. CL**3
00074 05 gen-LINE-17. CL**3
00075 10 FILLER PIC X(02) VALUE SPACES. CL**3
00076 10 FILLER PIC X(49) VALUE CL**3
00077 'If you resume paying wages in the District of Col'. CL**3
00078 10 FILLER PIC X(36) CL**3
00079 VALUE 'umbia within three (3) years of the '. CL**3
00080 05 gen-LINE-18. CL**3
00081 10 FILLER PIC X(02) VALUE SPACES. CL**3
00082 10 FILLER PIC X(49) VALUE CL**3
00083 'last active quarter, please submit a written requ'. CL**3
00084 10 FILLER PIC X(36) CL**3
00085 VALUE 'est to reopen your account at '. CL**3
00086 05 gen-LINE-19. CL**3
00087 10 FILLER PIC X(02) VALUE SPACES. CL**3
00088 10 FILLER PIC X(50) VALUE CL**3
00089 'UITax.Info@dc.gov '. CL**3
00090 SKIP2 DTSIW119
00091 01 DEMAND-LETTER. DTSIW119
00092 05 DML-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00093 05 DML-LINE-2 PIC X(133) VALUE SPACES. DTSIW119
00094 05 DML-LINE-3. DTSIW119
00095 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00096 10 FILLER PIC X(50) VALUE DTSIW119
00097 'The Unemployment Insurance Division requires that '. DTSIW119
00098 10 FILLER PIC X(40) DTSIW119
00099 VALUE 'an employer file a Contribution and '. DTSIW119
00100 05 DML-LINE-4. DTSIW119
00101 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00102 10 FILLER PIC X(50) VALUE DTSIW119
00103 'Wage Report and submit payment upon termination of'. DTSIW119
00104 10 FILLER PIC X(50) VALUE DTSIW119
00105 ' your account. '. DTSIW119
00106 05 DML-LINE-5 PIC X(133) VALUE SPACES. DTSIW119
00107 05 DML-LINE-6. DTSIW119
00108 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00109 10 FILLER PIC X(50) VALUE DTSIW119
00110 'Please complete and return the enclosed Contributi'. DTSIW119
00111 10 FILLER PIC X(40) DTSIW119
00112 VALUE 'on and Wage Report with payment.'. DTSIW119
00113 05 DML-LINE-7. DTSIW119
00114 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00115 10 FILLER PIC X(50) VALUE DTSIW119
00116 'If payment is not received WITHIN 30 DAYS, taxes a'. DTSIW119
00117 10 FILLER PIC X(40) DTSIW119
00118 VALUE 're subject to penalty and interest. '. DTSIW119
00119 05 DML-LINE-9 PIC X(133) VALUE SPACES. DTSIW119
00120 05 DML-LINE-10. DTSIW119
00121 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00122 10 FILLER PIC X(40) DTSIW119
00123 VALUE 'If you have any questions, please contac'. DTSIW119
00124 10 FILLER PIC X(40) DTSIW119
00125 VALUE 't me. '. DTSIW119
00126 SKIP2 DTSIW119
00127 01 EIGHT-QTR-NONES-LETTER. DTSIW119
00128 05 EQN-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00129 05 EQN-LINE-2 PIC X(133) VALUE SPACES. DTSIW119
00130 05 EQN-LINE-3. DTSIW119
00131 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00132 10 FILLER PIC X(50) VALUE DTSIW119
00133 'In accordance with U.S. Department of Labor regula'. DTSIW119
00134 10 FILLER PIC X(37) DTSIW119
00135 VALUE 'tions, the District of Columbia '. DTSIW119
00136 05 EQN-LINE-4. DTSIW119
00137 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00138 10 FILLER PIC X(50) VALUE DTSIW119
00139 'Unemployment Insurance Tax Division is required to'. DTSIW119
00140 10 FILLER PIC X(40) DTSIW119
00141 VALUE ' administratively inactivate your '. DTSIW119
00142 05 EQN-LINE-41. DTSIW119
00143 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00144 10 FILLER PIC X(50) VALUE DTSIW119
00145 'employer account due to no-wage reports filed or n'. DTSIW119
00146 10 FILLER PIC X(38) DTSIW119
00147 VALUE 'o reports filed for the last (8) '. DTSIW119
00148 05 EQN-LINE-42. DTSIW119
00149 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00150 10 FILLER PIC X(50) VALUE DTSIW119
00151 'consecutive calendar quarters. The last day of the'. DTSIW119
00152 10 FILLER PIC X(36) DTSIW119
00153 VALUE ' eight no-wage quarter determines '. DTSIW119
00154 05 EQN-LINE-43. DTSIW119
00155 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00156 10 FILLER PIC X(50) VALUE DTSIW119
00157 'the account effective date of inactivation. '. DTSIW119
00158 05 EQN-LINE-44. DTSIW119
00159 10 FILLER PIC X(90) VALUE SPACES. DTSIW119
00160 05 EQN-LINE-45. DTSIW119
00161 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00162 10 FILLER PIC X(50) VALUE DTSIW119
00163 'Your account has been administratively inactivated'. DTSIW119
00164 10 FILLER PIC X(11) DTSIW119
00165 VALUE ' effective '. DTSIW119
00166 10 eqn-eff-date PIC X(10). DTSIW119
00167 10 FILLER PIC X(10) DTSIW119
00168 VALUE '. Please'. DTSIW119
00169 05 EQN-LINE-46. DTSIW119
00170 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00171 10 FILLER PIC X(50) VALUE DTSIW119
00172 'note that the inactivation of this account also te'. DTSIW119
00173 10 FILLER PIC X(36) DTSIW119
00174 VALUE 'rminates all user access via the '. DTSIW119
00175 05 EQN-LINE-47. DTSIW119
00176 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00177 10 FILLER PIC X(50) VALUE DTSIW119
00178 'Employer Self Service Portal (ESSP). Any balance d'. DTSIW119
00179 10 FILLER PIC X(36) DTSIW119
00180 VALUE 'ue or missing wage reports must be '. DTSIW119
00181 05 EQN-LINE-48. DTSIW119
00182 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00183 10 FILLER PIC X(50) VALUE DTSIW119
00184 'submitted via regular U.S. mail to DOES - UI Tax '. DTSIW119
00185 10 FILLER PIC X(36) DTSIW119
00186 VALUE 'Division, P.O. Box 96664, '. DTSIW119
00187 05 EQN-LINE-49. DTSIW119
00188 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00189 10 FILLER PIC X(50) VALUE DTSIW119
00190 'Washington, DC 20019. '. DTSIW119
00191 10 FILLER PIC X(36) DTSIW119
00192 VALUE ' '. DTSIW119
00193 05 EQN-LINE-50 pic x(90) value spaces. DTSIW119
00194 05 EQN-LINE-51. DTSIW119
00195 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00196 10 FILLER PIC X(49) VALUE DTSIW119
00197 'If you resume paying wages in the District of Col'. DTSIW119
00198 10 FILLER PIC X(36) DTSIW119
00199 VALUE 'umbia within three (3) years of the '. DTSIW119
00200 05 EQN-LINE-52. DTSIW119
00201 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00202 10 FILLER PIC X(49) VALUE DTSIW119
00203 'last active quarter, please submit a written requ'. DTSIW119
00204 10 FILLER PIC X(36) DTSIW119
00205 VALUE 'est to reopen your account at '. DTSIW119
00206 05 EQN-LINE-53. DTSIW119
00207 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00208 10 FILLER PIC X(50) VALUE DTSIW119
00209 'UITax.Info@dc.gov '. DTSIW119
00210 * 05 EQN-LINE-5. DTSIW119
00211 * 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00212 * 10 FILLER PIC X(50) VALUE DTSIW119
00213 * 'uitax.info@dc.gov '. DTSIW119
00214 05 EQN-LINE-11 PIC X(133) VALUE SPACES. DTSIW119
00215 05 EQN-LINE-12. DTSIW119
00216 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00217 10 FILLER PIC X(50) VALUE DTSIW119
00218 ' '. DTSIW119
00219 10 FILLER PIC X(36) DTSIW119
00220 VALUE ' '. DTSIW119
00221 05 EQN-LINE-14. DTSIW119
00222 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00223 10 FILLER PIC X(50) value DTSIW119
00224 ' '. DTSIW119
00225 10 FILLER PIC X(36) value DTSIW119
00226 ' '. DTSIW119
00227 05 EQN-LINE-141. DTSIW119
00228 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00229 10 FILLER PIC X(50) value DTSIW119
00230 ' '. DTSIW119
00231 SKIP2 DTSIW119
00232 01 LETTER-FOOTING. DTSIW119
00233 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00234 05 LTF-LINE-2. DTSIW119
00235 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00236 10 FILLER PIC X(40) DTSIW119
00237 VALUE 'Sincerely, '. DTSIW119
00238 05 LTF-LINE-6 PIC X(133) VALUE SPACES. DTSIW119
00239 05 LTF-LINE-7. DTSIW119
00240 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00241 10 filler PIC X(50) value DTSIW119
00242 'Office of Unemployment Compensation - UI Tax Divis'. DTSIW119
00243 10 FILLER PIC X(16) DTSIW119
00244 VALUE 'ion '. DTSIW119
00245 05 LTF-LINE-8. DTSIW119
00246 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00247 10 FILLER PIC X(50) DTSIW119
00248 value 'Department of Employment services'. DTSIW119
00249 05 LTF-LINE-9. DTSIW119
00250 10 FILLER PIC X(08) VALUE SPACES. DTSIW119
00251 10 FILLER PIC X(16) DTSIW119
00252 VALUE 'Telephone (202) '. DTSIW119
00253 10 WS-OPR-VOICE-ONE PIC X(03). DTSIW119
00254 10 FILLER PIC X(01) DTSIW119
00255 VALUE '-'. DTSIW119
00256 10 WS-OPR-VOICE-TWO PIC X(04). DTSIW119
00257 DTSIW119
00258 01 LETTER-FOOTIN2. DTSIW119
00259 05 LF2-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00260 05 LF2-LINE-2. DTSIW119
00261 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00262 10 FILLER PIC X(40) DTSIW119
00263 VALUE 'Sincerely, '. DTSIW119
00264 05 LF2-LINE-6 PIC X(133) VALUE SPACES. DTSIW119
00265 05 LF2-LINE-7. DTSIW119
00266 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00267 * 10 WS-OPR-NAME-FOOTER2 PIC X(32). DTSIW119
00268 10 FILLER PIC X(55) DTSIW119
00269 value 'Office of Unemployment Compensation - Tax Division'.DTSIW119
00270 05 LF2-LINE-8. DTSIW119
00271 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00272 10 FILLER PIC X(50) DTSIW119
00273 value 'Department of Employment Services '.DTSIW119
00274 05 LF2-LINE-9. DTSIW119
00275 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00276 10 FILLER PIC X(20) DTSIW119
00277 VALUE 'UITax.Info@dc.gov'. DTSIW119
00278 * 10 WS-OPR-VOICE-ONE2 PIC X(03). DTSIW119
00279 * 10 FILLER PIC X(01) DTSIW119
00280 * VALUE '-'. DTSIW119
00281 * 10 WS-OPR-VOICE-TWO2 PIC X(04). DTSIW119
00282 05 LF2-LINE-10. DTSIW119
00283 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00284 10 FILLER PIC X(20) DTSIW119
00285 VALUE 'Phone:(202)-698-7550'. DTSIW119
00286 05 LF2-LINE-11. DTSIW119
00287 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00288 10 FILLER PIC X(20) DTSIW119
00289 VALUE 'TTY:(202)-698-4817'. DTSIW119

108
Copybook/DTSIX102.cpy
View File

@ -1,57 +1,57 @@
00001 ***** 02/26/08
00001 ***** 08/29/23
00002 * DTSIX102
00003 * DTSIX102 EMPLOYER PROFILE EXTRACT RECORD LV001
00003 * DTSIX102 EMPLOYER PROFILE RECORD LV003
00004 * DTSIX102
00005 * EXCHANGES EMPLOYER PROFILE INFORMATION BETWEEN MAINFRAME AND DTSIX102
00006 * SQL SERVER DATABASE. DTSIX102
00007 * DTSIX102
00008 * DTSIX102
00009 ***** DTSIX102
00010 DTSIX102
00011 15 X102-REC-TYPE PIC X(03) VALUE '102'. DTSIX102
00005 ***** DTSIX102
00006 DTSIX102
00007 15 X102-REC-TYPE PIC X(03) VALUE '102'. DTSIX102
00008 15 FILLER PIC X(01) VALUE ','. DTSIX102
00009 15 X102-EMP-NO PIC 9(06). DTSIX102
00010 15 FILLER PIC X(01) VALUE ','. DTSIX102
00011 15 X102-EMP-FEIN PIC 9(09). DTSIX102
00012 15 FILLER PIC X(01) VALUE ','. DTSIX102
00013 15 X102-EMP-NO PIC 9(06). DTSIX102
00014 15 FILLER PIC X(01) VALUE ','. DTSIX102
00015 15 X102-EMP-FEIN PIC 9(09). DTSIX102
00016 15 FILLER PIC X(01) VALUE ','. DTSIX102
00017 15 X102-EMP-CLASS PIC X(01). DTSIX102
00018 88 X102-CLASS-RATED-88 VALUE 'R'. DTSIX102
00019 88 X102-CLASS-SELF-INS-88 VALUE 'S'. DTSIX102
00020 15 FILLER PIC X(01) VALUE ','. DTSIX102
00021 15 X102-EMP-STATUS PIC X(01). DTSIX102
00022 88 X102-STATUS-ACTIVE-88 VALUE 'A'. DTSIX102
00023 88 X102-STATUS-INACTIVE-88 VALUE 'I'. DTSIX102
00024 88 X102-STATUS-NOT-SUB-88 VALUE 'N'. DTSIX102
00025 88 X102-STATUS-UNKNOWN-88 VALUE 'U'. DTSIX102
00026 15 FILLER PIC X(01) VALUE ','. DTSIX102
00027 15 X102-SOURCE-CD PIC X(02). DTSIX102
00028 88 X102-CONTRACT-CMPL-88 VALUE '00'. DTSIX102
00029 88 X102-PHONE-CALL-88 VALUE '01'. DTSIX102
00030 88 X102-WRITTEN-REQUEST-88 VALUE '02'. DTSIX102
00031 88 X102-VOLUNTARY-88 VALUE '03'. DTSIX102
00032 88 X102-UC30-OF-PRED-88 VALUE '04'. DTSIX102
00033 88 X102-BENEFITS-88 VALUE '05'. DTSIX102
00034 88 X102-940-CERTIFICATION-88 VALUE '06'. DTSIX102
00035 88 X102-UNION-HALL-88 VALUE '07'. DTSIX102
00036 88 X102-FIELD-REP-88 VALUE '08'. DTSIX102
00037 88 X102-FOLLOW-UP-88 VALUE '09'. DTSIX102
00038 88 X102-OTR-88 VALUE '10'. DTSIX102
00039 88 X102-WORKERS-COMP-88 VALUE '11'. DTSIX102
00040 88 X102-LIQUOR-LIC-88 VALUE '12'. DTSIX102
00041 88 X102-FEIN-LIST-88 VALUE '13'. DTSIX102
00042 88 X102-UC30-STAFF-88 VALUE '14'. DTSIX102
00043 88 X102-UC30-SYS-88 VALUE '15'. DTSIX102
00044 88 X102-UC30-88 VALUE '14', '15'. DTSIX102
00045 88 X102-FISCAL-AGENT-88 VALUE '16'. DTSIX102
00046 88 X102-WEB-REG-88 VALUE '17'. DTSIX102
00047 88 X102-WEB-REG-PRED-88 VALUE '18'. DTSIX102
00048 88 X102-WEB-REG-SUCC-88 VALUE '19'. DTSIX102
00049 88 X102-WEB-88 VALUE DTSIX102
00050 '17' THRU '19'. DTSIX102
00051 88 X102-SOURCE-CD-VALID-88 VALUE DTSIX102
00052 '00' THRU '19'. DTSIX102
00053 15 FILLER PIC X(01) VALUE ','. DTSIX102
00054 15 X102-ACTION-CD PIC X(01). DTSIX102
00055 88 X102-ACTION-INSERT-88 VALUE 'I'. DTSIX102
00056 88 X102-ACTION-UPDATE-88 VALUE 'U'. DTSIX102
00057 88 X102-ACTION-DELETE-88 VALUE 'D'. DTSIX102
00013 15 X102-EMP-CLASS PIC X(01). DTSIX102
00014 88 X102-CLASS-RATED-88 VALUE 'R'. DTSIX102
00015 88 X102-CLASS-SELF-INS-88 VALUE 'S'. DTSIX102
00016 88 X102-CLASS-CD-VALID-88 VALUE 'R' 'S'. CL**2
00017 15 FILLER PIC X(01) VALUE ','. DTSIX102
00018 15 X102-EMP-STATUS PIC X(01). DTSIX102
00019 88 X102-STATUS-ACTIVE-88 VALUE 'A'. DTSIX102
00020 88 X102-STATUS-INACTIVE-88 VALUE 'I'. DTSIX102
00021 88 X102-STATUS-NOT-SUB-88 VALUE 'N'. DTSIX102
00022 88 X102-STATUS-UNKNOWN-88 VALUE 'U'. DTSIX102
00023 88 X102-STATUS-CD-VALID-88 VALUE 'A' 'I' CL**2
00024 'N' 'U'. CL**2
00025 15 FILLER PIC X(01) VALUE ','. DTSIX102
00026 15 X102-SOURCE-CD PIC X(02). DTSIX102
00027 88 X102-CONTRACT-CMPL-88 VALUE '00'. DTSIX102
00028 88 X102-PHONE-CALL-88 VALUE '01'. DTSIX102
00029 88 X102-WRITTEN-REQUEST-88 VALUE '02'. DTSIX102
00030 88 X102-VOLUNTARY-88 VALUE '03'. DTSIX102
00031 88 X102-UC30-OF-PRED-88 VALUE '04'. DTSIX102
00032 88 X102-BENEFITS-88 VALUE '05'. DTSIX102
00033 88 X102-940-CERTIFICATION-88 VALUE '06'. DTSIX102
00034 88 X102-UNION-HALL-88 VALUE '07'. DTSIX102
00035 88 X102-FIELD-REP-88 VALUE '08'. DTSIX102
00036 88 X102-FOLLOW-UP-88 VALUE '09'. DTSIX102
00037 88 X102-OTR-88 VALUE '10'. DTSIX102
00038 88 X102-WORKERS-COMP-88 VALUE '11'. DTSIX102
00039 88 X102-LIQUOR-LIC-88 VALUE '12'. DTSIX102
00040 88 X102-FEIN-LIST-88 VALUE '13'. DTSIX102
00041 88 X102-UC30-STAFF-88 VALUE '14'. DTSIX102
00042 88 X102-UC30-SYS-88 VALUE '15'. DTSIX102
00043 88 X102-UC30-88 VALUE '14', '15'. DTSIX102
00044 88 X102-FISCAL-AGENT-88 VALUE '16'. DTSIX102
00045 88 X102-WEB-REG-88 VALUE '17'. DTSIX102
00046 88 X102-WEB-REG-PRED-88 VALUE '18'. DTSIX102
00047 88 X102-WEB-REG-SUCC-88 VALUE '19'. DTSIX102
00048 88 X102-WEB-88 VALUE DTSIX102
00049 '17' THRU '19'. DTSIX102
00050 88 X102-SOURCE-CD-VALID-88 VALUE DTSIX102
00051 '00' THRU '19'. DTSIX102
00052 15 FILLER PIC X(01) VALUE ','. DTSIX102
00053 15 X102-ACTION-CD PIC X(01). DTSIX102
00054 88 X102-ACTION-INSERT-88 VALUE 'I'. DTSIX102
00055 88 X102-ACTION-UPDATE-88 VALUE 'U'. DTSIX102
00056 88 X102-ACTION-DELETE-88 VALUE 'D'. DTSIX102
00057 88 X102-ACTION-CD-VALID-88 VALUE 'I' 'U' 'D'. CL**2

2
Copybook/DTSIX305.cpy
View File

@ -7,7 +7,7 @@
00007 * DTSIX305
00008 * DTSIX305
00009 ***** DTSIX305
00010 DTSIX305
00010 ***** 01 X305. DTSIX305
00011 10 X305-BATCH-AGY PIC X(03). DTSIX305
00012 10 X305-BATCH-DATE-X PIC X(08). DTSIX305
00013 10 X305-BATCH-DATE-9 REDEFINES X305-BATCH-DATE-X DTSIX305

61
Copybook/DTSIY102.cpy Normal file
View File

@ -0,0 +1,61 @@
00001 ***** 02/26/08
00002 * DTSIX102
00003 * DTSIX102 EMPLOYER PROFILE EXTRACT RECORD LV001
00004 * DTSIX102
00005 * EXCHANGES EMPLOYER PROFILE INFORMATION BETWEEN MAINFRAME AND DTSIX102
00006 * SQL SERVER DATABASE. DTSIX102
00007 * DTSIX102
00008 * DTSIX102
00009 ***** DTSIX102
00010 DTSIX102
00011 15 X102-REC-TYPE PIC X(03) VALUE '102'. DTSIX102
00012 15 FILLER PIC X(01) VALUE ','. DTSIX102
00013 15 X102-EMP-NO PIC 9(06). DTSIX102
00014 15 FILLER PIC X(01) VALUE ','. DTSIX102
00015 15 X102-EMP-FEIN PIC 9(09). DTSIX102
00016 15 FILLER PIC X(01) VALUE ','. DTSIX102
00017 15 X102-EMP-CLASS PIC X(01). DTSIX102
00018 88 X102-CLASS-RATED-88 VALUE 'R'. DTSIX102
00019 88 X102-CLASS-SELF-INS-88 VALUE 'S'. DTSIX102
00020 88 X102-CLASS-CD-VALID-88 VALUE 'R', 'S'. DTSIX102
00021 15 FILLER PIC X(01) VALUE ','. DTSIX102
00022 15 X102-EMP-STATUS PIC X(01). DTSIX102
00023 88 X102-STATUS-ACTIVE-88 VALUE 'A'. DTSIX102
00024 88 X102-STATUS-INACTIVE-88 VALUE 'I'. DTSIX102
00025 88 X102-STATUS-NOT-SUB-88 VALUE 'N'. DTSIX102
00026 88 X102-STATUS-UNKNOWN-88 VALUE 'U'. DTSIX102
00027 88 X102-STATUS-CD-VALID-88 VALUE 'A' 'I' DTSIX102
00028 'N', 'U'. DTSIX102
00029 15 FILLER PIC X(01) VALUE ','. DTSIX102
00030 15 X102-SOURCE-CD PIC X(02). DTSIX102
00031 88 X102-CONTRACT-CMPL-88 VALUE '00'. DTSIX102
00032 88 X102-PHONE-CALL-88 VALUE '01'. DTSIX102
00033 88 X102-WRITTEN-REQUEST-88 VALUE '02'. DTSIX102
00034 88 X102-VOLUNTARY-88 VALUE '03'. DTSIX102
00035 88 X102-UC30-OF-PRED-88 VALUE '04'. DTSIX102
00036 88 X102-BENEFITS-88 VALUE '05'. DTSIX102
00037 88 X102-940-CERTIFICATION-88 VALUE '06'. DTSIX102
00038 88 X102-UNION-HALL-88 VALUE '07'. DTSIX102
00039 88 X102-FIELD-REP-88 VALUE '08'. DTSIX102
00040 88 X102-FOLLOW-UP-88 VALUE '09'. DTSIX102
00041 88 X102-OTR-88 VALUE '10'. DTSIX102
00042 88 X102-WORKERS-COMP-88 VALUE '11'. DTSIX102
00043 88 X102-LIQUOR-LIC-88 VALUE '12'. DTSIX102
00044 88 X102-FEIN-LIST-88 VALUE '13'. DTSIX102
00045 88 X102-UC30-STAFF-88 VALUE '14'. DTSIX102
00046 88 X102-UC30-SYS-88 VALUE '15'. DTSIX102
00047 88 X102-UC30-88 VALUE '14', '15'. DTSIX102
00048 88 X102-FISCAL-AGENT-88 VALUE '16'. DTSIX102
00049 88 X102-WEB-REG-88 VALUE '17'. DTSIX102
00050 88 X102-WEB-REG-PRED-88 VALUE '18'. DTSIX102
00051 88 X102-WEB-REG-SUCC-88 VALUE '19'. DTSIX102
00052 88 X102-WEB-88 VALUE DTSIX102
00053 '17' THRU '19'. DTSIX102
00054 88 X102-SOURCE-CD-VALID-88 VALUE DTSIX102
00055 '00' THRU '19'. DTSIX102
00056 15 FILLER PIC X(01) VALUE ','. DTSIX102
00057 15 X102-ACTION-CD PIC X(01). DTSIX102
00058 88 X102-ACTION-INSERT-88 VALUE 'I'. DTSIX102
00059 88 X102-ACTION-UPDATE-88 VALUE 'U'. DTSIX102
00060 88 X102-ACTION-DELETE-88 VALUE 'D'. DTSIX102
88 X102-ACTION-CD-VALID-88 VALUE 'I', 'U', 'D'. DTSIX102

132
Copybook/DTSNH104.cpy Normal file
View File

@ -0,0 +1,132 @@
00001 ***** 01/11/19
00002 * DTSNH104
00003 * DTSIX104 EMPLOYER DETERMINATION EXTRACT RECORD LV016
00004 * DTSNH104
00005 * EXCHANGES EMPLOYER DETERMINATION INFORMATION BETWEEN THE DTSNH104
00006 * MAINFRAME AND SQL SERVER DATABASE. DTSNH104
00007 * DTSNH104
00008 * DTSNH104
00009 ***** DTSNH104
00010 DTSNH104
00011 15 X104-REC-TYPE PIC X(03) VALUE '104'. DTSNH104
00012 15 FILLER PIC X(01) VALUE ','. DTSNH104
00013 15 X104-EMP-NO PIC 9(06). DTSNH104
00014 15 FILLER PIC X(01) VALUE ','. DTSNH104
00015 15 X104-STAFF-REVIEW-IND PIC X(01). DTSNH104
00016 88 X104-STAFF-REVIEW-YES-88 VALUE 'Y'. CL**3
00017 88 X104-STAFF-REVIEW-NO-88 VALUE 'N'. CL**3
00018 15 FILLER PIC X(01) VALUE ','. DTSNH104
00019 15 X104-LIAB-CD PIC X(02). DTSNH104
00020 88 X104-LIAB-NO-DETERM-88 VALUE ' '. DTSNH104
00021 88 X104-LIAB-NOT-LIABLE-88 VALUE '00'. DTSNH104
00022 88 X104-LIAB-RATED-REG-88 VALUE '01'. DTSNH104
00023 88 X104-LIAB-RATED-NON-PROF-88 VALUE '02'. DTSNH104
00024 88 X104-LIAB-RATED-DOMESTIC-88 VALUE '04'. DTSNH104
00025 88 X104-LIAB-RATED-FOREIGN-88 VALUE '07'. DTSNH104
00026 88 X104-LIAB-SELF-INS-CITY-88 VALUE '22'. DTSNH104
00027 88 X104-LIAB-SELF-INS-COUNTY-88 VALUE '23'. DTSNH104
00028 88 X104-LIAB-SELF-INS-STATE-88 VALUE '24'. DTSNH104
00029 88 X104-LIAB-SELF-INS-CHURCH-88 VALUE '25'. DTSNH104
00030 88 X104-LIAB-SELF-INS-NON-PROF-88 VALUE '26'. DTSNH104
00031 88 X104-LIAB-RATED-88 VALUE DTSNH104
00032 '01' '02' '04' '07'. DTSNH104
00033 88 X104-LIAB-SELF-INS-88 VALUE DTSNH104
00034 '22' '23' '24' '25' '26'. DTSNH104
00035 88 X104-LIAB-VALID-88 VALUE DTSNH104
00036 '00' '01' '02' '04' '07' '22' '23' '24' '25' '26'. DTSNH104
00037 15 FILLER PIC X(01) VALUE ','. DTSNH104
00038 15 X104-ELIG-CD PIC X(02). DTSNH104
00039 88 X104-ELIG-NO-DETERM-88 VALUE ' '. DTSNH104
00040 88 X104-ELIG-RATED-88 VALUE '00'. DTSNH104
00041 88 X104-ELIG-UCX-88 VALUE '01'. DTSNH104
00042 88 X104-ELIG-UCFE-88 VALUE '02'. DTSNH104
00043 88 X104-ELIG-INTERSTATE-88 VALUE '04'. DTSNH104
00044 88 X104-ELIG-VOLUNTARY-QUIT-88 VALUE '05'. CL**8
00045 88 X104-ELIG-MISCONDUCT-88 VALUE '06'. CL**8
00046 88 X104-ELIG-EB-88 VALUE '07'. CL**8
00047 88 X104-ELIG-SELF-INS-88 VALUE '08'. DTSNH104
00048 88 X104-ELIG-TRA-88 VALUE '09'. CL**8
00049 88 X104-ELIG-DC-GOV-88 VALUE '10'. DTSNH104
00050 88 X104-ELIG-NOT-SUBJECT-88 VALUE '13'. DTSNH104
00051 88 X104-ELIG-TEUC-88 VALUE '16'. CL**8
00052 88 X104-ELIG-VALID-88 VALUE DTSNH104
00053 ' ' '00' '01' '02' '04' '05' '06' '07' CL**8
00054 '08' '09' '10' '13' '16'. CL**8
00055 15 FILLER PIC X(01) VALUE ','. DTSNH104
00056 15 X104-NAICS-CD PIC 9(06). DTSNH104
00057 15 FILLER PIC X(01) VALUE ','. DTSNH104
00058 15 X104-ORG-TYPE PIC X(03). DTSNH104
00059 88 X104-ORG-SOLE-PROPRIETOR-88 VALUE 'S '. DTSNH104
00060 88 X104-ORG-PARTNERSHIP-88 VALUE 'P '. DTSNH104
00061 88 X104-ORG-LTD-LIAB-CO-88 VALUE 'LLC'. DTSNH104
00062 88 X104-ORG-LTD-LIAB-PARTN-88 VALUE 'LLP'. DTSNH104
00063 88 X104-ORG-CORPORATION-88 VALUE 'C '. DTSNH104
00064 88 X104-ORG-J-JOINT-VENT-88 VALUE 'J '. CL**4
00065 88 X104-ORG-S-CORPORATION-88 VALUE 'SC '. CL**4
00066 88 X104-ORG-TRUST-BANK-88 VALUE 'TB '. CL**5
00067 88 X104-ORG-RECEIVERSHIP-88 VALUE 'R '. CL**5
00068 88 X104-ORG-TRUST-PENSION-88 VALUE 'TP '. CL*13
00069 88 X104-ORG-ASSOCIATION-88 VALUE 'ASS'. CL**5
00070 88 X104-ORG-HSEHLD-DMSTIC-88 VALUE 'H '. CL**5
00071 88 X104-ORG-NON-PROFIT-88 VALUE 'NP '. DTSNH104
00072 88 X104-ORG-OTH-NON-GOV-88 VALUE 'ONG'. DTSNH104
00073 88 X104-ORG-UNINC-ASSOC-88 VALUE 'UNA'. CL*14
00074 88 X104-ORG-FED-IND-TRIBE-88 VALUE 'FIT'. CL*14
00075 88 X104-ORG-OTH-88 VALUE 'OTH'. CL*14
00076 88 X104-ORG-STATE-88 VALUE 'ST'. DTSNH104
00077 88 X104-ORG-COUNTY-88 VALUE 'CO '. DTSNH104
00078 88 X104-ORG-CITY-88 VALUE 'CTY'. DTSNH104
00079 88 X104-ORG-SCHOOL-DISTRICT-88 VALUE 'SCH'. DTSNH104
00080 88 X104-ORG-FORGN-GOV-88 VALUE 'FG '. DTSNH104
00081 88 X104-ORG-OTH-GOV-88 VALUE 'OG '. DTSNH104
00082 88 X104-ORG-UNKNOWN-88 VALUE 'UNK'. CL*11
00083 88 X104-ORG-TYPE-VALID-88 VALUE DTSNH104
00084 'S ', 'P ', 'LLC', 'LLP', 'C ', 'SC ', DTSNH104
00085 'H ', 'NP ', 'ONG', 'ST ', 'CO ', 'CTY', DTSNH104
00086 'SCH', 'FG ', 'OG ', 'J ', 'TB ', 'R ', CL*13
00087 'ASS', 'TP ', 'UNK', 'UNA', 'FIT', 'OTH'. CL*14
00088 15 FILLER PIC X(01) VALUE ','. DTSNH104
00089 15 X104-INCORP-STATE PIC X(02). DTSNH104
00090 15 FILLER PIC X(01) VALUE ','. DTSNH104
00091 15 X104-INCORP-DATE PIC X(10). DTSNH104
00092 15 FILLER PIC X(01) VALUE ','. DTSNH104
00093 15 X104-HOUSEHOLD-FILING PIC X(01). DTSNH104
00094 88 X104-HH-ANNUAL-88 VALUE 'A'. DTSNH104
00095 88 X104-HH-QUARTERLY-88 VALUE 'Q'. DTSNH104
00096 15 FILLER PIC X(01) VALUE ','. DTSNH104
00097 15 X104-FIRST-WAGE-DT PIC X(10). DTSNH104
00098 15 FILLER PIC X(01) VALUE ','. DTSNH104
00099 15 X104-FIRST-500-QTR PIC X(06). DTSNH104
00100 15 FILLER PIC X(01) VALUE ','. DTSNH104
00101 15 X104-ACQUIRE-IND PIC X(01). DTSNH104
00102 88 X104-ACQUIRE-YES-88 VALUE 'Y'. CL**2
00103 88 X104-ACQUIRE-NO-88 VALUE 'N'. CL**2
00104 15 FILLER PIC X(01) VALUE ','. DTSNH104
00105 15 X104-MERGER-SPLIT-IND PIC X(01). DTSNH104
00106 88 X104-MERGE-SPLIT-YES-88 VALUE 'Y'. CL**2
00107 88 X104-MERGE-SPLIT-NO-88 VALUE 'N'. CL**2
00108 15 FILLER PIC X(01) VALUE ','. DTSNH104
00109 15 X104-REORG-IND PIC X(01). DTSNH104
00110 88 X104-REORG-YES-88 VALUE 'Y'. CL**2
00111 88 X104-REORG-NO-88 VALUE 'N'. CL**2
00112 15 FILLER PIC X(01) VALUE ','. DTSNH104
00113 15 X104-COMMON-OWN-IND PIC X(01). DTSNH104
00114 88 X104-COMMON-OWN-YES-88 VALUE 'Y'. CL**2
00115 88 X104-COMMON-OWN-NO-88 VALUE 'N'. CL**2
00116 15 FILLER PIC X(01) VALUE ','. DTSNH104
00117 15 X104-SALE-TRANSFER-IND PIC X(01). DTSNH104
00118 88 X104-SALE-TRANSFER-YES-88 VALUE 'Y'. CL**2
00119 88 X104-SALE-TRANSFER-NO-88 VALUE 'N'. CL**2
00120 15 FILLER PIC X(01) VALUE ','. DTSNH104
00121 15 X104-NOT-LIAB-REASON PIC X(01). CL*16
00122 88 X104-NOT-LIAB-NULL-88 VALUE '0'. DTSNH104
00123 88 X104-NOT-LIAB-BUS-ACT-88 VALUE '1'. DTSNH104
00124 88 X104-NOT-LIAB-NO-EMPL-88 VALUE '2'. DTSNH104
00125 88 X104-NOT-LIAB-NO-WAGES-88 VALUE '3'. DTSNH104
00126 88 X104-NOT-LIAB-LOCALIZE-88 VALUE '4'. DTSNH104
00127 88 X104-NOT-LIAB-VALID-88 VALUES DTSNH104
00128 '0' '1' '2' '3' '4'. DTSNH104
00129 15 FILLER PIC X(01) VALUE ','. CL*12
00130 15 X104-INACTIVE-DATE PIC X(10). CL*12
00131 15 FILLER PIC X(01) VALUE ','. CL*15
00132 15 X104-INACTIVE-CODE PIC X(02). CL*16

43
Copybook/DTSUX110.cpy Normal file
View File

@ -0,0 +1,43 @@
00001 ***** 11/28/18
00002 * DTSUX110
00003 * DTSUX110 COPY OF EMPLOYER ADDRESS EXTRACT RECORD (X110) LV006
00004 * DTSUX110
00005 * THIS COPYBOOK IS USED TO UPDATE THE EMPLOYER ADDRESS INFO CL**4
00006 * ON THE MAILING AND BUSINESS OPO ADDRESS NOT UPDATED CL**5
00007 * DTSUX110
00008 * ADDED FILLER AT END FOR REC LEN 512 09/23/14 ZL1 CL**4
00009 ***** DTSUX110
00010 DTSUX110
00011 15 X110-REC-TYPE PIC X(03) VALUE '110'. DTSUX110
00012 15 FILLER PIC X(01) VALUE ','. DTSUX110
00013 15 X110-EMP-NO PIC 9(06). DTSUX110
00014 15 FILLER PIC X(01) VALUE ','. DTSUX110
00015 15 X110-ADDR-TYPE PIC X(02). DTSUX110
00016 88 X110-ADDR-TYPE-MAIL-88 VALUE '01'. DTSUX110
00017 88 X110-ADDR-TYPE-RECS-88 VALUE '02'. DTSUX110
00018 88 X110-ADDR-TYPE-WORK-88 VALUE '03'. DTSUX110
00019 15 FILLER PIC X(01) VALUE ','. DTSUX110
00020 15 X110-ATTENTION PIC X(40). DTSUX110
00021 15 FILLER PIC X(01) VALUE ','. DTSUX110
00022 15 X110-STREET-1 PIC X(40). DTSUX110
00023 15 FILLER PIC X(01) VALUE ','. DTSUX110
00024 15 X110-STREET-2 PIC X(40). DTSUX110
00025 15 FILLER PIC X(01) VALUE ','. DTSUX110
00026 15 X110-CITY PIC X(25). DTSUX110
00027 15 FILLER PIC X(01) VALUE ','. DTSUX110
00028 15 X110-STATE PIC X(02). DTSUX110
00029 15 FILLER PIC X(01) VALUE ','. DTSUX110
00030 15 X110-ZIP PIC X(10). DTSUX110
00031 15 FILLER PIC X(01) VALUE ','. DTSUX110
00032 15 X110-PHONE PIC X(15). DTSUX110
00033 15 FILLER PIC X(01) VALUE ','. DTSUX110
00034 15 X110-FAX PIC X(15). DTSUX110
00035 15 FILLER PIC X(01) VALUE ','. DTSUX110
00036 15 X110-EMAIL PIC X(40). DTSUX110
00037 15 FILLER PIC X(01) VALUE ','. DTSUX110
00038 15 X110-WEB-SITE PIC X(40). DTSUX110
00039 15 FILLER PIC X(01) VALUE ','. DTSUX110
00040 15 X110-EMP-NAME PIC X(40). DTSUX110
00041 15 FILLER PIC X(01) VALUE ','. CL**6
00042 15 X110-QAS-FLAG PIC X(01). CL**6
00043 15 FILLER PIC X(179). CL**6

62
Copybook/DTSWX120.cpy Normal file
View File

@ -0,0 +1,62 @@
00001 ***** 03/25/15
00002 * DTSWX120
00003 * DTSWX120 EMPLOYER OWNER/PARNTER-OFFICER EXTRACT RECORD. LV005
00004 * DTSWX120
00005 * EXCHANGES OWNER/PARTNER/OFFICER DATA BETWEEN MAINFRAME AND DTSWX120
00006 * SQL SERVER DATABASE. DTSWX120
00007 * DTSWX120
00008 * 11-10-14 ESSP IS PASSING COMMAS IN ADDRESS FIELDS, OUR CL**2
00009 * DELIMITER IN BX205 IS A COMMA FIELDS ARE BEING CL**2
00010 * CUTOFF, TO FIX PROBLEM DO NOT CALL BX205 FOR CL**2
00011 * ADDRESSES. MODIFIED W120 RECORD TO PASS ONLY CL**4
00012 * SIZE NEEDED FROM ESSP TO X120 ZL1 CL**4
00013 ***** DTSWX120
00014 DTSWX120
00015 15 W120-REC-TYPE PIC X(03) VALUE '120'. CL**4
00016 15 FILLER PIC X(01) VALUE ','. DTSWX120
00017 15 W120-EMP-NO PIC 9(06). CL**4
00018 15 FILLER PIC X(01) VALUE ','. DTSWX120
00019 15 W120-TYPE-IND PIC X(02). CL**4
00020 88 W120-TYPE-OPO-88 VALUE '00'. CL**4
00021 88 W120-TYPE-RPT-BSNS-88 VALUE '03'. CL**4
00022 88 W120-TYPE-RPT-TECH-88 VALUE '04'. CL**4
00023 88 W120-TYPE-FR500-88 VALUE '05'. CL**4
00024 88 W120-TYPE-CHARGE-88 VALUE '06'. CL**4
00025 88 W120-TYPE-BENEFITS-88 VALUE '07'. CL**4
00026 88 W120-TYPE-STATUS-88 VALUE '08'. CL**4
00027 15 FILLER PIC X(01) VALUE ','. DTSWX120
00028 15 W120-OPO-ESSP-FNAME. CL**4
00029 25 W120-OPO-FIRST-NAME PIC X(20). CL**4
00030 25 W120-OPO-FIRST-FILLER PIC X(20). CL**4
00031 15 FILLER PIC X(01) VALUE ','. DTSWX120
00032 15 W120-OPO-MID-INIT PIC X(01). CL**4
00033 15 FILLER PIC X(01) VALUE ','. DTSWX120
00034 15 W120-OPO-ESSP-LNAME. CL**4
00035 25 W120-OPO-LAST-NAME PIC X(20). CL**4
00036 25 W120-OPO-LAST-FILLER PIC X(20). CL**4
00037 15 FILLER PIC X(01) VALUE ','. DTSWX120
00038 15 W120-OPO-MEMBER-NAME PIC X(40). CL**4
00039 15 FILLER PIC X(01) VALUE ','. DTSWX120
00040 15 W120-OPO-SSN PIC X(09). CL**4
00041 15 FILLER PIC X(01) VALUE ','. DTSWX120
00042 15 W120-OPO-TITLE PIC X(40). CL**4
00043 15 FILLER PIC X(01) VALUE ','. DTSWX120
00044 15 W120-OPO-ATTENTION PIC X(40). CL**4
00045 15 FILLER PIC X(01) VALUE ','. DTSWX120
00046 15 W120-OPO-STREET-1 PIC X(40). CL**4
00047 15 FILLER PIC X(01) VALUE ','. DTSWX120
00048 15 W120-OPO-STREET-2 PIC X(40). CL**4
00049 15 FILLER PIC X(01) VALUE ','. DTSWX120
00050 15 W120-OPO-ESSP-CITY. CL**4
00051 25 W120-OPO-CITY PIC X(20). CL**4
00052 25 W120-OPO-CITY-FILLER PIC X(05). CL**4
00053 15 FILLER PIC X(01) VALUE ','. DTSWX120
00054 15 W120-OPO-STATE PIC X(02). CL**4
00055 15 FILLER PIC X(01) VALUE ','. DTSWX120
00056 15 W120-OPO-ZIP PIC X(10). CL**4
00057 15 FILLER PIC X(01) VALUE ','. DTSWX120
00058 15 W120-OPO-PHONE PIC X(15). CL**4
00059 15 FILLER PIC X(01) VALUE ','. DTSWX120
00060 15 W120-OPO-FAX PIC X(16). CL**5
00061 15 FILLER PIC X(01) VALUE ','. DTSWX120
00062 15 W120-OPO-EMAIL PIC X(40). CL**4

82
Copybook/ESPRPT04.cpy
View File

@ -1,6 +1,6 @@
00001 ******************************************************************04/18/13
00001 ******************************************************************01/25/24
00002 ** ESPRPT04 - EMPLOYER CHARGING REPORT RECORD **ESPRPT04
00003 *** *** LV016
00003 *** *** LV023
00004 *** ADDED 88 LEVEL FOR TEUCA 08/18/03 BEJ *** CL*12
00005 ****************************************************************** CL*12
00006 *CHANGED REC-TYPE TO PIC X FROM PIC 9 AK 04/15/04* CL*13
@ -24,45 +24,49 @@
00024 88 CHARGE-OP-WAIVER VALUE 8. CL**7
00025 88 CHARGE-OTHER VALUE 9. CL**7
00026 10 CHARGE-DATE PIC 9(8) VALUE ZERO. CL**2
00027 10 CHARGE-SHAREABLE-IND PIC 9(1) VALUE ZERO. ESPRPT04
00028 88 CHARGE-SHAREABLE-YES VALUE 1. ESPRPT04
00027 10 CHARGE-SHAREABLE-IND PIC X(1) VALUE SPACES. CL*22
00028 * 88 CHARGE-SHAREABLE-YES VALUE 1. CL*22
00029 10 CHARGE-PROG-NAME PIC X(6) VALUE SPACE. ESPRPT04
00030 10 CHARGE-PAY-TYPE-BEN PIC X(2) VALUE SPACE. ESPRPT04
00031 05 CHARGE-BWE-DATE PIC 9(8) VALUE ZERO. CL**2
00032 05 CHARGE-TRAN-ID PIC X(2) VALUE SPACE. ESPRPT04
00033 05 CHARGE-OPER-ID PIC X(8) VALUE SPACE. ESPRPT04
00034 05 CHARGE-TOT-AMT PIC S9(8)V99 VALUE ZERO. ESPRPT04
00035 05 CHARGE-CURR-AMT PIC S9(8)V99 VALUE ZERO. ESPRPT04
00036 05 CHARGE-BYE-DATE PIC 9(8) VALUE ZERO. CL**2
00037 05 CHARGE-SUPP-CODE PIC X(1) VALUE SPACE. ESPRPT04
00038 88 CHARGE-SUPP-CODE-EB VALUE 'E'. ESPRPT04
00039 88 CHARGE-SUPP-CODE-TEUC VALUE 'T'. CL*11
00040 88 CHARGE-SUPP-CODE-TEUCA VALUE 'A'. CL*12
00041 05 CHARGE-PAY-TYPE PIC X(1) VALUE SPACE. ESPRPT04
00042 05 CHARGE-NAME PIC X(32) VALUE SPACE. ESPRPT04
00043 05 CHARGE-FILLER CL**9
00044 REDEFINES CL**9
00045 CHARGE-NAME. CL**9
00046 10 CHARGE-LAST-NAME PIC X(18). CL**6
00047 10 CHARGE-NAME-SLASH PIC X. CL**6
00048 10 CHARGE-FIRST-NAME PIC X(12). CL**6
00049 10 CHARGE-MIDDLE-NAME PIC X. CL**6
00050 05 CHARGE-EMPLOYER-TYPE PIC 9(2) VALUE ZERO. ESPRPT04
00051 88 CHARGE-EMPLOYER-CONTRIBUTORY VALUE 00. CL*10
00052 88 CHARGE-EMPLOYER-UCX VALUE 01. CL*10
00053 88 CHARGE-EMPLOYER-UCFE VALUE 02. CL*10
00054 88 CHARGE-EMPLOYER-ETA-PSE VALUE 03. CL*10
00055 88 CHARGE-EMPLOYER-INTERSTATE VALUE 04. CL*10
00056 88 CHARGE-EMPLOYER-VOL-QUIT VALUE 05. CL*10
00057 88 CHARGE-EMPLOYER-MISCONDUCT VALUE 06. CL*10
00058 88 CHARGE-EMPLOYER-EB VALUE 07. CL*10
00059 88 CHARGE-EMPLOYER-SELF-INSURED VALUE 08. CL*10
00060 88 CHARGE-EMPLOYER-TRA VALUE 09. CL*10
00061 88 CHARGE-EMPLOYER-DC-GOVERNMENT VALUE 10. CL*10
00062 88 CHARGE-EMPLOYER-UI-PSE VALUE 11. CL*10
00063 88 CHARGE-EMPLOYER-FSC VALUE 12. CL*10
00064 88 CHARGE-EMPLOYER-DUMMY VALUE 30. CL*10
00065 05 CHARGE-REG-ADJ-CHECK PIC 9(02) VALUE ZEROS. ESPRPT04
00066 05 CHARGE-PROG-X PIC X(02). CL*14
00067 05 CHARGE-PROG REDEFINES CHARGE-PROG-X PIC 9(02). CL*14
00068 05 CHARGE-FILLER-ONE PIC X(14) VALUE SPACE. CL**4
00034 * 05 CHARGE-TOT-AMTZ PIC -9(7)V99 VALUE ZERO. CL*19
00035 * 05 CHARGE-TOT-AMT REDEFINES CHARGE-TOT-AMTZ PIC S9(8)V99. CL*19
00036 05 CHARGE-TOT-AMT PIC -9(7)V99. CL*19
00037 * 05 CHARGE-CURR-AMTZ PIC -9(7)V99 VALUE ZERO. CL*19
00038 * 05 CHARGE-CURR-AMT REDEFINES CHARGE-CURR-AMTZ PIC S9(8)V99. CL*19
00039 05 CHARGE-CURR-AMT PIC -9(7)V99. CL*19
00040 05 CHARGE-BYE-DATE PIC 9(8) VALUE ZERO. CL**2
00041 05 CHARGE-SUPP-CODE PIC X(1) VALUE SPACE. ESPRPT04
00042 88 CHARGE-SUPP-CODE-EB VALUE 'E'. ESPRPT04
00043 88 CHARGE-SUPP-CODE-TEUC VALUE 'T'. CL*11
00044 88 CHARGE-SUPP-CODE-TEUCA VALUE 'A'. CL*12
00045 05 CHARGE-PAY-TYPE PIC X(1) VALUE SPACE. ESPRPT04
00046 05 CHARGE-NAME PIC X(32) VALUE SPACE. ESPRPT04
00047 05 CHARGE-FILLER CL**9
00048 REDEFINES CL**9
00049 CHARGE-NAME. CL**9
00050 10 CHARGE-LAST-NAME PIC X(18). CL**6
00051 10 CHARGE-NAME-SLASH PIC X. CL**6
00052 10 CHARGE-FIRST-NAME PIC X(12). CL**6
00053 10 CHARGE-MIDDLE-NAME PIC X. CL**6
00054 05 CHARGE-EMPLOYER-TYPE PIC X(2) VALUE ZERO. CL*23
00055 * 88 CHARGE-EMPLOYER-CONTRIBUTORY VALUE 00. CL*23
00056 * 88 CHARGE-EMPLOYER-UCX VALUE 01. CL*23
00057 * 88 CHARGE-EMPLOYER-UCFE VALUE 02. CL*23
00058 * 88 CHARGE-EMPLOYER-ETA-PSE VALUE 03. CL*23
00059 * 88 CHARGE-EMPLOYER-INTERSTATE VALUE 04. CL*23
00060 * 88 CHARGE-EMPLOYER-VOL-QUIT VALUE 05. CL*23
00061 * 88 CHARGE-EMPLOYER-MISCONDUCT VALUE 06. CL*23
00062 * 88 CHARGE-EMPLOYER-EB VALUE 07. CL*23
00063 * 88 CHARGE-EMPLOYER-SELF-INSURED VALUE 08. CL*23
00064 * 88 CHARGE-EMPLOYER-TRA VALUE 09. CL*23
00065 * 88 CHARGE-EMPLOYER-DC-GOVERNMENT VALUE 10. CL*23
00066 * 88 CHARGE-EMPLOYER-UI-PSE VALUE 11. CL*23
00067 * 88 CHARGE-EMPLOYER-FSC VALUE 12. CL*23
00068 * 88 CHARGE-EMPLOYER-DUMMY VALUE 30. CL*23
00069 05 CHARGE-REG-ADJ-CHECK PIC X(02) VALUE ZEROS. CL*23
00070 05 CHARGE-PROG-X PIC X(02). CL*14
00071 05 CHARGE-PROG REDEFINES CHARGE-PROG-X PIC 9(02). CL*14
00072 05 CHARGE-FILLER-ONE PIC X(14) VALUE SPACE. CL**4

426
Copybook/ESPRPT04.cpy.decl.xml Normal file
View File

@ -0,0 +1,426 @@
<?xml version="1.0" encoding="ASCII"?>
<DeclDescriptors>
<DeclDescriptor
Name="CHARGE-REC"
>
<Type>
<CompositeTypeInfo
Size="136"
>
<Field
Name="CHARGE-SORT-KEY"
TotalSize="36"
>
<Type>
<CompositeTypeInfo
Size="36"
>
<Field
Name="CHARGE-REC-TYPE-X"
TotalSize="2"
>
<Type>
<FixedStringTypeInfo
CharCount="2"
Size="2"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-REC-TYPE"
TotalSize="2"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="2"
Size="2"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-EMPL-ACCT"
TotalSize="6"
Offset="2"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="6"
Size="6"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-KEY"
TotalSize="10"
Offset="8"
>
<Type>
<CompositeTypeInfo
Size="10"
>
<Field
Name="CHARGE-SSN"
TotalSize="9"
Offset="8"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="9"
Size="9"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-SSN-SEQ"
TotalSize="1"
Offset="17"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="1"
Size="1"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
</CompositeTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-CODE"
TotalSize="1"
Offset="18"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="1"
Size="1"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-DATE"
TotalSize="8"
Offset="19"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="8"
Size="8"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-SHAREABLE-IND"
TotalSize="1"
Offset="27"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="1"
Size="1"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-PROG-NAME"
TotalSize="6"
Offset="28"
>
<Type>
<FixedStringTypeInfo
CharCount="6"
Size="6"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-PAY-TYPE-BEN"
TotalSize="2"
Offset="34"
>
<Type>
<FixedStringTypeInfo
CharCount="2"
Size="2"
>
</FixedStringTypeInfo>
</Type>
</Field>
</CompositeTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-BWE-DATE"
TotalSize="8"
Offset="36"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="8"
Size="8"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-TRAN-ID"
TotalSize="2"
Offset="44"
>
<Type>
<FixedStringTypeInfo
CharCount="2"
Size="2"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-OPER-ID"
TotalSize="8"
Offset="46"
>
<Type>
<FixedStringTypeInfo
CharCount="8"
Size="8"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-TOT-AMT"
TotalSize="10"
Offset="54"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_SIGNED_TRAILING"
Digits="10"
Scale="2"
Size="10"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-CURR-AMT"
TotalSize="10"
Offset="64"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_SIGNED_TRAILING"
Digits="10"
Scale="2"
Size="10"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-BYE-DATE"
TotalSize="8"
Offset="74"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="8"
Size="8"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-SUPP-CODE"
TotalSize="1"
Offset="82"
>
<Type>
<FixedStringTypeInfo
CharCount="1"
Size="1"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-PAY-TYPE"
TotalSize="1"
Offset="83"
>
<Type>
<FixedStringTypeInfo
CharCount="1"
Size="1"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-NAME"
TotalSize="32"
Offset="84"
>
<Type>
<FixedStringTypeInfo
CharCount="32"
Size="32"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-FILLER"
TotalSize="32"
Offset="84"
>
<Type>
<CompositeTypeInfo
Size="32"
>
<Field
Name="CHARGE-LAST-NAME"
TotalSize="18"
Offset="84"
>
<Type>
<FixedStringTypeInfo
CharCount="18"
Size="18"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-NAME-SLASH"
TotalSize="1"
Offset="102"
>
<Type>
<FixedStringTypeInfo
CharCount="1"
Size="1"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-FIRST-NAME"
TotalSize="12"
Offset="103"
>
<Type>
<FixedStringTypeInfo
CharCount="12"
Size="12"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-MIDDLE-NAME"
TotalSize="1"
Offset="115"
>
<Type>
<FixedStringTypeInfo
CharCount="1"
Size="1"
>
</FixedStringTypeInfo>
</Type>
</Field>
</CompositeTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-EMPLOYER-TYPE"
TotalSize="2"
Offset="116"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="2"
Size="2"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-REG-ADJ-CHECK"
TotalSize="2"
Offset="118"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="2"
Size="2"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-PROG-X"
TotalSize="2"
Offset="120"
>
<Type>
<FixedStringTypeInfo
CharCount="2"
Size="2"
>
</FixedStringTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-PROG"
TotalSize="2"
Offset="120"
>
<Type>
<FixedDecimalTypeInfo
Storage="DISPLAY_UNSIGNED"
Digits="2"
Size="2"
>
</FixedDecimalTypeInfo>
</Type>
</Field>
<Field
Name="CHARGE-FILLER-ONE"
TotalSize="14"
Offset="122"
>
<Type>
<FixedStringTypeInfo
CharCount="14"
Size="14"
>
</FixedStringTypeInfo>
</Type>
</Field>
</CompositeTypeInfo>
</Type>
</DeclDescriptor>
</DeclDescriptors>

5
Copybook/WSDATES.cpy Normal file
View File

@ -0,0 +1,5 @@
00001 01 WS-SYSTEM-DATE-TIME. 04/29/04
00002 05 WS-SYSTEM-DATE PIC 9(06). WSDATES
00003 05 WS-SYSTEM-TIME PIC 9(08). LV001
00004 05 WS-SYSTEM-DAY PIC 9(05). WSDATES
00005 05 WS-SYSTEM-DOW PIC 9(01). WSDATES