commiting everything bcz i am moving all stuff to another machine 10.57.100.120
This commit is contained in:
faizana
21
Copybook/DTSEX140.cpy
Normal file
21
Copybook/DTSEX140.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 ***** 07/10/18
|
||||
00002 ***************THIS IS ESSP X144 FORMAT ****************** DTSEX140
|
||||
00003 * DTSEX140 EMPLOYER REPORT EXTRACT RECORD - ESSP FORMAT LV013
|
||||
00004 * DTSEX140
|
||||
00005 * IMPORTS EMPLOYR REPORTS IN ESSP FORMAT CL*11
|
||||
00006 * APPLICATIONS. DTSEX140
|
||||
00007 * DTSEX140
|
||||
00008 * 01-21-2016 ADDED TO VERIFY AMENDED REPORTS ZL1. CL*11
|
||||
00009 * DTSEX140
|
||||
00010 * DTSEX140
|
||||
00011 ***** DTSEX140
|
||||
00012 DTSEX140
|
||||
00013 15 X140-REC-TYPE PIC X(03) VALUE '144'. CL*11
|
||||
00014 15 FILLER PIC X(01) VALUE ','. DTSEX140
|
||||
00015 15 X140-EMP-NO PIC 9(06). CL*11
|
||||
00016 15 FILLER PIC X(01) VALUE ','. DTSEX140
|
||||
00017 15 X140-QUARTER. CL*12
|
||||
00018 25 X140-QUARTER-YY PIC X(04). CL*12
|
||||
00019 25 FILLER PIC X(01) VALUE ','. CL*13
|
||||
00020 25 X140-QUARTER-Q PIC X(01). CL*12
|
||||
00021 15 FILLER PIC X(495). CL*11
|
||||
28
Copybook/DTSEX144.cpy
Normal file
28
Copybook/DTSEX144.cpy
Normal file
@ -0,0 +1,28 @@
|
||||
00001 ***** 01/21/16
|
||||
00002 ***************THIS IS ESSP X144 FORMAT ****************** DTSEX144
|
||||
00003 * DTSEX144 EMPLOYEE WAGE EXTRACT RECORD - ESSP FORMAT LV010
|
||||
00004 * DTSEX144
|
||||
00005 * IMPORTS EMPLOYEE WAGES AND NAME IN ESSP FORMAT CL**9
|
||||
00006 * APPLICATIONS. DTSEX144
|
||||
00007 * DTSEX144
|
||||
00008 * 01-21-2016 ADDED TO VERIFY CLAIMS FOR X147 SSNS ZL1. CL**9
|
||||
00009 * DTSEX144
|
||||
00010 * DTSEX144
|
||||
00011 ***** DTSEX144
|
||||
00012 DTSEX144
|
||||
00013 15 X144-REC-TYPE PIC X(03) VALUE '144'. DTSEX144
|
||||
00014 15 FILLER PIC X(01) VALUE ','. DTSEX144
|
||||
00015 15 X144-EMP-NO PIC 9(06). DTSEX144
|
||||
00016 15 FILLER PIC X(01) VALUE ','. DTSEX144
|
||||
00017 15 X144-QUARTER PIC X(06). DTSEX144
|
||||
00018 15 FILLER PIC X(10) VALUE ','. CL*10
|
||||
00019 15 X144-SSN PIC 9(09). DTSEX144
|
||||
00020 15 FILLER PIC X(01) VALUE ','. DTSEX144
|
||||
00021 15 X144-LAST-NAME PIC X(30). CL**9
|
||||
00022 15 FILLER PIC X(01) VALUE ','. DTSEX144
|
||||
00023 15 X144-FIRST-NAME PIC X(30). CL**9
|
||||
00024 15 FILLER PIC X(01) VALUE ','. CL**9
|
||||
00025 15 X144-MID-INIT PIC X(01). CL**9
|
||||
00026 15 FILLER PIC X(01) VALUE ','. CL**9
|
||||
00027 15 X144-EARNINGS PIC ----------9.99. CL**9
|
||||
00028 15 FILLER PIC X(398). CL*10
|
||||
33
Copybook/DTSEX147.cpy
Normal file
33
Copybook/DTSEX147.cpy
Normal file
@ -0,0 +1,33 @@
|
||||
00001 ***** 03/20/18
|
||||
00002 * DTSEX147
|
||||
00003 * DTSIX147 EMPLOYEE AMENDED WAGES TO BE DELETED LV005
|
||||
00004 * DTSEX147
|
||||
00005 * IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL DTSEX147
|
||||
00006 * APPLICATIONS. DTSEX147
|
||||
00007 * DTSEX147
|
||||
00008 * 02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001. GD DTSEX147
|
||||
00009 * 06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS. GD DTSEX147
|
||||
00010 * 09-01-2015 COPIED FROM IX147, USED FOR AMENDED WAGES ZL1 DTSEX147
|
||||
00011 * DTSEX147
|
||||
00012 * DTSEX147
|
||||
00013 ***** DTSEX147
|
||||
00014 DTSEX147
|
||||
00015 15 X147-REC-TYPE PIC X(03) VALUE '147'. DTSEX147
|
||||
00016 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
||||
00017 15 X147-EMP-NO PIC 9(06). DTSEX147
|
||||
00018 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
||||
00019 15 X147-QUARTER. CL**5
|
||||
00020 20 X147-YR PIC X(04). CL**5
|
||||
00021 20 FILLER PIC X(01). CL**5
|
||||
00022 20 X147-QTR PIC X(01). CL**5
|
||||
00023 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
||||
00024 15 FILLER PIC X(08). CL**2
|
||||
00025 15 FILLER PIC X(01) VALUE ','. CL**2
|
||||
00026 15 X147-SSN PIC 9(09). DTSEX147
|
||||
00027 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
||||
00028 15 X147-FNAME PIC X(30). CL**2
|
||||
00029 15 FILLER PIC X(01) VALUE ','. CL**2
|
||||
00030 15 X147-LNAME PIC X(30). CL**2
|
||||
00031 15 FILLER PIC X(03) VALUE ','. CL**3
|
||||
00032 15 X147-WAGES PIC ----------9.99. CL**4
|
||||
00033 15 FILLER PIC X(432). CL**2
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 07/17/03
|
||||
00001 ***** 04/09/13
|
||||
00002 * DTSIL415
|
||||
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005
|
||||
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV002
|
||||
00004 * MODULE LINKAGE. DTSIL415
|
||||
00005 * DTSIL415
|
||||
00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415
|
||||
@ -48,7 +48,7 @@
|
||||
00048 PIC S9(05) COMP-3. DTSIL415
|
||||
00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415
|
||||
00050 PIC S9(05) COMP-3. DTSIL415
|
||||
00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415
|
||||
00051 15 L415-UC30H-ESTIMATED-DATE CL**2
|
||||
00052 PIC S9(09) COMP-3. DTSIL415
|
||||
00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415
|
||||
00054 PIC S9(05) COMP-3. DTSIL415
|
||||
|
||||
@ -11,6 +11,7 @@
|
||||
00011 ***** DTSIP007
|
||||
00012 CL**2
|
||||
00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007
|
||||
DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007
|
||||
00014 IF MIO-COMPRESS-NO-88 DTSIP007
|
||||
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
|
||||
00016 ELSE DTSIP007
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 04/13/17
|
||||
00001 ***** 08/14/25
|
||||
00002 * DTSIS82
|
||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004
|
||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
|
||||
00004 * DTSIS82
|
||||
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
|
||||
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
|
||||
@ -139,19 +139,19 @@
|
||||
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
|
||||
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
|
||||
00141 SKIP1 DTSIS82
|
||||
00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3
|
||||
00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2
|
||||
00144 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**2
|
||||
00145 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**2
|
||||
00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2
|
||||
00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2
|
||||
00148 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**2
|
||||
00149 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**2
|
||||
00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2
|
||||
00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2
|
||||
00152 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**2
|
||||
00153 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**2
|
||||
00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2
|
||||
00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5
|
||||
00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5
|
||||
00144 * 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**5
|
||||
00145 * 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**5
|
||||
00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5
|
||||
00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5
|
||||
00148 * 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**5
|
||||
00149 * 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**5
|
||||
00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5
|
||||
00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5
|
||||
00152 * 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**5
|
||||
00153 * 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**5
|
||||
00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5
|
||||
00155 SKIP1 DTSIS82
|
||||
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
|
||||
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 11/11/02
|
||||
00001 ***** 04/09/13
|
||||
00002 * DTSIS89
|
||||
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV001
|
||||
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV003
|
||||
00004 * DTSIS89
|
||||
00005 ***** DTSIS89
|
||||
00006 SKIP1 DTSIS89
|
||||
@ -88,33 +88,33 @@
|
||||
00088 20 MAP-UC30H-FIRST-DEL-YY-A PIC X(01). DTSIS89
|
||||
00089 20 MAP-UC30H-FIRST-DEL-YY PIC X(02). DTSIS89
|
||||
00090 SKIP1 DTSIS89
|
||||
00091 10 MAP-UC30H-FINAL-DEL-DATE-AREA. DTSIS89
|
||||
00092 15 MAP-UC30H-FINAL-DEL-MM-AREA. DTSIS89
|
||||
00093 20 MAP-UC30H-FINAL-DEL-MM-L PIC S9(04) COMP. DTSIS89
|
||||
00094 20 MAP-UC30H-FINAL-DEL-MM-A PIC X(01). DTSIS89
|
||||
00095 20 MAP-UC30H-FINAL-DEL-MM PIC X(02). DTSIS89
|
||||
00096 15 MAP-UC30H-FINAL-DEL-DD-AREA. DTSIS89
|
||||
00097 20 MAP-UC30H-FINAL-DEL-DD-L PIC S9(04) COMP. DTSIS89
|
||||
00098 20 MAP-UC30H-FINAL-DEL-DD-A PIC X(01). DTSIS89
|
||||
00099 20 MAP-UC30H-FINAL-DEL-DD PIC X(02). DTSIS89
|
||||
00100 15 MAP-UC30H-FINAL-DEL-YY-AREA. DTSIS89
|
||||
00101 20 MAP-UC30H-FINAL-DEL-YY-L PIC S9(04) COMP. DTSIS89
|
||||
00102 20 MAP-UC30H-FINAL-DEL-YY-A PIC X(01). DTSIS89
|
||||
00103 20 MAP-UC30H-FINAL-DEL-YY PIC X(02). DTSIS89
|
||||
00104 SKIP1 DTSIS89
|
||||
00105 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89
|
||||
00106 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89
|
||||
00107 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89
|
||||
00108 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89
|
||||
00109 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89
|
||||
00110 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89
|
||||
00111 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89
|
||||
00112 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89
|
||||
00113 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89
|
||||
00114 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89
|
||||
00115 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89
|
||||
00116 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89
|
||||
00117 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89
|
||||
00091 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89
|
||||
00092 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89
|
||||
00093 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89
|
||||
00094 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89
|
||||
00095 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89
|
||||
00096 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89
|
||||
00097 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89
|
||||
00098 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89
|
||||
00099 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89
|
||||
00100 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89
|
||||
00101 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89
|
||||
00102 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89
|
||||
00103 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89
|
||||
00104 SKIP1 CL**2
|
||||
00105 10 MAP-UC30H-ESTIMATED-DATE-AREA. CL**3
|
||||
00106 15 MAP-UC30H-ESTIMATED-MM-AREA. CL**3
|
||||
00107 20 MAP-UC30H-ESTIMATED-MM-L PIC S9(04) COMP. CL**3
|
||||
00108 20 MAP-UC30H-ESTIMATED-MM-A PIC X(01). CL**3
|
||||
00109 20 MAP-UC30H-ESTIMATED-MM PIC X(02). CL**3
|
||||
00110 15 MAP-UC30H-ESTIMATED-DD-AREA. CL**3
|
||||
00111 20 MAP-UC30H-ESTIMATED-DD-L PIC S9(04) COMP. CL**3
|
||||
00112 20 MAP-UC30H-ESTIMATED-DD-A PIC X(01). CL**3
|
||||
00113 20 MAP-UC30H-ESTIMATED-DD PIC X(02). CL**3
|
||||
00114 15 MAP-UC30H-ESTIMATED-YY-AREA. CL**3
|
||||
00115 20 MAP-UC30H-ESTIMATED-YY-L PIC S9(04) COMP. CL**3
|
||||
00116 20 MAP-UC30H-ESTIMATED-YY-A PIC X(01). CL**3
|
||||
00117 20 MAP-UC30H-ESTIMATED-YY PIC X(02). CL**3
|
||||
00118 SKIP1 DTSIS89
|
||||
00119 10 MAP-ESTB-DATE-AREA. DTSIS89
|
||||
00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 07/19/99
|
||||
00001 ***** 08/14/25
|
||||
00002 * DTSISL1 LMI INQUIRY/UPDATE SEND/RECEIVE AREA DTSISL1
|
||||
00003 ***** LV009
|
||||
00003 ***** LV010
|
||||
00004 10 FILLER PIC X(12). DTSISL1
|
||||
00005 DTSISL1
|
||||
00006 10 MAP-SCR-TYPE-AREA. DTSISL1
|
||||
@ -190,7 +190,7 @@
|
||||
00190 15 MAP-MULTI-IND-DSCR-A PIC X(01). DTSISL1
|
||||
00191 15 MAP-MULTI-IND-DSCR PIC X(10). DTSISL1
|
||||
00192 DTSISL1
|
||||
00193 10 FR12015. CL**3
|
||||
00193 10 FR12023. CL*10
|
||||
00194 15 MAP-WARD-CD-L PIC S9(04) COMP. CL**3
|
||||
00195 15 MAP-WARD-CD-A PIC X(01). CL**3
|
||||
00196 15 MAP-WARD-CD PIC X(02). CL**5
|
||||
|
||||
19
Copybook/DTSIWBAT.cpy
Normal file
19
Copybook/DTSIWBAT.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
00001 ***** 02/22/16
|
||||
00002 * DTSIWBAT
|
||||
00003 * DTSIWBAT BATCH NO HISTORY FILE 'FROM SERVER' LV006
|
||||
00004 * RECORD DEFINITION. DTSIWBAT
|
||||
00005 * DTSIWBAT
|
||||
00006 * DTSIWBAT
|
||||
00007 * 12/18/2015 INITIAL DEVELOPMENT. ZL1 CL**2
|
||||
00008 * DTSIWBAT
|
||||
00009 * KEY = 5 LENGTH = 10 CL**6
|
||||
00010 * DTSIWBAT
|
||||
00011 ***** DTSIWBAT
|
||||
00012 DTSIWBAT
|
||||
00013 10 WBAT-KEY-AREA. CL**2
|
||||
00014 15 WBAT-BATCH-NO PIC 9(05). CL**4
|
||||
00015 DTSIWBAT
|
||||
00016 10 WBAT-DATA-AREA. CL**2
|
||||
00017 15 WBAT-BALANCED-IND PIC X(01). CL**3
|
||||
00018 15 WBAT-HELD-IND PIC X(01). CL**3
|
||||
00019 15 WBAT-CNTL-TRAN-CNT PIC 9(03). CL**3
|
||||
@ -21,4 +21,4 @@
|
||||
00021 DTSIWWGH
|
||||
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
||||
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
||||
00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||
00024 * 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||
|
||||
24
Copybook/DTSIWWGZ.cpy
Normal file
24
Copybook/DTSIWWGZ.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 02/27/24
|
||||
00002 * DTSIWWGH
|
||||
00003 * DTSIWWGH WAGE HISTORY FILE 'WAGE ITEM' LV003
|
||||
00004 * RECORD DEFINITION. DTSIWWGH
|
||||
00005 * DTSIWWGH
|
||||
00006 * >>> NEW WWGH INCLUDE DATE RECEIVED FROM ESSP/DOCS ZL1 <<< CL**3
|
||||
00007 * >>> INCLUDES LAST CHANGE DATE FROM DOCS FILE. <<< CL**2
|
||||
00008 * DTSIWWGH
|
||||
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
|
||||
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH
|
||||
00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
|
||||
00012 * DTSIWWGH
|
||||
00013 * KEY = 12 LENGTH = 23 CL**2
|
||||
00014 * DTSIWWGH
|
||||
00015 ***** DTSIWWGH
|
||||
00016 DTSIWWGH
|
||||
00017 10 WWGH-KEY-AREA. DTSIWWGH
|
||||
00018 15 WWGH-EMP-NO PIC S9(07) COMP-3. DTSIWWGH
|
||||
00019 15 WWGH-YRQ PIC S9(05) COMP-3. DTSIWWGH
|
||||
00020 15 WWGH-SSN PIC S9(09) COMP-3. DTSIWWGH
|
||||
00021 DTSIWWGH
|
||||
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
||||
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
||||
00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||
Reference in New Issue
Block a user