113 lines
8.9 KiB
COBOL
113 lines
8.9 KiB
COBOL
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
|
|
RCODE 15 T028-REC-TYPE PIC X(03). 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
|