103 lines
8.1 KiB
COBOL
103 lines
8.1 KiB
COBOL
00001 ***** 03/01/12
|
|
00002 * DTSIT027
|
|
00003 * DTSIT027 ESTABLISH ELECTRONIC QUARTERLY REPORT LV005
|
|
00004 * TRANSACTION RECORD DEFINITION. DTSIT027
|
|
00005 * DTSIT027
|
|
00006 * DTSIT027
|
|
00007 * 04/07/2003 INITIAL DEVELOPMENT. GD DTSIT027
|
|
00008 * 04/19/2011 MODIFIED TO PASS LOG NUMBER TO DTSIT027
|
|
00009 * DTSBD140. GD DTSIT027
|
|
00010 * DTSIT027
|
|
00011 ***** DTSIT027
|
|
00012 DTSIT027
|
|
00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027
|
|
00014 DTSIT027
|
|
00015 10 T027-COMMON-AREA. DTSIT027
|
|
00016 * 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
|
|
RCODE 15 T027-REC-TYPE PIC X(03). DTSIT027
|
|
00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027
|
|
00018 15 T027-ORIGIN PIC X(10). DTSIT027
|
|
00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027
|
|
00020 20 T027-OP-ID PIC X(08). DTSIT027
|
|
00021 20 T027-SCR-ID PIC X(02). DTSIT027
|
|
00022 15 T027-SYS-DATE PIC S9(09) COMP-3. DTSIT027
|
|
00023 15 T027-SYS-TIME PIC S9(07) COMP-3. DTSIT027
|
|
00024 DTSIT027
|
|
00025 10 T027-DATA-AREA. DTSIT027
|
|
00026 15 T027-TRN-TYPE PIC X(01). DTSIT027
|
|
00027 88 T027-WEB-RPT-88 VALUE '0'. DTSIT027
|
|
00028 88 T027-MAG-RPT-88 VALUE '1'. DTSIT027
|
|
00029 DTSIT027
|
|
00030 15 T027-PSEUDO-DOC-NO. DTSIT027
|
|
00031 20 T027-PSEUDO-BATCH-NO DTSIT027
|
|
00032 PIC S9(05) COMP-3. DTSIT027
|
|
00033 20 T027-PSEUDO-ITEM-NO DTSIT027
|
|
00034 PIC S9(03) COMP-3. DTSIT027
|
|
00035 DTSIT027
|
|
00036 15 T027-NAME-CHECK PIC X(04). DTSIT027
|
|
00037 DTSIT027
|
|
00038 15 T027-RPT-TYPE PIC X(02). DTSIT027
|
|
00039 88 T027-ORIG-88 VALUE 'OR'. DTSIT027
|
|
00040 88 T027-EMP-AMEND-88 VALUE 'EA'. DTSIT027
|
|
00041 88 T027-AUDIT-88 VALUE 'AU'. DTSIT027
|
|
00042 88 T027-FLD-SUP-88 VALUE 'FS'. DTSIT027
|
|
00043 88 T027-ADMIN-CORR-88 VALUE 'AC'. DTSIT027
|
|
00044 88 T027-ESTIM-88 VALUE 'ES'. DTSIT027
|
|
00045 88 T027-WITHDRW-88 VALUE 'WD'. DTSIT027
|
|
00046 88 T027-SUPPLEM-88 VALUE 'EA' 'AU' DTSIT027
|
|
00047 'FS' 'AC'. DTSIT027
|
|
00048 DTSIT027
|
|
00049 15 T027-YRQ PIC S9(05) COMP-3. DTSIT027
|
|
00050 DTSIT027
|
|
00051 15 T027-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027
|
|
00052 DTSIT027
|
|
00053 15 T027-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027
|
|
00054 DTSIT027
|
|
00055 15 T027-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027
|
|
00056 DTSIT027
|
|
00057 15 T027-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIT027
|
|
00058 DTSIT027
|
|
00059 15 T027-WAIVE-BOTH-IND PIC X(01). DTSIT027
|
|
00060 88 T027-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIT027
|
|
00061 88 T027-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIT027
|
|
00062 DTSIT027
|
|
00063 15 T027-WAIVE-INT-IND PIC X(01). DTSIT027
|
|
00064 88 T027-WAIVE-INT-YES-88 VALUE 'Y'. DTSIT027
|
|
00065 88 T027-WAIVE-INT-NO-88 VALUE 'N'. DTSIT027
|
|
00066 DTSIT027
|
|
00067 15 T027-WAIVE-LATE-PEN-IND PIC X(01). DTSIT027
|
|
00068 88 T027-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIT027
|
|
00069 88 T027-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIT027
|
|
00070 DTSIT027
|
|
00071 15 T027-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
|
|
00072 88 T027-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIT027
|
|
00073 DTSIT027
|
|
00074 15 T027-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
|
|
00075 88 T027-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027
|
|
00076 DTSIT027
|
|
00077 15 T027-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
|
|
00078 88 T027-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027
|
|
00079 DTSIT027
|
|
00080 15 T027-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027
|
|
00081 88 T027-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027
|
|
00082 DTSIT027
|
|
00083 15 T027-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT027
|
|
00084 DTSIT027
|
|
00085 15 T027-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIT027
|
|
00086 DTSIT027
|
|
00087 15 T027-TRACE-NO PIC S9(13) COMP-3. DTSIT027
|
|
00088 DTSIT027
|
|
00089 15 T027-RESPONSIBLE-ACTIVITY DTSIT027
|
|
00090 PIC X(03). DTSIT027
|
|
00091 DTSIT027
|
|
00092 15 T027-RESPONSIBLE-OP-ID PIC X(08). DTSIT027
|
|
00093 DTSIT027
|
|
00094 15 T027-PASSED-FULL-EDITS-IND DTSIT027
|
|
00095 PIC X(01). DTSIT027
|
|
00096 88 T027-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIT027
|
|
00097 88 T027-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIT027
|
|
00098 DTSIT027
|
|
00099 15 T027-LOG-NBR PIC X(06). DTSIT027
|
|
00100 DTSIT027
|
|
00101 15 FILLER PIC X(26). DTSIT027
|