138 lines
11 KiB
COBOL
138 lines
11 KiB
COBOL
00001 ***** 04/05/13
|
|
00002 * DTSIARPT
|
|
00003 * DTSIARPT ACCOUNTING TRANSACTION FILE 'REPORT' LV009
|
|
00004 * TRANSACTION RECORD DEFINITION. DTSIARPT
|
|
00005 * DTSIARPT
|
|
00006 * DTSIARPT
|
|
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIARPT
|
|
00008 * 04/07/2003 MODIFIED FOR ELECTRONIC FILING - DTSIARPT
|
|
00009 * ADDED TRACE NUMBER AND DTSIARPT
|
|
00010 * PSEUDO-DOC NUMBER. GD DTSIARPT
|
|
00011 * 10/06/2005 ADDED ARPT-STATUS-CHNG-IND GD DTSIARPT
|
|
00012 * 02/10/2010 MODIFIED FOR MCHK - CHECK SEQUENCE DTSIARPT
|
|
00013 * NUMBER ADDED. GD DTSIARPT
|
|
00014 * 09/27/2012 ADDED CLAIMANT WAGE REPORT TYPE - CL**3
|
|
00015 * CW. GD CL**3
|
|
00016 * 05/08/2013 ADDED ANNUAL REPORT INDICATOR GD CL**8
|
|
00017 * DTSIARPT
|
|
00018 ***** DTSIARPT
|
|
00019 DTSIARPT
|
|
00020 10 ARPT-KEY-AREA. DTSIARPT
|
|
00021 15 ARPT-DOC-NO. DTSIARPT
|
|
00022 20 ARPT-BATCH-NO PIC S9(05) COMP-3. DTSIARPT
|
|
00023 20 ARPT-ITEM-NO PIC S9(03) COMP-3. DTSIARPT
|
|
00024 DTSIARPT
|
|
00025 10 ARPT-DATA-AREA. DTSIARPT
|
|
00026 15 ARPT-REC-TYPE PIC X(01). DTSIARPT
|
|
00027 88 ARPT-RPT-88 VALUE 'R'. DTSIARPT
|
|
00028 DTSIARPT
|
|
00029 15 ARPT-NAME-CHECK PIC X(04). DTSIARPT
|
|
00030 88 ARPT-NAME-CHECK-NO-ENTRY-88 VALUE SPACES. DTSIARPT
|
|
00031 DTSIARPT
|
|
00032 15 ARPT-EMP-NO PIC S9(07) COMP-3. DTSIARPT
|
|
00033 88 ARPT-EMP-NO-NO-ENTRY-88 VALUE +0. DTSIARPT
|
|
00034 DTSIARPT
|
|
00035 15 ARPT-RPT-TYPE PIC X(02). DTSIARPT
|
|
00036 88 ARPT-ORIG-88 VALUE 'OR'. DTSIARPT
|
|
00037 88 ARPT-EMP-AMEND-88 VALUE 'EA'. DTSIARPT
|
|
00038 88 ARPT-AUDIT-88 VALUE 'AU'. DTSIARPT
|
|
00039 88 ARPT-FLD-SUP-88 VALUE 'FS'. DTSIARPT
|
|
00040 88 ARPT-ADMIN-CORR-88 VALUE 'AC'. DTSIARPT
|
|
00041 88 ARPT-ESTIM-88 VALUE 'ES'. DTSIARPT
|
|
00042 88 ARPT-CLMT-WAGE-88 VALUE 'CW'. CL**2
|
|
00043 88 ARPT-TAX-WAGE-88 VALUE 'TW'. CL**9
|
|
00044 88 ARPT-WITHDRW-88 VALUE 'WD'. DTSIARPT
|
|
00045 88 ARPT-SUPPLEM-88 VALUE 'EA' 'AU' DTSIARPT
|
|
00046 'FS' 'AC'. DTSIARPT
|
|
00047 DTSIARPT
|
|
00048 15 ARPT-YRQ PIC S9(05) COMP-3. DTSIARPT
|
|
00049 88 ARPT-YRQ-NO-ENTRY-88 VALUE +0. DTSIARPT
|
|
00050 DTSIARPT
|
|
00051 15 ARPT-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIARPT
|
|
00052 88 ARPT-TOT-WAGE-NO-ENTRY-88 DTSIARPT
|
|
00053 VALUE -99999999999.99. DTSIARPT
|
|
00054 DTSIARPT
|
|
00055 15 ARPT-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIARPT
|
|
00056 88 ARPT-EXCESS-WAGE-NO-ENTRY-88 DTSIARPT
|
|
00057 VALUE -99999999999.99. DTSIARPT
|
|
00058 DTSIARPT
|
|
00059 15 ARPT-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIARPT
|
|
00060 88 ARPT-TAX-WAGE-NO-ENTRY-88 DTSIARPT
|
|
00061 VALUE -99999999999.99. DTSIARPT
|
|
00062 DTSIARPT
|
|
00063 15 ARPT-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIARPT
|
|
00064 88 ARPT-REMIT-AMT-NO-ENTRY-88 DTSIARPT
|
|
00065 VALUE -999999999.99. DTSIARPT
|
|
00066 DTSIARPT
|
|
00067 15 ARPT-WAGE-RPT-IND PIC X(01). DTSIARPT
|
|
00068 88 ARPT-WAGE-RPT-YES-88 VALUE 'Y'. DTSIARPT
|
|
00069 88 ARPT-WAGE-RPT-NO-88 VALUE 'N'. DTSIARPT
|
|
00070 88 ARPT-WAGE-RPT-NO-ENTRY-88 VALUE 'D'. DTSIARPT
|
|
00071 DTSIARPT
|
|
00072 15 ARPT-WAIVE-BOTH-IND PIC X(01). DTSIARPT
|
|
00073 88 ARPT-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIARPT
|
|
00074 88 ARPT-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIARPT
|
|
00075 DTSIARPT
|
|
00076 15 ARPT-WAIVE-INT-IND PIC X(01). DTSIARPT
|
|
00077 88 ARPT-WAIVE-INT-YES-88 VALUE 'Y'. DTSIARPT
|
|
00078 88 ARPT-WAIVE-INT-NO-88 VALUE 'N'. DTSIARPT
|
|
00079 DTSIARPT
|
|
00080 15 ARPT-WAIVE-LATE-PEN-IND PIC X(01). DTSIARPT
|
|
00081 88 ARPT-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIARPT
|
|
00082 88 ARPT-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIARPT
|
|
00083 DTSIARPT
|
|
00084 15 ARPT-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
|
00085 88 ARPT-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
|
00086 DTSIARPT
|
|
00087 15 ARPT-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
|
00088 88 ARPT-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
|
00089 DTSIARPT
|
|
00090 15 ARPT-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
|
00091 88 ARPT-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
|
00092 DTSIARPT
|
|
00093 15 ARPT-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
|
00094 88 ARPT-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
|
00095 DTSIARPT
|
|
00096 15 ARPT-VERIFIED-IND PIC X(01). DTSIARPT
|
|
00097 88 ARPT-VERIFIED-YES-88 VALUE 'Y'. DTSIARPT
|
|
00098 88 ARPT-VERIFIED-NO-88 VALUE ' '. DTSIARPT
|
|
00099 DTSIARPT
|
|
00100 15 ARPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSIARPT
|
|
00101 DTSIARPT
|
|
00102 15 ARPT-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIARPT
|
|
00103 DTSIARPT
|
|
00104 15 ARPT-RESPONSIBLE-ACTIVITY DTSIARPT
|
|
00105 PIC X(03). DTSIARPT
|
|
00106 DTSIARPT
|
|
00107 15 ARPT-RESPONSIBLE-OP-ID PIC X(08). DTSIARPT
|
|
00108 DTSIARPT
|
|
00109 15 ARPT-DISREGARD-EDITS-IND DTSIARPT
|
|
00110 PIC X(01). DTSIARPT
|
|
00111 DTSIARPT
|
|
00112 15 ARPT-PASSED-FULL-EDITS-IND DTSIARPT
|
|
00113 PIC X(01). DTSIARPT
|
|
00114 88 ARPT-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIARPT
|
|
00115 88 ARPT-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIARPT
|
|
00116 DTSIARPT
|
|
00117 15 ARPT-TRACE-NO PIC S9(13) COMP-3. DTSIARPT
|
|
00118 DTSIARPT
|
|
00119 15 ARPT-PSEUDO-DOC-NO. DTSIARPT
|
|
00120 20 ARPT-PSEUDO-BATCH-NO PIC S9(05) COMP-3. DTSIARPT
|
|
00121 20 ARPT-PSEUDO-ITEM-NO PIC S9(03) COMP-3. DTSIARPT
|
|
00122 DTSIARPT
|
|
00123 15 ARPT-STATUS-CHNG-IND PIC X(01). DTSIARPT
|
|
00124 88 ARPT-STATUS-CHNG-YES-88 VALUE 'Y'. DTSIARPT
|
|
00125 88 ARPT-STATUS-CHNG-NO-88 VALUE 'N'. DTSIARPT
|
|
00126 DTSIARPT
|
|
00127 15 ARPT-CHECK-SCAN-DT PIC S9(09) COMP-3. DTSIARPT
|
|
00128 15 ARPT-CHECK-SEQUENCE PIC S9(03) COMP-3. DTSIARPT
|
|
00129 DTSIARPT
|
|
00130 15 ARPT-ANNUAL-IND PIC X(01). CL**8
|
|
00131 88 ARPT-ANNUAL-YES-88 VALUE 'Y'. CL**8
|
|
00132 88 ARPT-ANNUAL-NO-88 VALUE 'N'. CL**8
|
|
00133 CL**8
|
|
00134 15 FILLER PIC X(12). CL**8
|
|
00135 CL**5
|
|
00136 15 ARPT-PROCESSED-DATE PIC S9(09) COMP-3. DTSIARPT
|
|
00137 88 ARPT-NOT-PROCESSED-88 VALUE ZERO. DTSIARPT
|