262 lines
21 KiB
COBOL
262 lines
21 KiB
COBOL
00001 ***** 05/25/07
|
|
00002 * DTSIC036
|
|
00003 * DTSIC036 FIELD SUPPORT CODES VALUES AND DESCRIPTIONS. LV006
|
|
00004 * DTSIC036
|
|
00005 ***** DTSIC036
|
|
00006 SKIP3 DTSIC036
|
|
00007 ***** DTSIC036
|
|
00008 * OPTION 01 = MFAS-EMP-SIZE-IND DTSIC036
|
|
00009 ***** DTSIC036
|
|
00010 10 C036-01-AREA. DTSIC036
|
|
00011 15 FILLER PIC X(01) VALUE ' '. DTSIC036
|
|
00012 15 FILLER PIC X(10) VALUE 'NON-AUDIT'. DTSIC036
|
|
00013 15 FILLER PIC X(40) DTSIC036
|
|
00014 VALUE 'NOT AN AUDIT ASSIGNMENT'. DTSIC036
|
|
00015 15 FILLER PIC X(01) VALUE 'L'. DTSIC036
|
|
00016 15 FILLER PIC X(10) VALUE 'LARGE'. DTSIC036
|
|
00017 15 FILLER PIC X(40) DTSIC036
|
|
00018 VALUE 'LARGE'. DTSIC036
|
|
00019 15 FILLER PIC X(01) VALUE 'S'. DTSIC036
|
|
00020 15 FILLER PIC X(10) VALUE 'SMALL'. DTSIC036
|
|
00021 15 FILLER PIC X(40) DTSIC036
|
|
00022 VALUE 'SMALL'. DTSIC036
|
|
00023 SKIP1 DTSIC036
|
|
00024 10 FILLER REDEFINES C036-01-AREA. DTSIC036
|
|
00025 15 C036-01-ENTRY OCCURS 3 TIMES DTSIC036
|
|
00026 INDEXED BY C036-01-IDX. DTSIC036
|
|
00027 20 C036-01-CD PIC X(01). DTSIC036
|
|
00028 20 C036-01-SHORT-DSCR PIC X(10). DTSIC036
|
|
00029 20 C036-01-LONG-DSCR PIC X(40). DTSIC036
|
|
00030 SKIP3 DTSIC036
|
|
00031 ***** DTSIC036
|
|
00032 * OPTION 02 = MFAS-STATUS-IND DTSIC036
|
|
00033 ***** DTSIC036
|
|
00034 10 C036-02-AREA. DTSIC036
|
|
00035 15 FILLER PIC X(01) VALUE 'A'. DTSIC036
|
|
00036 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC036
|
|
00037 15 FILLER PIC X(40) DTSIC036
|
|
00038 VALUE 'ACTIVE'. DTSIC036
|
|
00039 15 FILLER PIC X(01) VALUE 'C'. DTSIC036
|
|
00040 15 FILLER PIC X(10) VALUE 'COMPLETED'. DTSIC036
|
|
00041 15 FILLER PIC X(40) DTSIC036
|
|
00042 VALUE 'COMPLETED'. DTSIC036
|
|
00043 15 FILLER PIC X(01) VALUE 'P'. DTSIC036
|
|
00044 15 FILLER PIC X(10) VALUE 'PROCESSED'. DTSIC036
|
|
00045 15 FILLER PIC X(40) DTSIC036
|
|
00046 VALUE 'PROCESSED'. DTSIC036
|
|
00047 15 FILLER PIC X(01) VALUE 'H'. DTSIC036
|
|
00048 15 FILLER PIC X(10) VALUE 'HELD'. DTSIC036
|
|
00049 15 FILLER PIC X(40) DTSIC036
|
|
00050 VALUE 'HELD'. DTSIC036
|
|
00051 15 FILLER PIC X(01) VALUE 'K'. DTSIC036
|
|
00052 15 FILLER PIC X(10) VALUE 'KILLED'. DTSIC036
|
|
00053 15 FILLER PIC X(40) DTSIC036
|
|
00054 VALUE 'KILLED (CANCELED)'. DTSIC036
|
|
00055 SKIP1 DTSIC036
|
|
00056 10 FILLER REDEFINES C036-02-AREA. DTSIC036
|
|
00057 15 C036-02-ENTRY OCCURS 5 TIMES DTSIC036
|
|
00058 INDEXED BY C036-02-IDX. DTSIC036
|
|
00059 20 C036-02-CD PIC X(01). DTSIC036
|
|
00060 20 C036-02-SHORT-DSCR PIC X(10). DTSIC036
|
|
00061 20 C036-02-LONG-DSCR PIC X(40). DTSIC036
|
|
00062 SKIP3 DTSIC036
|
|
00063 ***** DTSIC036
|
|
00064 * OPTION 03 = MFAS-AUDIT-SEL-REASON DTSIC036
|
|
00065 ***** DTSIC036
|
|
00066 10 C036-03-AREA. DTSIC036
|
|
00067 15 FILLER PIC X(02) VALUE '01'. DTSIC036
|
|
00068 15 FILLER PIC X(10) VALUE 'RANDOM'. DTSIC036
|
|
00069 15 FILLER PIC X(40) DTSIC036
|
|
00070 VALUE 'RANDOM'. DTSIC036
|
|
00071 15 FILLER PIC X(02) VALUE '02'. DTSIC036
|
|
00072 15 FILLER PIC X(10) VALUE 'LARGE EMP '. DTSIC036
|
|
00073 15 FILLER PIC X(40) DTSIC036
|
|
00074 VALUE 'LARGE EMPLOYER'. DTSIC036
|
|
00075 15 FILLER PIC X(02) VALUE '03'. DTSIC036
|
|
00076 15 FILLER PIC X(10) VALUE 'REQUEST '. DTSIC036
|
|
00077 15 FILLER PIC X(40) DTSIC036
|
|
00078 VALUE 'REQUEST'. DTSIC036
|
|
00079 SKIP1 DTSIC036
|
|
00080 10 FILLER REDEFINES C036-03-AREA. DTSIC036
|
|
00081 15 C036-03-ENTRY OCCURS 3 TIMES DTSIC036
|
|
00082 INDEXED BY C036-03-IDX. DTSIC036
|
|
00083 20 C036-03-CD PIC X(02). DTSIC036
|
|
00084 20 C036-03-SHORT-DSCR PIC X(10). DTSIC036
|
|
00085 20 C036-03-LONG-DSCR PIC X(40). DTSIC036
|
|
00086 SKIP3 DTSIC036
|
|
00087 ***** DTSIC036
|
|
00088 * OPTION 04 = MAUR-EMP-SIZE-IND DTSIC036
|
|
00089 ***** DTSIC036
|
|
00090 10 C036-04-AREA. DTSIC036
|
|
00091 15 FILLER PIC X(01) VALUE 'L'. DTSIC036
|
|
00092 15 FILLER PIC X(10) VALUE 'LARGE'. DTSIC036
|
|
00093 15 FILLER PIC X(40) DTSIC036
|
|
00094 VALUE 'LARGE'. DTSIC036
|
|
00095 15 FILLER PIC X(01) VALUE 'S'. DTSIC036
|
|
00096 15 FILLER PIC X(10) VALUE 'SMALL'. DTSIC036
|
|
00097 15 FILLER PIC X(40) DTSIC036
|
|
00098 VALUE 'SMALL'. DTSIC036
|
|
00099 SKIP1 DTSIC036
|
|
00100 10 FILLER REDEFINES C036-04-AREA. DTSIC036
|
|
00101 15 C036-04-ENTRY OCCURS 2 TIMES DTSIC036
|
|
00102 INDEXED BY C036-04-IDX. DTSIC036
|
|
00103 20 C036-04-CD PIC X(01). DTSIC036
|
|
00104 20 C036-04-SHORT-DSCR PIC X(10). DTSIC036
|
|
00105 20 C036-04-LONG-DSCR PIC X(40). DTSIC036
|
|
00106 SKIP3 DTSIC036
|
|
00107 ***** DTSIC036
|
|
00108 * OPTION 05 = MAUR-ERROR-TYPE DTSIC036
|
|
00109 ***** DTSIC036
|
|
00110 10 C036-05-AREA. DTSIC036
|
|
00111 15 FILLER PIC X(02) VALUE '51'. DTSIC036
|
|
00112 15 FILLER PIC X(10) VALUE 'IND CONTRC'. DTSIC036
|
|
00113 15 FILLER PIC X(40) DTSIC036
|
|
00114 VALUE 'INDEPENDENT CONTRACTOR'. DTSIC036
|
|
00115 15 FILLER PIC X(02) VALUE '52'. DTSIC036
|
|
00116 15 FILLER PIC X(10) VALUE 'OFFICR WGS'. DTSIC036
|
|
00117 15 FILLER PIC X(40) DTSIC036
|
|
00118 VALUE 'CORPORATE OFFICER WAGES'. DTSIC036
|
|
00119 15 FILLER PIC X(02) VALUE '53'. DTSIC036
|
|
00120 15 FILLER PIC X(10) VALUE 'TIPS'. DTSIC036
|
|
00121 15 FILLER PIC X(40) DTSIC036
|
|
00122 VALUE 'TIPS'. DTSIC036
|
|
00123 15 FILLER PIC X(02) VALUE '54'. DTSIC036
|
|
00124 15 FILLER PIC X(10) VALUE 'MEALS'. DTSIC036
|
|
00125 15 FILLER PIC X(40) DTSIC036
|
|
00126 VALUE 'MEALS AND LODGING'. DTSIC036
|
|
00127 15 FILLER PIC X(02) VALUE '55'. DTSIC036
|
|
00128 15 FILLER PIC X(10) VALUE 'CASUAL LBR'. DTSIC036
|
|
00129 15 FILLER PIC X(40) DTSIC036
|
|
00130 VALUE 'CASUAL AND SPOT LABOR'. DTSIC036
|
|
00131 15 FILLER PIC X(02) VALUE '56'. DTSIC036
|
|
00132 15 FILLER PIC X(10) VALUE 'BENEFT PLN'. DTSIC036
|
|
00133 15 FILLER PIC X(40) DTSIC036
|
|
00134 VALUE 'BENEFIT PLANS'. DTSIC036
|
|
00135 15 FILLER PIC X(02) VALUE '57'. DTSIC036
|
|
00136 15 FILLER PIC X(10) VALUE 'EXPNS REIM'. DTSIC036
|
|
00137 15 FILLER PIC X(40) DTSIC036
|
|
00138 VALUE 'EXPENSE REIMBURSEMENT'. DTSIC036
|
|
00139 15 FILLER PIC X(02) VALUE '58'. DTSIC036
|
|
00140 15 FILLER PIC X(10) VALUE 'EXEMPT EMP'. DTSIC036
|
|
00141 15 FILLER PIC X(40) DTSIC036
|
|
00142 VALUE 'EXEMPT EMPLOYEES REPORTED IN ERROR'. DTSIC036
|
|
00143 15 FILLER PIC X(02) VALUE '59'. DTSIC036
|
|
00144 15 FILLER PIC X(10) VALUE 'WG BAS ERR'. DTSIC036
|
|
00145 15 FILLER PIC X(40) DTSIC036
|
|
00146 VALUE 'WAGE BASE ERROR'. DTSIC036
|
|
00147 15 FILLER PIC X(02) VALUE '60'. DTSIC036
|
|
00148 15 FILLER PIC X(10) VALUE 'COMMISSION'. DTSIC036
|
|
00149 15 FILLER PIC X(40) DTSIC036
|
|
00150 VALUE 'COMMISSIONS'. DTSIC036
|
|
00151 15 FILLER PIC X(02) VALUE '61'. DTSIC036
|
|
00152 15 FILLER PIC X(10) VALUE 'BONUSES'. DTSIC036
|
|
00153 15 FILLER PIC X(40) DTSIC036
|
|
00154 VALUE 'BONUSES'. DTSIC036
|
|
00155 15 FILLER PIC X(02) VALUE '62'. DTSIC036
|
|
00156 15 FILLER PIC X(10) VALUE 'DOMESTIC'. DTSIC036
|
|
00157 15 FILLER PIC X(40) DTSIC036
|
|
00158 VALUE 'DOMESTIC'. DTSIC036
|
|
00159 15 FILLER PIC X(02) VALUE '63'. DTSIC036
|
|
00160 15 FILLER PIC X(10) VALUE 'SEVER PAY'. DTSIC036
|
|
00161 15 FILLER PIC X(40) DTSIC036
|
|
00162 VALUE 'SEVERANCE PAY'. DTSIC036
|
|
00163 15 FILLER PIC X(02) VALUE '64'. DTSIC036
|
|
00164 15 FILLER PIC X(10) VALUE 'ARITH ERR'. DTSIC036
|
|
00165 15 FILLER PIC X(40) DTSIC036
|
|
00166 VALUE 'ARITHMETIC ERROR'. DTSIC036
|
|
00167 15 FILLER PIC X(02) VALUE '65'. DTSIC036
|
|
00168 15 FILLER PIC X(10) VALUE 'MISCLASS '. DTSIC036
|
|
00169 15 FILLER PIC X(40) DTSIC036
|
|
00170 VALUE 'MISC MISCLASSIFIED WORKERS'. DTSIC036
|
|
00171 15 FILLER PIC X(02) VALUE '66'. DTSIC036
|
|
00172 15 FILLER PIC X(10) VALUE 'UNRPT MIS'. DTSIC036
|
|
00173 15 FILLER PIC X(40) DTSIC036
|
|
00174 VALUE 'OTHER UNREPORTED MISCLASSIFIED WORKERS'. DTSIC036
|
|
00175 15 FILLER PIC X(02) VALUE '67'. DTSIC036
|
|
00176 15 FILLER PIC X(10) VALUE 'EMPL OMIT'. DTSIC036
|
|
00177 15 FILLER PIC X(40) DTSIC036
|
|
00178 VALUE 'EMPLOYEES OMITTED'. DTSIC036
|
|
00179 15 FILLER PIC X(02) VALUE '68'. DTSIC036
|
|
00180 15 FILLER PIC X(10) VALUE 'WGE UNRPT'. DTSIC036
|
|
00181 15 FILLER PIC X(40) DTSIC036
|
|
00182 VALUE 'WAGES UNREPORTED'. DTSIC036
|
|
00183 15 FILLER PIC X(02) VALUE '69'. DTSIC036
|
|
00184 15 FILLER PIC X(10) VALUE 'INTERNS '. DTSIC036
|
|
00185 15 FILLER PIC X(40) DTSIC036
|
|
00186 VALUE 'INTERNS MISCLASSIFIED'. DTSIC036
|
|
00187 15 FILLER PIC X(02) VALUE '70'. DTSIC036
|
|
00188 15 FILLER PIC X(10) VALUE 'WRONG ST '. DTSIC036
|
|
00189 15 FILLER PIC X(40) DTSIC036
|
|
00190 VALUE 'WAGES REPORTED TO WRONG STATE'. DTSIC036
|
|
00191 15 FILLER PIC X(02) VALUE '71'. DTSIC036
|
|
00192 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
|
00193 15 FILLER PIC X(40) DTSIC036
|
|
00194 VALUE 'UNDEFINED'. DTSIC036
|
|
00195 15 FILLER PIC X(02) VALUE '72'. DTSIC036
|
|
00196 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
|
00197 15 FILLER PIC X(40) DTSIC036
|
|
00198 VALUE 'UNDEFINED'. DTSIC036
|
|
00199 15 FILLER PIC X(02) VALUE '73'. DTSIC036
|
|
00200 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
|
00201 15 FILLER PIC X(40) DTSIC036
|
|
00202 VALUE 'UNDEFINED'. DTSIC036
|
|
00203 15 FILLER PIC X(02) VALUE '74'. DTSIC036
|
|
00204 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
|
00205 15 FILLER PIC X(40) DTSIC036
|
|
00206 VALUE 'UNDEFINED'. DTSIC036
|
|
00207 15 FILLER PIC X(02) VALUE '75'. DTSIC036
|
|
00208 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC036
|
|
00209 15 FILLER PIC X(40) DTSIC036
|
|
00210 VALUE 'OTHER'. DTSIC036
|
|
00211 SKIP1 DTSIC036
|
|
00212 10 FILLER REDEFINES C036-05-AREA. DTSIC036
|
|
00213 15 C036-05-ENTRY OCCURS 25 TIMES DTSIC036
|
|
00214 INDEXED BY C036-05-IDX. DTSIC036
|
|
00215 20 C036-05-CD PIC X(02). DTSIC036
|
|
00216 20 C036-05-SHORT-DSCR PIC X(10). DTSIC036
|
|
00217 20 C036-05-LONG-DSCR PIC X(40). DTSIC036
|
|
00218 SKIP3 DTSIC036
|
|
00219 ***** DTSIC036
|
|
00220 * OPTION 06 = MAUR-MONEY-REASON-CD DTSIC036
|
|
00221 ***** DTSIC036
|
|
00222 10 C036-06-AREA. DTSIC036
|
|
00223 15 FILLER PIC X(01) VALUE '0'. DTSIC036
|
|
00224 15 FILLER PIC X(10) VALUE 'N/A'. DTSIC036
|
|
00225 15 FILLER PIC X(40) DTSIC036
|
|
00226 VALUE 'NOT APPLICABLE: DUE AMT = COLLECT AMT'. DTSIC036
|
|
00227 15 FILLER PIC X(01) VALUE '1'. DTSIC036
|
|
00228 15 FILLER PIC X(10) VALUE 'WAIVER '. DTSIC036
|
|
00229 15 FILLER PIC X(40) DTSIC036
|
|
00230 VALUE 'WAIVER GRANTED'. DTSIC036
|
|
00231 15 FILLER PIC X(01) VALUE '2'. DTSIC036
|
|
00232 15 FILLER PIC X(10) VALUE 'DPC SIGNED'. DTSIC036
|
|
00233 15 FILLER PIC X(40) DTSIC036
|
|
00234 VALUE 'DEFERRED PAYMENT CONTRACT SIGNED'. DTSIC036
|
|
00235 15 FILLER PIC X(01) VALUE '3'. DTSIC036
|
|
00236 15 FILLER PIC X(10) VALUE 'EMP REFUSE'. DTSIC036
|
|
00237 15 FILLER PIC X(40) DTSIC036
|
|
00238 VALUE 'EMP REFUSED TO SIGN AUDIT - WILL APPEAL'. DTSIC036
|
|
00239 15 FILLER PIC X(01) VALUE '4'. DTSIC036
|
|
00240 15 FILLER PIC X(10) VALUE 'REFUSE PAY'. DTSIC036
|
|
00241 15 FILLER PIC X(40) DTSIC036
|
|
00242 VALUE 'EMP REFUSED TO PAY'. DTSIC036
|
|
00243 15 FILLER PIC X(01) VALUE '5'. DTSIC036
|
|
00244 15 FILLER PIC X(10) VALUE 'REQ BILL'. DTSIC036
|
|
00245 15 FILLER PIC X(40) DTSIC036
|
|
00246 VALUE 'EMP REQUESTED BILL'. DTSIC036
|
|
00247 15 FILLER PIC X(01) VALUE '8'. DTSIC036
|
|
00248 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC036
|
|
00249 15 FILLER PIC X(40) DTSIC036
|
|
00250 VALUE 'OTHER'. DTSIC036
|
|
00251 15 FILLER PIC X(01) VALUE '9'. DTSIC036
|
|
00252 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC036
|
|
00253 15 FILLER PIC X(40) DTSIC036
|
|
00254 VALUE 'UNKNOWN'. DTSIC036
|
|
00255 SKIP1 DTSIC036
|
|
00256 10 FILLER REDEFINES C036-06-AREA. DTSIC036
|
|
00257 15 C036-06-ENTRY OCCURS 8 TIMES DTSIC036
|
|
00258 INDEXED BY C036-06-IDX. DTSIC036
|
|
00259 20 C036-06-CD PIC X(01). DTSIC036
|
|
00260 20 C036-06-SHORT-DSCR PIC X(10). DTSIC036
|
|
00261 20 C036-06-LONG-DSCR PIC X(40). DTSIC036
|