DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
111
Copybook/DTSIT028.cpy
Normal file
111
Copybook/DTSIT028.cpy
Normal file
@ -0,0 +1,111 @@
|
||||
00001 ***** 09/28/12
|
||||
00002 * DTSIT028
|
||||
00003 * DTSIT028 ESTABLISH ELECTRONIC QUARTERLY REPORT LV002
|
||||
00004 * TRANSACTION RECORD DEFINITION. DTSIT028
|
||||
00005 * DTSIT028
|
||||
00006 * DTSIT028
|
||||
00007 * 04/06/2012 INITIAL DEVELOPMENT - MODIFIED DTSIT028
|
||||
00008 * FROM DTSIT027. THE SORT FIELDS DTSIT028
|
||||
00009 * HAVE BEEN CHANGED SO THAT ICESA DTSIT028
|
||||
00010 * REPORTS, AMENDED REPORTS AND DTSIT028
|
||||
00011 * REPORTS FROM EXTERNAL SOURCES DTSIT028
|
||||
00012 * WILL SORT INTO RELATED GROUPS. GD DTSIT028
|
||||
00013 * DTSIT028
|
||||
00014 ***** DTSIT028
|
||||
00015 DTSIT028
|
||||
00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028
|
||||
00017 DTSIT028
|
||||
00018 10 T028-KEY-AREA. DTSIT028
|
||||
00019 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028
|
||||
00020 15 T028-TRN-TYPE PIC X(01). DTSIT028
|
||||
00021 88 T028-ICESA-88 VALUE '1'. DTSIT028
|
||||
00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028
|
||||
00023 88 T028-WAGE-ONLY-DISK-88 VALUE '3'. DTSIT028
|
||||
00024 88 T028-ANNUAL-RPT-88 VALUE '4'. DTSIT028
|
||||
00025 88 T028-WEB-RPT-88 VALUE '5'. DTSIT028
|
||||
00026 88 T028-AMEND-RPT-88 VALUE '6'. DTSIT028
|
||||
00027 88 T028-BENEFITS-88 VALUE '7'. DTSIT028
|
||||
00028 88 T028-INTRANET-RPT-88 VALUE '8'. CL**2
|
||||
00029 88 T028-CLAIMNT-WAGE-88 VALUE '9'. CL**2
|
||||
00030 88 T028-UNKNOWN-88 VALUE '0'. DTSIT028
|
||||
00031 15 T028-LOG-NBR PIC 9(06). DTSIT028
|
||||
00032 DTSIT028
|
||||
00033 10 T028-DATA-AREA. DTSIT028
|
||||
00034 15 T028-EMP-NO PIC S9(07) COMP-3. DTSIT028
|
||||
00035 15 T028-ORIGIN PIC X(10). DTSIT028
|
||||
00036 15 FILLER REDEFINES T028-ORIGIN. DTSIT028
|
||||
00037 20 T028-OP-ID PIC X(08). DTSIT028
|
||||
00038 20 T028-SCR-ID PIC X(02). DTSIT028
|
||||
00039 15 T028-SYS-DATE PIC S9(09) COMP-3. DTSIT028
|
||||
00040 15 T028-SYS-TIME PIC S9(07) COMP-3. DTSIT028
|
||||
00041 DTSIT028
|
||||
00042 15 T028-PSEUDO-DOC-NO. DTSIT028
|
||||
00043 20 T028-PSEUDO-BATCH-NO DTSIT028
|
||||
00044 PIC S9(05) COMP-3. DTSIT028
|
||||
00045 20 T028-PSEUDO-ITEM-NO DTSIT028
|
||||
00046 PIC S9(03) COMP-3. DTSIT028
|
||||
00047 DTSIT028
|
||||
00048 15 T028-NAME-CHECK PIC X(04). DTSIT028
|
||||
00049 DTSIT028
|
||||
00050 15 T028-RPT-TYPE PIC X(02). DTSIT028
|
||||
00051 88 T028-ORIG-88 VALUE 'OR'. DTSIT028
|
||||
00052 88 T028-EMP-AMEND-88 VALUE 'EA'. DTSIT028
|
||||
00053 88 T028-AUDIT-88 VALUE 'AU'. DTSIT028
|
||||
00054 88 T028-FLD-SUP-88 VALUE 'FS'. DTSIT028
|
||||
00055 88 T028-ADMIN-CORR-88 VALUE 'AC'. DTSIT028
|
||||
00056 88 T028-ESTIM-88 VALUE 'ES'. DTSIT028
|
||||
00057 88 T028-WITHDRW-88 VALUE 'WD'. DTSIT028
|
||||
00058 88 T028-SUPPLEM-88 VALUE 'EA' 'AU' DTSIT028
|
||||
00059 'FS' 'AC'. DTSIT028
|
||||
00060 DTSIT028
|
||||
00061 15 T028-YRQ PIC S9(05) COMP-3. DTSIT028
|
||||
00062 DTSIT028
|
||||
00063 15 T028-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIT028
|
||||
00064 DTSIT028
|
||||
00065 15 T028-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIT028
|
||||
00066 DTSIT028
|
||||
00067 15 T028-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIT028
|
||||
00068 DTSIT028
|
||||
00069 15 T028-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIT028
|
||||
00070 DTSIT028
|
||||
00071 15 T028-WAIVE-BOTH-IND PIC X(01). DTSIT028
|
||||
00072 88 T028-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIT028
|
||||
00073 88 T028-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIT028
|
||||
00074 DTSIT028
|
||||
00075 15 T028-WAIVE-INT-IND PIC X(01). DTSIT028
|
||||
00076 88 T028-WAIVE-INT-YES-88 VALUE 'Y'. DTSIT028
|
||||
00077 88 T028-WAIVE-INT-NO-88 VALUE 'N'. DTSIT028
|
||||
00078 DTSIT028
|
||||
00079 15 T028-WAIVE-LATE-PEN-IND PIC X(01). DTSIT028
|
||||
00080 88 T028-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIT028
|
||||
00081 88 T028-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIT028
|
||||
00082 DTSIT028
|
||||
00083 15 T028-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIT028
|
||||
00084 88 T028-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIT028
|
||||
00085 DTSIT028
|
||||
00086 15 T028-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT028
|
||||
00087 88 T028-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT028
|
||||
00088 DTSIT028
|
||||
00089 15 T028-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT028
|
||||
00090 88 T028-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT028
|
||||
00091 DTSIT028
|
||||
00092 15 T028-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT028
|
||||
00093 88 T028-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT028
|
||||
00094 DTSIT028
|
||||
00095 15 T028-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT028
|
||||
00096 DTSIT028
|
||||
00097 15 T028-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIT028
|
||||
00098 DTSIT028
|
||||
00099 15 T028-TRACE-NO PIC S9(13) COMP-3. DTSIT028
|
||||
00100 DTSIT028
|
||||
00101 15 T028-RESPONSIBLE-ACTIVITY DTSIT028
|
||||
00102 PIC X(03). DTSIT028
|
||||
00103 DTSIT028
|
||||
00104 15 T028-RESPONSIBLE-OP-ID PIC X(08). DTSIT028
|
||||
00105 DTSIT028
|
||||
00106 15 T028-PASSED-FULL-EDITS-IND DTSIT028
|
||||
00107 PIC X(01). DTSIT028
|
||||
00108 88 T028-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIT028
|
||||
00109 88 T028-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIT028
|
||||
00110 DTSIT028
|
||||
00111 15 FILLER PIC X(26). DTSIT028
|
||||
Reference in New Issue
Block a user