00001 ***** 04/20/99 00002 * DTSSIS62 FIELD ASSIGNMENT INQUIRY/UPDATE SEND RECEIVE AREA DTSIS62 00003 ***** LV006 00004 10 FILLER PIC X(12). DTSIS62 00005 DTSIS62 00006 10 MAP-SCR-TYPE-AREA. DTSIS62 00007 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS62 00008 15 MAP-SCR-TYPE-A PIC X(01). DTSIS62 00009 15 MAP-SCR-TYPE PIC X(02). DTSIS62 00010 DTSIS62 00011 10 MAP-CICS-REGION-NAME-AREA. DTSIS62 00012 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS62 00013 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS62 00014 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS62 00015 DTSIS62 00016 10 MAP-SYS-DATE-AREA. DTSIS62 00017 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS62 00018 15 MAP-SYS-DATE-A PIC X(01). DTSIS62 00019 15 MAP-SYS-DATE PIC X(08). DTSIS62 00020 DTSIS62 00021 10 MAP-ASSIGN-NO-AREA. DTSIS62 00022 15 F620212. DTSIS62 00023 20 MAP-ASSIGN-NO-1-L PIC S9(04) COMP. DTSIS62 00024 20 MAP-ASSIGN-NO-1-A PIC X(01). DTSIS62 00025 20 MAP-ASSIGN-NO-1 PIC X(02). DTSIS62 00026 15 F620215. DTSIS62 00027 20 MAP-ASSIGN-NO-2-L PIC S9(04) COMP. DTSIS62 00028 20 MAP-ASSIGN-NO-2-A PIC X(01). DTSIS62 00029 20 MAP-ASSIGN-NO-2 PIC X(05). DTSIS62 00030 DTSIS62 00031 10 MAP-EMP-NO-AREA. DTSIS62 00032 15 F620230. DTSIS62 00033 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS62 00034 20 MAP-EMP-NO-1-A PIC X(01). DTSIS62 00035 20 MAP-EMP-NO-1 PIC X(03). DTSIS62 00036 15 F620234. DTSIS62 00037 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS62 00038 20 MAP-EMP-NO-2-A PIC X(01). DTSIS62 00039 20 MAP-EMP-NO-2 PIC X(03). DTSIS62 00040 DTSIS62 00041 10 F620240. DTSIS62 00042 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00043 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00044 15 MAP-PRIMARY-NAME PIC X(30). CL**2 00045 DTSIS62 00046 10 MAP-SYS-TIME-AREA. DTSIS62 00047 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS62 00048 15 MAP-SYS-TIME-A PIC X(01). DTSIS62 00049 15 MAP-SYS-TIME PIC X(08). DTSIS62 00050 DTSIS62 00051 10 MAP-COMPLETED-DATE-AREA. DTSIS62 00052 15 F620316. DTSIS62 00053 20 MAP-COMPLETED-DATE-MO-L PIC S9(04) COMP. DTSIS62 00054 20 MAP-COMPLETED-DATE-MO-A PIC X(01). DTSIS62 00055 20 MAP-COMPLETED-DATE-MO PIC X(02). DTSIS62 00056 15 F620319. DTSIS62 00057 20 MAP-COMPLETED-DATE-DA-L PIC S9(04) COMP. DTSIS62 00058 20 MAP-COMPLETED-DATE-DA-A PIC X(01). DTSIS62 00059 20 MAP-COMPLETED-DATE-DA PIC X(02). DTSIS62 00060 15 F620322. DTSIS62 00061 20 MAP-COMPLETED-DATE-YR-L PIC S9(04) COMP. DTSIS62 00062 20 MAP-COMPLETED-DATE-YR-A PIC X(01). DTSIS62 00063 20 MAP-COMPLETED-DATE-YR PIC X(02). DTSIS62 00064 DTSIS62 00065 10 F620336. DTSIS62 00066 15 MAP-STATUS-CD-L PIC S9(04) COMP. DTSIS62 00067 15 MAP-STATUS-CD-A PIC X(01). DTSIS62 00068 15 MAP-STATUS-CD PIC X(01). DTSIS62 00069 DTSIS62 00070 10 F620340. DTSIS62 00071 15 MAP-STATUS-CD-DESC-L PIC S9(04) COMP. DTSIS62 00072 15 MAP-STATUS-CD-DESC-A PIC X(01). DTSIS62 00073 15 MAP-STATUS-CD-DESC PIC X(10). DTSIS62 00074 DTSIS62 00075 10 F620359. DTSIS62 00076 15 MAP-ASSIGN-TYPE-L PIC S9(04) COMP. DTSIS62 00077 15 MAP-ASSIGN-TYPE-A PIC X(01). DTSIS62 00078 15 MAP-ASSIGN-TYPE PIC X(02). DTSIS62 00079 DTSIS62 00080 10 F620364. DTSIS62 00081 15 MAP-ASSIGN-TYPE-DESC-L PIC S9(04) COMP. DTSIS62 00082 15 MAP-ASSIGN-TYPE-DESC-A PIC X(01). DTSIS62 00083 15 MAP-ASSIGN-TYPE-DESC PIC X(10). DTSIS62 00084 DTSIS62 00085 10 MAP-START-DATE-AREA. DTSIS62 00086 15 F620416. DTSIS62 00087 20 MAP-START-DATE-MO-L PIC S9(04) COMP. DTSIS62 00088 20 MAP-START-DATE-MO-A PIC X(01). DTSIS62 00089 20 MAP-START-DATE-MO PIC X(02). DTSIS62 00090 15 F620419. DTSIS62 00091 20 MAP-START-DATE-DA-L PIC S9(04) COMP. DTSIS62 00092 20 MAP-START-DATE-DA-A PIC X(01). DTSIS62 00093 20 MAP-START-DATE-DA PIC X(02). DTSIS62 00094 15 F620422. DTSIS62 00095 20 MAP-START-DATE-YR-L PIC S9(04) COMP. DTSIS62 00096 20 MAP-START-DATE-YR-A PIC X(01). DTSIS62 00097 20 MAP-START-DATE-YR PIC X(02). DTSIS62 00098 DTSIS62 00099 10 MAP-DUE-DATE-AREA. DTSIS62 00100 15 F620436. DTSIS62 00101 20 MAP-DUE-DATE-MO-L PIC S9(04) COMP. DTSIS62 00102 20 MAP-DUE-DATE-MO-A PIC X(01). DTSIS62 00103 20 MAP-DUE-DATE-MO PIC X(02). DTSIS62 00104 15 F620439. DTSIS62 00105 20 MAP-DUE-DATE-DA-L PIC S9(04) COMP. DTSIS62 00106 20 MAP-DUE-DATE-DA-A PIC X(01). DTSIS62 00107 20 MAP-DUE-DATE-DA PIC X(02). DTSIS62 00108 15 F620442. DTSIS62 00109 20 MAP-DUE-DATE-YR-L PIC S9(04) COMP. DTSIS62 00110 20 MAP-DUE-DATE-YR-A PIC X(01). DTSIS62 00111 20 MAP-DUE-DATE-YR PIC X(02). DTSIS62 00112 DTSIS62 00113 10 F620459. DTSIS62 00114 15 MAP-PROCESSED-DATE-L PIC S9(04) COMP. DTSIS62 00115 15 MAP-PROCESSED-DATE-A PIC X(01). DTSIS62 00116 15 MAP-PROCESSED-DATE PIC X(08). DTSIS62 00117 DTSIS62 00118 10 F620516. DTSIS62 00119 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS62 00120 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS62 00121 15 MAP-FLD-REP-ID PIC X(02). DTSIS62 00122 DTSIS62 00123 10 F620521. DTSIS62 00124 15 MAP-FLD-REP-ID-DESC-L PIC S9(04) COMP. DTSIS62 00125 15 MAP-FLD-REP-ID-DESC-A PIC X(01). DTSIS62 00126 15 MAP-FLD-REP-ID-DESC PIC X(10). DTSIS62 00127 DTSIS62 00128 10 F620547. DTSIS62 00129 15 MAP-ATTACHMENTS-IND-L PIC S9(04) COMP. DTSIS62 00130 15 MAP-ATTACHMENTS-IND-A PIC X(01). DTSIS62 00131 15 MAP-ATTACHMENTS-IND PIC X(01). DTSIS62 00132 88 MAP-ATTACHMENTS-IND-YES VALUE 'Y'. DTSIS62 00133 88 MAP-ATTACHMENTS-IND-NO VALUE 'N'. DTSIS62 00134 88 MAP-ATTACHMENTS-IND-VALID VALUE 'Y' 'N'. DTSIS62 00135 DTSIS62 00136 10 F620563. DTSIS62 00137 15 MAP-SOURCE-OP-ID-L PIC S9(04) COMP. DTSIS62 00138 15 MAP-SOURCE-OP-ID-A PIC X(01). DTSIS62 00139 15 MAP-SOURCE-OP-ID PIC X(08). CL**2 00140 DTSIS62 00141 10 F620570. DTSIS62 00142 15 MAP-SOURCE-OP-ID-DESC-L PIC S9(04) COMP. DTSIS62 00143 15 MAP-SOURCE-OP-ID-DESC-A PIC X(01). DTSIS62 00144 15 MAP-SOURCE-OP-ID-DESC PIC X(14). CL**4 00145 DTSIS62 00146 10 MAP-AUDIT-START-YRQ-AREA. DTSIS62 00147 15 F620616. DTSIS62 00148 20 MAP-AUDIT-START-YR-L PIC S9(04) COMP. DTSIS62 00149 20 MAP-AUDIT-START-YR-A PIC X(01). DTSIS62 00150 20 MAP-AUDIT-START-YR PIC X(02). DTSIS62 00151 15 F620619. DTSIS62 00152 20 MAP-AUDIT-START-Q-L PIC S9(04) COMP. DTSIS62 00153 20 MAP-AUDIT-START-Q-A PIC X(01). DTSIS62 00154 20 MAP-AUDIT-START-Q PIC X(01). DTSIS62 00155 DTSIS62 00156 10 MAP-AUDIT-END-YRQ-AREA. DTSIS62 00157 15 F620627. DTSIS62 00158 20 MAP-AUDIT-END-YR-L PIC S9(04) COMP. DTSIS62 00159 20 MAP-AUDIT-END-YR-A PIC X(01). DTSIS62 00160 20 MAP-AUDIT-END-YR PIC X(02). DTSIS62 00161 15 F620630. DTSIS62 00162 20 MAP-AUDIT-END-Q-L PIC S9(04) COMP. DTSIS62 00163 20 MAP-AUDIT-END-Q-A PIC X(01). DTSIS62 00164 20 MAP-AUDIT-END-Q PIC X(01). DTSIS62 00165 DTSIS62 00166 10 MAP-NAICS-CD-AREA. CL**2 00167 15 MAP-NAICS-CD-L PIC S9(04) COMP. CL**2 00168 15 MAP-NAICS-CD-A PIC X(01). CL**2 00169 15 MAP-NAICS-CD PIC X(06). CL**2 00170 DTSIS62 00171 10 MAP-SIC-CD-AREA. DTSIS62 00172 15 MAP-SIC-CD-L PIC S9(04) COMP. DTSIS62 00173 15 MAP-SIC-CD-A PIC X(01). DTSIS62 00174 15 MAP-SIC-CD PIC X(04). CL**2 00175 DTSIS62 00176 10 MAP-OWN-CD-AREA. DTSIS62 00177 15 MAP-OWN-CD-L PIC S9(04) COMP. DTSIS62 00178 15 MAP-OWN-CD-A PIC X(01). DTSIS62 00179 15 MAP-OWN-CD PIC X(02). DTSIS62 00180 DTSIS62 00181 10 F620653. CL**2 00182 15 MAP-EMP-SIZE-IND-L PIC S9(04) COMP. CL**2 00183 15 MAP-EMP-SIZE-IND-A PIC X(01). CL**2 00184 15 MAP-EMP-SIZE-IND PIC X(01). CL**2 00185 88 MAP-EMP-SIZE-IND-SMALL VALUE 'S'. CL**2 00186 88 MAP-EMP-SIZE-IND-LARGE VALUE 'L'. CL**2 00187 88 MAP-EMP-SIZE-IND-VALID VALUE 'S' 'L'. CL**2 00188 CL**2 00189 10 F620753. DTSIS62 00190 15 MAP-TAX-EXTRACT-L PIC S9(04) COMP. CL**5 00191 15 MAP-TAX-EXTRACT-A PIC X(01). CL**5 00192 15 MAP-TAX-EXTRACT PIC X(01). CL**5 00193 88 MAP-TAX-EXTRACT-YES VALUE 'Y'. CL**5 00194 88 MAP-TAX-EXTRACT-NO VALUE 'N'. CL**5 00195 88 MAP-TAX-EXTRACT-VALID VALUE 'Y' 'N'. CL**5 00196 DTSIS62 00197 10 F620774. DTSIS62 00198 15 MAP-TAX-EXTRACT-DATE-L PIC S9(04) COMP. CL**5 00199 15 MAP-TAX-EXTRACT-DATE-A PIC X(01). CL**5 00200 15 MAP-TAX-EXTRACT-DATE PIC X(08). CL**5 00201 DTSIS62 00202 10 MAP-AUDIT-SEL-REASON-AREA OCCURS 5 TIMES. CL**2 00203 15 MAP-AUDIT-SEL-REASON-L PIC S9(04) COMP. CL**2 00204 15 MAP-AUDIT-SEL-REASON-A PIC X(01). CL**2 00205 15 MAP-AUDIT-SEL-REASON PIC X(02). CL**2 00206 88 MAP-AUDIT-SEL-DEFAULT-88 VALUE '03'. CL**6 00207 CL**2 00208 10 F620853. DTSIS62 00209 15 MAP-WAGE-EXTRACT-L PIC S9(04) COMP. CL**5 00210 15 MAP-WAGE-EXTRACT-A PIC X(01). CL**5 00211 15 MAP-WAGE-EXTRACT PIC X(01). CL**5 00212 88 MAP-WAGE-EXTRACT-YES VALUE 'Y'. CL**5 00213 88 MAP-WAGE-EXTRACT-NO VALUE 'N'. CL**5 00214 88 MAP-WAGE-EXTRACT-VALID VALUE 'Y' 'N'. CL**5 00215 DTSIS62 00216 10 F620871. DTSIS62 00217 15 MAP-WAGE-EXTRACT-DATE-L PIC S9(04) COMP. CL**5 00218 15 MAP-WAGE-EXTRACT-DATE-A PIC X(01). CL**5 00219 15 MAP-WAGE-EXTRACT-DATE PIC X(08). CL**5 00220 DTSIS62 00221 10 MAP-RELATED-EMP-NO-AREA. DTSIS62 00222 15 F620916. DTSIS62 00223 20 MAP-RELATED-EMP-NO-1-L PIC S9(04) COMP. DTSIS62 00224 20 MAP-RELATED-EMP-NO-1-A PIC X(01). DTSIS62 00225 20 MAP-RELATED-EMP-NO-1 PIC X(03). DTSIS62 00226 15 F620920. DTSIS62 00227 20 MAP-RELATED-EMP-NO-2-L PIC S9(04) COMP. DTSIS62 00228 20 MAP-RELATED-EMP-NO-2-A PIC X(01). DTSIS62 00229 20 MAP-RELATED-EMP-NO-2 PIC X(03). DTSIS62 00230 DTSIS62 00231 10 F620938. DTSIS62 00232 15 MAP-RELATED-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00233 15 MAP-RELATED-PRIMARY-NAME-A PIC X(01). CL**2 00234 15 MAP-RELATED-PRIMARY-NAME PIC X(40). CL**2 00235 DTSIS62 00236 10 MAP-CLAIMANT-SSN-AREA. DTSIS62 00237 15 F621016. DTSIS62 00238 20 MAP-CLAIMANT-SSN-1-L PIC S9(04) COMP. DTSIS62 00239 20 MAP-CLAIMANT-SSN-1-A PIC X(01). DTSIS62 00240 20 MAP-CLAIMANT-SSN-1 PIC X(03). DTSIS62 00241 15 F621020. DTSIS62 00242 20 MAP-CLAIMANT-SSN-2-L PIC S9(04) COMP. DTSIS62 00243 20 MAP-CLAIMANT-SSN-2-A PIC X(01). DTSIS62 00244 20 MAP-CLAIMANT-SSN-2 PIC X(02). DTSIS62 00245 15 F621023. DTSIS62 00246 20 MAP-CLAIMANT-SSN-3-L PIC S9(04) COMP. DTSIS62 00247 20 MAP-CLAIMANT-SSN-3-A PIC X(01). DTSIS62 00248 20 MAP-CLAIMANT-SSN-3 PIC X(04). DTSIS62 00249 DTSIS62 00250 10 F621038. DTSIS62 00251 15 MAP-CLAIMANT-NAME-L PIC S9(04) COMP. DTSIS62 00252 15 MAP-CLAIMANT-NAME-A PIC X(01). DTSIS62 00253 15 MAP-CLAIMANT-NAME PIC X(32). DTSIS62 00254 DTSIS62 00255 * F621104 THRU F622204 DTSIS62 00256 10 MAP-TEXT-LINE OCCURS 12 TIMES. DTSIS62 00257 15 MAP-TEXT-L PIC S9(04) COMP. DTSIS62 00258 15 MAP-TEXT-A PIC X(01). DTSIS62 00259 15 MAP-TEXT PIC X(72). DTSIS62 00260 CL**2 00261 10 F622310. CL**2 00262 15 MAP-KEY-EXTRACT-L PIC S9(04) COMP. CL**2 00263 15 MAP-KEY-EXTRACT-A PIC X(01). CL**2 00264 15 MAP-KEY-EXTRACT PIC X(15). CL**2 00265 DTSIS62 00266 10 F622327. CL**2 00267 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS62 00268 15 MAP-KEY-MOD-A PIC X(01). DTSIS62 00269 15 MAP-KEY-MOD PIC X(07). DTSIS62 00270 DTSIS62 00271 10 F622339. CL**2 00272 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS62 00273 15 MAP-KEY-DEL-A PIC X(01). DTSIS62 00274 15 MAP-KEY-DEL PIC X(07). DTSIS62 00275 DTSIS62 00276 10 MAP-MSG-AREA. DTSIS62 00277 15 MAP-MSG-ID-AREA. DTSIS62 00278 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS62 00279 20 MAP-MSG-ID-A PIC X(01). DTSIS62 00280 20 MAP-MSG-ID PIC X(08). DTSIS62 00281 15 MAP-MSG-TEXT-AREA. DTSIS62 00282 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS62 00283 20 MAP-MSG-TEXT-A PIC X(01). DTSIS62 00284 20 MAP-MSG-TEXT PIC X(58). DTSIS62 00285 DTSIS62 00286 10 MAP-GOTO-AREA. DTSIS62 00287 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS62 00288 15 MAP-GOTO-A PIC X(01). DTSIS62 00289 15 MAP-GOTO PIC X(02). DTSIS62