00001 ***** 09/13/12 00002 * DTSIS87 00003 * DTSIS87 CANDIDATE SELECTION CRITERIA INQUIRY/UPDATE LV010 00004 * SEND/RECEIVE AREA. DTSIS87 00005 * DTSIS87 00006 ***** DTSIS87 00007 SKIP1 DTSIS87 00008 10 FILLER PIC X(12). DTSIS87 00009 SKIP1 DTSIS87 00010 10 MAP-SCR-TYPE-AREA. DTSIS87 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS87 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS87 00013 15 MAP-SCR-TYPE PIC X(02). DTSIS87 00014 SKIP1 DTSIS87 00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS87 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS87 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS87 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS87 00019 SKIP1 DTSIS87 00020 10 MAP-SYS-DATE-AREA. DTSIS87 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS87 00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS87 00023 15 MAP-SYS-DATE PIC X(08). DTSIS87 00024 SKIP1 DTSIS87 00025 10 MAP-SYS-TIME-AREA. DTSIS87 00026 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS87 00027 15 MAP-SYS-TIME-A PIC X(01). DTSIS87 00028 15 MAP-SYS-TIME PIC X(08). DTSIS87 00029 ***** DTSIS87 00030 10 MAP-AUDIT-YRQ-RANGE-AREA. DTSIS87 00031 15 MAP-AUDIT-START-YRQ-AREA. DTSIS87 00032 20 MAP-AUDIT-START-YR-AREA. DTSIS87 00033 25 MAP-AUDIT-START-YR-L PIC S9(04) COMP. DTSIS87 00034 25 MAP-AUDIT-START-YR-A PIC X(01). DTSIS87 00035 25 MAP-AUDIT-START-YR PIC X(02). DTSIS87 00036 20 MAP-AUDIT-START-Q-AREA. DTSIS87 00037 25 MAP-AUDIT-START-Q-L PIC S9(04) COMP. DTSIS87 00038 25 MAP-AUDIT-START-Q-A PIC X(01). DTSIS87 00039 25 MAP-AUDIT-START-Q PIC X(01). DTSIS87 00040 15 MAP-AUDIT-END-YRQ-AREA. DTSIS87 00041 20 MAP-AUDIT-END-YR-AREA. DTSIS87 00042 25 MAP-AUDIT-END-YR-L PIC S9(04) COMP. DTSIS87 00043 25 MAP-AUDIT-END-YR-A PIC X(01). DTSIS87 00044 25 MAP-AUDIT-END-YR PIC X(02). DTSIS87 00045 20 MAP-AUDIT-END-Q-AREA. DTSIS87 00046 25 MAP-AUDIT-END-Q-L PIC S9(04) COMP. DTSIS87 00047 25 MAP-AUDIT-END-Q-A PIC X(01). DTSIS87 00048 25 MAP-AUDIT-END-Q PIC X(01). DTSIS87 00049 SKIP1 DTSIS87 00050 10 MAP-SMALL-EMP-LIST-CNT-AREA. DTSIS87 00051 15 MAP-SMALL-EMP-LIST-CNT-L PIC S9(04) COMP. DTSIS87 00052 15 MAP-SMALL-EMP-LIST-CNT-A PIC X(01). DTSIS87 00053 15 MAP-SMALL-EMP-LIST-CNT PIC X(03). DTSIS87 00054 15 MAP-SMALL-EMP-LIST-CNT-N REDEFINES DTSIS87 00055 MAP-SMALL-EMP-LIST-CNT PIC ZZ9. DTSIS87 00056 SKIP1 DTSIS87 00057 10 MAP-LARGE-EMP-LIST-CNT-AREA. DTSIS87 00058 15 MAP-LARGE-EMP-LIST-CNT-L PIC S9(04) COMP. DTSIS87 00059 15 MAP-LARGE-EMP-LIST-CNT-A PIC X(01). DTSIS87 00060 15 MAP-LARGE-EMP-LIST-CNT PIC X(03). DTSIS87 00061 15 MAP-LARGE-EMP-LIST-CNT-N REDEFINES DTSIS87 00062 MAP-LARGE-EMP-LIST-CNT PIC ZZ9. DTSIS87 00063 SKIP1 DTSIS87 00064 10 MAP-LARGE-EMP-DEFIN-AREA. DTSIS87 00065 15 MAP-LARGE-EMP-DEFIN-L PIC S9(04) COMP. DTSIS87 00066 15 MAP-LARGE-EMP-DEFIN-A PIC X(01). DTSIS87 00067 15 MAP-LARGE-EMP-DEFIN PIC X(01). DTSIS87 00068 SKIP1 DTSIS87 00069 10 MAP-RANDOM-IND-AREA. DTSIS87 00070 15 MAP-RANDOM-IND-L PIC S9(04) COMP. DTSIS87 00071 15 MAP-RANDOM-IND-A PIC X(01). DTSIS87 00072 15 MAP-RANDOM-IND PIC X(01). DTSIS87 00073 SKIP1 DTSIS87 00074 10 MAP-TARGET-IND-AREA. DTSIS87 00075 15 MAP-TARGET-IND-L PIC S9(04) COMP. DTSIS87 00076 15 MAP-TARGET-IND-A PIC X(01). DTSIS87 00077 15 MAP-TARGET-IND PIC X(01). DTSIS87 00078 SKIP1 DTSIS87 00079 10 MAP-FLD-REP-ID-AREA OCCURS 10 DTSIS87 00080 INDEXED BY MAP-IDX. DTSIS87 00081 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS87 00082 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS87 00083 15 MAP-FLD-REP-ID PIC X(02). DTSIS87 00084 SKIP1 DTSIS87 00085 10 MAP-AUDITED-START-YRQ-AREA. DTSIS87 00086 15 MAP-AUDITED-START-YR-AREA. DTSIS87 00087 20 MAP-AUDITED-START-YR-L PIC S9(04) COMP. DTSIS87 00088 20 MAP-AUDITED-START-YR-A PIC X(01). DTSIS87 00089 20 MAP-AUDITED-START-YR PIC X(02). DTSIS87 00090 15 MAP-AUDITED-START-Q-AREA. DTSIS87 00091 20 MAP-AUDITED-START-Q-L PIC S9(04) COMP. DTSIS87 00092 20 MAP-AUDITED-START-Q-A PIC X(01). DTSIS87 00093 20 MAP-AUDITED-START-Q PIC X(01). DTSIS87 00094 SKIP1 DTSIS87 00095 10 MAP-ACTIVE-PERIOD-IND-AREA. DTSIS87 00096 15 MAP-ACTIVE-PERIOD-IND-L PIC S9(04) COMP. DTSIS87 00097 15 MAP-ACTIVE-PERIOD-IND-A PIC X(01). DTSIS87 00098 15 MAP-ACTIVE-PERIOD-IND PIC X(01). DTSIS87 00099 SKIP1 DTSIS87 00100 10 MAP-ACTIVE-CURR-IND-AREA. DTSIS87 00101 15 MAP-ACTIVE-CURR-IND-L PIC S9(04) COMP. DTSIS87 00102 15 MAP-ACTIVE-CURR-IND-A PIC X(01). DTSIS87 00103 15 MAP-ACTIVE-CURR-IND PIC X(01). DTSIS87 00104 SKIP1 DTSIS87 00105 10 MAP-START-SIC-CD-AREA. DTSIS87 00106 15 MAP-START-SIC-CD-L PIC S9(04) COMP. DTSIS87 00107 15 MAP-START-SIC-CD-A PIC X(01). DTSIS87 00108 15 MAP-START-SIC-CD PIC X(04). DTSIS87 00109 SKIP1 DTSIS87 00110 10 MAP-END-SIC-CD-AREA. DTSIS87 00111 15 MAP-END-SIC-CD-L PIC S9(04) COMP. DTSIS87 00112 15 MAP-END-SIC-CD-A PIC X(01). DTSIS87 00113 15 MAP-END-SIC-CD PIC X(04). DTSIS87 00114 SKIP1 DTSIS87 00115 10 MAP-START-NAICS-CD-AREA. DTSIS87 00116 15 MAP-START-NAICS-CD-L PIC S9(04) COMP. DTSIS87 00117 15 MAP-START-NAICS-CD-A PIC X(01). DTSIS87 00118 15 MAP-START-NAICS-CD PIC X(06). DTSIS87 00119 SKIP1 DTSIS87 00120 10 MAP-END-NAICS-CD-AREA. DTSIS87 00121 15 MAP-END-NAICS-CD-L PIC S9(04) COMP. DTSIS87 00122 15 MAP-END-NAICS-CD-A PIC X(01). DTSIS87 00123 15 MAP-END-NAICS-CD PIC X(06). DTSIS87 00124 SKIP1 DTSIS87 00125 10 MAP-FLD-ZIP-DC-IND-AREA. DTSIS87 00126 15 MAP-FLD-ZIP-DC-IND-L PIC S9(04) COMP. DTSIS87 00127 15 MAP-FLD-ZIP-DC-IND-A PIC X(01). DTSIS87 00128 15 MAP-FLD-ZIP-DC-IND PIC X(01). DTSIS87 00129 SKIP1 DTSIS87 00130 10 MAP-FLD-ZIP-START-AREA. DTSIS87 00131 15 MAP-FLD-ZIP-START-L PIC S9(04) COMP. DTSIS87 00132 15 MAP-FLD-ZIP-START-A PIC X(01). DTSIS87 00133 15 MAP-FLD-ZIP-START PIC X(05). DTSIS87 00134 SKIP1 DTSIS87 00135 10 MAP-FLD-ZIP-END-AREA. DTSIS87 00136 15 MAP-FLD-ZIP-END-L PIC S9(04) COMP. DTSIS87 00137 15 MAP-FLD-ZIP-END-A PIC X(01). DTSIS87 00138 15 MAP-FLD-ZIP-END PIC X(05). DTSIS87 00139 SKIP1 DTSIS87 00140 10 MAP-LIAB-START-AREA. DTSIS87 00141 15 MAP-LIAB-START-MM-AREA. DTSIS87 00142 20 MAP-LIAB-START-MM-L PIC S9(04) COMP. DTSIS87 00143 20 MAP-LIAB-START-MM-A PIC X(01). DTSIS87 00144 20 MAP-LIAB-START-MM PIC X(02). DTSIS87 00145 15 MAP-LIAB-START-DD-AREA. DTSIS87 00146 20 MAP-LIAB-START-DD-L PIC S9(04) COMP. DTSIS87 00147 20 MAP-LIAB-START-DD-A PIC X(01). DTSIS87 00148 20 MAP-LIAB-START-DD PIC X(02). DTSIS87 00149 15 MAP-LIAB-START-YY-AREA. DTSIS87 00150 20 MAP-LIAB-START-YY-L PIC S9(04) COMP. DTSIS87 00151 20 MAP-LIAB-START-YY-A PIC X(01). DTSIS87 00152 20 MAP-LIAB-START-YY PIC X(02). DTSIS87 00153 SKIP1 DTSIS87 00154 10 MAP-LIAB-END-AREA. DTSIS87 00155 15 MAP-LIAB-END-MM-AREA. DTSIS87 00156 20 MAP-LIAB-END-MM-L PIC S9(04) COMP. DTSIS87 00157 20 MAP-LIAB-END-MM-A PIC X(01). DTSIS87 00158 20 MAP-LIAB-END-MM PIC X(02). DTSIS87 00159 15 MAP-LIAB-END-DD-AREA. DTSIS87 00160 20 MAP-LIAB-END-DD-L PIC S9(04) COMP. DTSIS87 00161 20 MAP-LIAB-END-DD-A PIC X(01). DTSIS87 00162 20 MAP-LIAB-END-DD PIC X(02). DTSIS87 00163 15 MAP-LIAB-END-YY-AREA. DTSIS87 00164 20 MAP-LIAB-END-YY-L PIC S9(04) COMP. DTSIS87 00165 20 MAP-LIAB-END-YY-A PIC X(01). DTSIS87 00166 20 MAP-LIAB-END-YY PIC X(02). DTSIS87 00167 SKIP1 DTSIS87 00168 10 MAP-WAGE-START-AMT-AREA. DTSIS87 00169 15 MAP-WAGE-START-AMT-L PIC S9(04) COMP. DTSIS87 00170 15 MAP-WAGE-START-AMT-A PIC X(01). DTSIS87 00171 15 MAP-WAGE-START-AMT PIC X(14). DTSIS87 00172 15 MAP-WAGE-START-AMT-N REDEFINES MAP-WAGE-START-AMTDTSIS87 00173 PIC ZZZ,ZZZ,ZZ9.99. DTSIS87 00174 SKIP1 DTSIS87 00175 10 MAP-WAGE-END-AMT-AREA. DTSIS87 00176 15 MAP-WAGE-END-AMT-L PIC S9(04) COMP. DTSIS87 00177 15 MAP-WAGE-END-AMT-A PIC X(01). DTSIS87 00178 15 MAP-WAGE-END-AMT PIC X(14). DTSIS87 00179 15 MAP-WAGE-END-AMT-N REDEFINES MAP-WAGE-END-AMT DTSIS87 00180 PIC ZZZ,ZZZ,ZZ9.99. DTSIS87 00181 SKIP1 DTSIS87 00182 10 MAP-DECR-YRQ-RANGE-AREA. DTSIS87 00183 15 MAP-DECR-START-YRQ-AREA. DTSIS87 00184 20 MAP-DECR-START-YR-AREA. DTSIS87 00185 25 MAP-DECR-START-YR-L PIC S9(04) COMP. DTSIS87 00186 25 MAP-DECR-START-YR-A PIC X(01). DTSIS87 00187 25 MAP-DECR-START-YR PIC X(02). DTSIS87 00188 20 MAP-DECR-START-Q-AREA. DTSIS87 00189 25 MAP-DECR-START-Q-L PIC S9(04) COMP. DTSIS87 00190 25 MAP-DECR-START-Q-A PIC X(01). DTSIS87 00191 25 MAP-DECR-START-Q PIC X(01). DTSIS87 00192 15 MAP-DECR-END-YRQ-AREA. DTSIS87 00193 20 MAP-DECR-END-YR-AREA. DTSIS87 00194 25 MAP-DECR-END-YR-L PIC S9(04) COMP. DTSIS87 00195 25 MAP-DECR-END-YR-A PIC X(01). DTSIS87 00196 25 MAP-DECR-END-YR PIC X(02). DTSIS87 00197 20 MAP-DECR-END-Q-AREA. DTSIS87 00198 25 MAP-DECR-END-Q-L PIC S9(04) COMP. DTSIS87 00199 25 MAP-DECR-END-Q-A PIC X(01). DTSIS87 00200 25 MAP-DECR-END-Q PIC X(01). DTSIS87 00201 SKIP1 DTSIS87 00202 10 MAP-WAGE-START-RATIO-AREA. DTSIS87 00203 15 MAP-WAGE-START-RATIO-L PIC S9(04) COMP. DTSIS87 00204 15 MAP-WAGE-START-RATIO-A PIC X(01). DTSIS87 00205 15 MAP-WAGE-START-RATIO PIC X(05). DTSIS87 00206 SKIP1 DTSIS87 00207 10 MAP-WAGE-END-RATIO-AREA. DTSIS87 00208 15 MAP-WAGE-END-RATIO-L PIC S9(04) COMP. DTSIS87 00209 15 MAP-WAGE-END-RATIO-A PIC X(01). DTSIS87 00210 15 MAP-WAGE-END-RATIO PIC X(05). DTSIS87 00211 SKIP1 DTSIS87 00212 10 MAP-CHNG-YRQ-RANGE-AREA. DTSIS87 00213 15 MAP-CHNG-START-YRQ-AREA. DTSIS87 00214 20 MAP-CHNG-START-YR-AREA. DTSIS87 00215 25 MAP-CHNG-START-YR-L PIC S9(04) COMP. DTSIS87 00216 25 MAP-CHNG-START-YR-A PIC X(01). DTSIS87 00217 25 MAP-CHNG-START-YR PIC X(02). DTSIS87 00218 20 MAP-CHNG-START-Q-AREA. DTSIS87 00219 25 MAP-CHNG-START-Q-L PIC S9(04) COMP. DTSIS87 00220 25 MAP-CHNG-START-Q-A PIC X(01). DTSIS87 00221 25 MAP-CHNG-START-Q PIC X(01). DTSIS87 00222 15 MAP-CHNG-END-YRQ-AREA. DTSIS87 00223 20 MAP-CHNG-END-YR-AREA. DTSIS87 00224 25 MAP-CHNG-END-YR-L PIC S9(04) COMP. DTSIS87 00225 25 MAP-CHNG-END-YR-A PIC X(01). DTSIS87 00226 25 MAP-CHNG-END-YR PIC X(02). DTSIS87 00227 20 MAP-CHNG-END-Q-AREA. DTSIS87 00228 25 MAP-CHNG-END-Q-L PIC S9(04) COMP. DTSIS87 00229 25 MAP-CHNG-END-Q-A PIC X(01). DTSIS87 00230 25 MAP-CHNG-END-Q PIC X(01). DTSIS87 00231 SKIP1 DTSIS87 00232 10 MAP-WAGE-CHNG-TRIG-AREA. DTSIS87 00233 15 MAP-WAGE-CHNG-TRIG-L PIC S9(04) COMP. DTSIS87 00234 15 MAP-WAGE-CHNG-TRIG-A PIC X(01). DTSIS87 00235 15 MAP-WAGE-CHNG-TRIG PIC X(03). DTSIS87 00236 15 MAP-WAGE-CHNG-TRIG-N REDEFINES DTSIS87 00237 MAP-WAGE-CHNG-TRIG PIC ZZ9. DTSIS87 00238 SKIP1 DTSIS87 00239 10 MAP-UI-RATE-MIN-AREA. DTSIS87 00240 15 MAP-UI-RATE-MIN-L PIC S9(04) COMP. DTSIS87 00241 15 MAP-UI-RATE-MIN-A PIC X(01). DTSIS87 00242 15 MAP-UI-RATE-MIN PIC X(05). DTSIS87 00243 ***** DTSIS87 00244 10 MAP-CHNG-DATE-AREA. DTSIS87 00245 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS87 00246 15 MAP-CHNG-DATE-A PIC X(01). DTSIS87 00247 15 MAP-CHNG-DATE PIC X(08). DTSIS87 00248 SKIP1 DTSIS87 00249 10 MAP-KEY-ADD-AREA. DTSIS87 00250 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS87 00251 15 MAP-KEY-ADD-A PIC X(01). DTSIS87 00252 15 MAP-KEY-ADD PIC X(07). DTSIS87 00253 SKIP1 DTSIS87 00254 10 MAP-KEY-MOD-AREA. DTSIS87 00255 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS87 00256 15 MAP-KEY-MOD-A PIC X(01). DTSIS87 00257 15 MAP-KEY-MOD PIC X(07). DTSIS87 00258 SKIP1 DTSIS87 00259 10 MAP-KEY-DEL-AREA. DTSIS87 00260 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS87 00261 15 MAP-KEY-DEL-A PIC X(01). DTSIS87 00262 15 MAP-KEY-DEL PIC X(07). DTSIS87 00263 SKIP1 DTSIS87 00264 10 MAP-MSG-AREA. DTSIS87 00265 15 MAP-MSG-ID-AREA. DTSIS87 00266 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS87 00267 20 MAP-MSG-ID-A PIC X(01). DTSIS87 00268 20 MAP-MSG-ID PIC X(08). DTSIS87 00269 15 MAP-MSG-TEXT-AREA. DTSIS87 00270 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS87 00271 20 MAP-MSG-TEXT-A PIC X(01). DTSIS87 00272 20 MAP-MSG-TEXT PIC X(58). DTSIS87 00273 SKIP1 DTSIS87 00274 10 MAP-GOTO-AREA. DTSIS87 00275 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS87 00276 15 MAP-GOTO-A PIC X(01). DTSIS87 00277 15 MAP-GOTO PIC X(02). DTSIS87