00001 ***** 09/13/12 00002 * DTSIS83 00003 * DTSIS83 UI RATE INQUIRY/UPDATE SEND/RECEIVE AREA. LV016 00004 * DTSIS83 00005 * 08/23/2002 ADDED TRUST FUND BALANCE AND DTSIS83 00006 * ANNUAL RATE NOTICE DATE GD DTSIS83 00007 * DTSIS83 00008 ***** DTSIS83 00009 SKIP1 DTSIS83 00010 10 FILLER PIC X(12). DTSIS83 00011 SKIP1 DTSIS83 00012 10 MAP-SCR-TYPE-AREA. DTSIS83 00013 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS83 00014 15 MAP-SCR-TYPE-A PIC X(01). DTSIS83 00015 15 MAP-SCR-TYPE PIC X(02). DTSIS83 00016 SKIP1 DTSIS83 00017 10 MAP-CICS-REGION-NAME-AREA. DTSIS83 00018 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS83 00019 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS83 00020 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS83 00021 SKIP1 DTSIS83 00022 10 MAP-SYS-DATE-AREA. DTSIS83 00023 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS83 00024 15 MAP-SYS-DATE-A PIC X(01). DTSIS83 00025 15 MAP-SYS-DATE PIC X(08). DTSIS83 00026 SKIP1 DTSIS83 00027 10 MAP-YRQ-AREA. DTSIS83 00028 15 MAP-YR-AREA. DTSIS83 00029 20 MAP-YR-L PIC S9(04) COMP. DTSIS83 00030 20 MAP-YR-A PIC X(01). DTSIS83 00031 20 MAP-YR PIC X(02). DTSIS83 00032 15 MAP-Q-AREA. DTSIS83 00033 20 MAP-Q-L PIC S9(04) COMP. DTSIS83 00034 20 MAP-Q-A PIC X(01). DTSIS83 00035 20 MAP-Q PIC X(01). DTSIS83 00036 SKIP1 DTSIS83 00037 10 MAP-RTE-CUTOFF-DATE-AREA. DTSIS83 00038 15 MAP-RTE-CUTOFF-MM-AREA. DTSIS83 00039 20 MAP-RTE-CUTOFF-MM-L PIC S9(04) COMP. DTSIS83 00040 20 MAP-RTE-CUTOFF-MM-A PIC X(01). DTSIS83 00041 20 MAP-RTE-CUTOFF-MM PIC X(02). DTSIS83 00042 15 MAP-RTE-CUTOFF-DD-AREA. DTSIS83 00043 20 MAP-RTE-CUTOFF-DD-L PIC S9(04) COMP. DTSIS83 00044 20 MAP-RTE-CUTOFF-DD-A PIC X(01). DTSIS83 00045 20 MAP-RTE-CUTOFF-DD PIC X(02). DTSIS83 00046 15 MAP-RTE-CUTOFF-YY-AREA. DTSIS83 00047 20 MAP-RTE-CUTOFF-YY-L PIC S9(04) COMP. DTSIS83 00048 20 MAP-RTE-CUTOFF-YY-A PIC X(01). DTSIS83 00049 20 MAP-RTE-CUTOFF-YY PIC X(02). DTSIS83 00050 SKIP1 DTSIS83 00051 10 MAP-SYS-TIME-AREA. DTSIS83 00052 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS83 00053 15 MAP-SYS-TIME-A PIC X(01). DTSIS83 00054 15 MAP-SYS-TIME PIC X(08). DTSIS83 00055 SKIP1 DTSIS83 00056 10 MAP-TRUST-FUND-INT-AREA. DTSIS83 00057 15 MAP-TRUST-FUND-INT-L PIC S9(04) COMP. DTSIS83 00058 15 MAP-TRUST-FUND-INT-A PIC X(01). DTSIS83 00059 15 MAP-TRUST-FUND-INT PIC X(14). DTSIS83 00060 15 MAP-TRUST-FUND-INT-N DTSIS83 00061 REDEFINES MAP-TRUST-FUND-INT DTSIS83 00062 PIC ---,---,--9.99. DTSIS83 00063 SKIP1 DTSIS83 00064 10 MAP-RTE-NOTICE-DATE-AREA. DTSIS83 00065 15 MAP-RTE-NOTICE-MM-AREA. DTSIS83 00066 20 MAP-RTE-NOTICE-MM-L PIC S9(04) COMP. DTSIS83 00067 20 MAP-RTE-NOTICE-MM-A PIC X(01). DTSIS83 00068 20 MAP-RTE-NOTICE-MM PIC X(02). DTSIS83 00069 15 MAP-RTE-NOTICE-DD-AREA. DTSIS83 00070 20 MAP-RTE-NOTICE-DD-L PIC S9(04) COMP. DTSIS83 00071 20 MAP-RTE-NOTICE-DD-A PIC X(01). DTSIS83 00072 20 MAP-RTE-NOTICE-DD PIC X(02). DTSIS83 00073 15 MAP-RTE-NOTICE-YY-AREA. DTSIS83 00074 20 MAP-RTE-NOTICE-YY-L PIC S9(04) COMP. DTSIS83 00075 20 MAP-RTE-NOTICE-YY-A PIC X(01). DTSIS83 00076 20 MAP-RTE-NOTICE-YY PIC X(02). DTSIS83 00077 SKIP1 DTSIS83 00078 10 MAP-TRUST-FUND-BAL-AREA. DTSIS83 00079 15 MAP-TRUST-FUND-BAL-L PIC S9(04) COMP. DTSIS83 00080 15 MAP-TRUST-FUND-BAL-A PIC X(01). DTSIS83 00081 15 MAP-TRUST-FUND-BAL PIC X(15). DTSIS83 00082 15 MAP-TRUST-FUND-BAL-N DTSIS83 00083 REDEFINES MAP-TRUST-FUND-BAL DTSIS83 00084 PIC ----,---,--9.99. DTSIS83 00085 SKIP1 DTSIS83 00086 10 MAP-ANN-NOTICE-DATE-AREA. DTSIS83 00087 15 MAP-ANN-NOTICE-MM-AREA. DTSIS83 00088 20 MAP-ANN-NOTICE-MM-L PIC S9(04) COMP. DTSIS83 00089 20 MAP-ANN-NOTICE-MM-A PIC X(01). DTSIS83 00090 20 MAP-ANN-NOTICE-MM PIC X(02). DTSIS83 00091 15 MAP-ANN-NOTICE-DD-AREA. DTSIS83 00092 20 MAP-ANN-NOTICE-DD-L PIC S9(04) COMP. DTSIS83 00093 20 MAP-ANN-NOTICE-DD-A PIC X(01). DTSIS83 00094 20 MAP-ANN-NOTICE-DD PIC X(02). DTSIS83 00095 15 MAP-ANN-NOTICE-YY-AREA. DTSIS83 00096 20 MAP-ANN-NOTICE-YY-L PIC S9(04) COMP. DTSIS83 00097 20 MAP-ANN-NOTICE-YY-A PIC X(01). DTSIS83 00098 20 MAP-ANN-NOTICE-YY PIC X(02). DTSIS83 00099 SKIP1 DTSIS83 00100 10 MAP-TOT-POS-RSRV-AREA. DTSIS83 00101 15 MAP-TOT-POS-RSRV-L PIC S9(04) COMP. DTSIS83 00102 15 MAP-TOT-POS-RSRV-A PIC X(01). DTSIS83 00103 15 MAP-TOT-POS-RSRV PIC X(17). DTSIS83 00104 15 MAP-TOT-POS-RSRV-N DTSIS83 00105 REDEFINES MAP-TOT-POS-RSRV DTSIS83 00106 PIC --,---,---,--9.99. DTSIS83 00107 SKIP1 DTSIS83 00108 10 MAP-PEN-RTE-MIN-DUE-AREA. DTSIS83 00109 15 MAP-PEN-RTE-MIN-DUE-L PIC S9(04) COMP. DTSIS83 00110 15 MAP-PEN-RTE-MIN-DUE-A PIC X(01). DTSIS83 00111 15 MAP-PEN-RTE-MIN-DUE PIC X(14). DTSIS83 00112 15 MAP-PEN-RTE-MIN-DUE-N DTSIS83 00113 REDEFINES MAP-PEN-RTE-MIN-DUE DTSIS83 00114 PIC ZZZ,ZZZ,ZZ9.99. DTSIS83 00115 SKIP1 DTSIS83 00116 10 MAP-POS-RSRV-EMP-CNT-AREA. DTSIS83 00117 15 MAP-POS-RSRV-EMP-CNT-L PIC S9(04) COMP. DTSIS83 00118 15 MAP-POS-RSRV-EMP-CNT-A PIC X(01). DTSIS83 00119 15 MAP-POS-RSRV-EMP-CNT PIC X(10). DTSIS83 00120 15 MAP-POS-RSRV-EMP-CNT-N DTSIS83 00121 REDEFINES MAP-POS-RSRV-EMP-CNT DTSIS83 00122 PIC ZZ,ZZZ,ZZ9. DTSIS83 00123 SKIP1 DTSIS83 00124 10 MAP-PEN-RTE-MISS-RPT-AREA. DTSIS83 00125 15 MAP-PEN-RTE-MISS-RPT-L PIC S9(04) COMP. DTSIS83 00126 15 MAP-PEN-RTE-MISS-RPT-A PIC X(01). DTSIS83 00127 15 MAP-PEN-RTE-MISS-RPT PIC X(03). DTSIS83 00128 15 MAP-PEN-RTE-MISS-RPT-N DTSIS83 00129 REDEFINES MAP-PEN-RTE-MISS-RPT DTSIS83 00130 PIC ZZ9. DTSIS83 00131 SKIP1 DTSIS83 00132 10 MAP-DIST-INTEREST-AREA. DTSIS83 00133 15 MAP-DIST-INTEREST-L PIC S9(04) COMP. DTSIS83 00134 15 MAP-DIST-INTEREST-A PIC X(01). DTSIS83 00135 15 MAP-DIST-INTEREST PIC X(17). DTSIS83 00136 15 MAP-DIST-INTEREST-N DTSIS83 00137 REDEFINES MAP-DIST-INTEREST DTSIS83 00138 PIC --,---,---,--9.99. DTSIS83 00139 SKIP1 DTSIS83 00140 10 MAP-PEN-RTE-CUTOFF-DATE-AREA. DTSIS83 00141 15 MAP-PEN-RTE-CUTOFF-MM-AREA. DTSIS83 00142 20 MAP-PEN-RTE-CUTOFF-MM-L PIC S9(04) COMP. DTSIS83 00143 20 MAP-PEN-RTE-CUTOFF-MM-A PIC X(01). DTSIS83 00144 20 MAP-PEN-RTE-CUTOFF-MM PIC X(02). DTSIS83 00145 15 MAP-PEN-RTE-CUTOFF-DD-AREA. DTSIS83 00146 20 MAP-PEN-RTE-CUTOFF-DD-L PIC S9(04) COMP. DTSIS83 00147 20 MAP-PEN-RTE-CUTOFF-DD-A PIC X(01). DTSIS83 00148 20 MAP-PEN-RTE-CUTOFF-DD PIC X(02). DTSIS83 00149 15 MAP-PEN-RTE-CUTOFF-YY-AREA. DTSIS83 00150 20 MAP-PEN-RTE-CUTOFF-YY-L PIC S9(04) COMP. DTSIS83 00151 20 MAP-PEN-RTE-CUTOFF-YY-A PIC X(01). DTSIS83 00152 20 MAP-PEN-RTE-CUTOFF-YY PIC X(02). DTSIS83 00153 SKIP1 DTSIS83 00154 10 MAP-TOTAL-CONTRIB-AREA. DTSIS83 00155 15 MAP-TOTAL-CONTRIB-L PIC S9(04) COMP. DTSIS83 00156 15 MAP-TOTAL-CONTRIB-A PIC X(01). DTSIS83 00157 15 MAP-TOTAL-CONTRIB PIC X(18). DTSIS83 00158 15 MAP-TOTAL-CONTRIB-N DTSIS83 00159 REDEFINES MAP-TOTAL-CONTRIB DTSIS83 00160 PIC ---,---,---,--9.99. DTSIS83 00161 SKIP1 DTSIS83 00162 10 MAP-TFUND-BAL-WAGES-AREA. DTSIS83 00163 15 MAP-TFUND-BAL-WAGES-L PIC S9(04) COMP. DTSIS83 00164 15 MAP-TFUND-BAL-WAGES-A PIC X(01). DTSIS83 00165 15 MAP-TFUND-BAL-WAGES PIC X(06). DTSIS83 00166 15 MAP-TFUND-BAL-WAGES-N DTSIS83 00167 REDEFINES MAP-TFUND-BAL-WAGES DTSIS83 00168 PIC 9.9999. DTSIS83 00169 SKIP1 DTSIS83 00170 10 MAP-RATE-TABLE-AREA. DTSIS83 00171 15 MAP-RATE-TABLE-L PIC S9(04) COMP. DTSIS83 00172 15 MAP-RATE-TABLE-A PIC X(01). DTSIS83 00173 15 MAP-RATE-TABLE PIC X(04). DTSIS83 00174 SKIP1 DTSIS83 00175 10 MAP-NEW-EMP-RTE-AREA. DTSIS83 00176 15 MAP-NEW-EMP-RTE-L PIC S9(04) COMP. DTSIS83 00177 15 MAP-NEW-EMP-RTE-A PIC X(01). DTSIS83 00178 15 MAP-NEW-EMP-RTE PIC X(04). DTSIS83 00179 15 MAP-NEW-EMP-RTE-N DTSIS83 00180 REDEFINES MAP-NEW-EMP-RTE DTSIS83 00181 PIC Z9.9. DTSIS83 00182 SKIP1 DTSIS83 00183 10 MAP-UI-RATES OCCURS 20 TIMES. DTSIS83 00184 15 MAP-MIN-RATIO-AREA. DTSIS83 00185 20 MAP-MIN-RATIO-L PIC S9(04) COMP. DTSIS83 00186 20 MAP-MIN-RATIO-A PIC X(01). DTSIS83 00187 20 MAP-MIN-RATIO PIC X(05). DTSIS83 00188 20 MAP-MIN-RATIO-N REDEFINES MAP-MIN-RATIO DTSIS83 00189 PIC --9.9. DTSIS83 00190 15 MAP-MAX-RATIO-AREA. DTSIS83 00191 20 MAP-MAX-RATIO-L PIC S9(04) COMP. DTSIS83 00192 20 MAP-MAX-RATIO-A PIC X(01). DTSIS83 00193 20 MAP-MAX-RATIO PIC X(05). DTSIS83 00194 20 MAP-MAX-RATIO-N REDEFINES MAP-MAX-RATIO DTSIS83 00195 PIC --9.9. DTSIS83 00196 15 MAP-RATE-AREA. DTSIS83 00197 20 MAP-RATE-L PIC S9(04) COMP. DTSIS83 00198 20 MAP-RATE-A PIC X(01). DTSIS83 00199 20 MAP-RATE PIC X(04). DTSIS83 00200 20 MAP-RATE-N REDEFINES MAP-RATE DTSIS83 00201 PIC Z9.9. DTSIS83 00202 SKIP1 DTSIS83 00203 10 MAP-ESTB-DATE-AREA. DTSIS83 00204 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS83 00205 15 MAP-ESTB-DATE-A PIC X(01). DTSIS83 00206 15 MAP-ESTB-DATE PIC X(08). DTSIS83 00207 SKIP1 DTSIS83 00208 10 MAP-CHNG-DATE-AREA. DTSIS83 00209 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS83 00210 15 MAP-CHNG-DATE-A PIC X(01). DTSIS83 00211 15 MAP-CHNG-DATE PIC X(08). DTSIS83 00212 SKIP1 DTSIS83 00213 10 MAP-KEY-BACK-AREA. DTSIS83 00214 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS83 00215 15 MAP-KEY-BACK-A PIC X(01). DTSIS83 00216 15 MAP-KEY-BACK PIC X(07). DTSIS83 00217 SKIP1 DTSIS83 00218 10 MAP-KEY-FWRD-AREA. DTSIS83 00219 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS83 00220 15 MAP-KEY-FWRD-A PIC X(01). DTSIS83 00221 15 MAP-KEY-FWRD PIC X(07). DTSIS83 00222 SKIP1 DTSIS83 00223 10 MAP-KEY-ADD-AREA. DTSIS83 00224 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS83 00225 15 MAP-KEY-ADD-A PIC X(01). DTSIS83 00226 15 MAP-KEY-ADD PIC X(07). DTSIS83 00227 SKIP1 DTSIS83 00228 10 MAP-KEY-MOD-AREA. DTSIS83 00229 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS83 00230 15 MAP-KEY-MOD-A PIC X(01). DTSIS83 00231 15 MAP-KEY-MOD PIC X(07). DTSIS83 00232 SKIP1 DTSIS83 00233 10 MAP-KEY-DEL-AREA. DTSIS83 00234 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS83 00235 15 MAP-KEY-DEL-A PIC X(01). DTSIS83 00236 15 MAP-KEY-DEL PIC X(07). DTSIS83 00237 SKIP1 DTSIS83 00238 10 MAP-MSG-AREA. DTSIS83 00239 15 MAP-MSG-ID-AREA. DTSIS83 00240 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS83 00241 20 MAP-MSG-ID-A PIC X(01). DTSIS83 00242 20 MAP-MSG-ID PIC X(08). DTSIS83 00243 15 MAP-MSG-TEXT-AREA. DTSIS83 00244 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS83 00245 20 MAP-MSG-TEXT-A PIC X(01). DTSIS83 00246 20 MAP-MSG-TEXT PIC X(58). DTSIS83 00247 SKIP1 DTSIS83 00248 10 MAP-GOTO-AREA. DTSIS83 00249 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS83 00250 15 MAP-GOTO-A PIC X(01). DTSIS83 00251 15 MAP-GOTO PIC X(02). DTSIS83