00001 ***** 05/17/00 00002 * DTSIS17 00003 * DTSIS17 SPAN OF LIABILITY INQUIRY/UPDATE LV004 00004 * SEND/RECEIVE AREA. DTSIS17 00005 * DTSIS17 00006 * 05/08/2000 REMOVED DEFAULT VALUE FOR DTSIS17 00007 * MAP-INACT-LTR-TYPE. GD DTSIS17 00008 ***** DTSIS17 00009 DTSIS17 00010 10 FILLER PIC X(12). DTSIS17 00011 DTSIS17 00012 10 MAP-SCR-TYPE-AREA. DTSIS17 00013 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS17 00014 15 MAP-SCR-TYPE-A PIC X(01). DTSIS17 00015 15 MAP-SCR-TYPE PIC X(02). DTSIS17 00016 DTSIS17 00017 10 MAP-CICS-REGION-NAME-AREA. DTSIS17 00018 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS17 00019 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS17 00020 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS17 00021 DTSIS17 00022 10 MAP-SYS-DATE-AREA. DTSIS17 00023 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS17 00024 15 MAP-SYS-DATE-A PIC X(01). DTSIS17 00025 15 MAP-SYS-DATE PIC X(08). DTSIS17 00026 DTSIS17 00027 10 MAP-SYS-TIME-AREA. DTSIS17 00028 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS17 00029 15 MAP-SYS-TIME-A PIC X(01). DTSIS17 00030 15 MAP-SYS-TIME PIC X(08). DTSIS17 00031 SKIP3 DTSIS17 00032 10 MAP-EMP-NO-AREA. DTSIS17 00033 15 MAP-EMP-NO-1-AREA. DTSIS17 00034 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS17 00035 20 MAP-EMP-NO-1-A PIC X(01). DTSIS17 00036 20 MAP-EMP-NO-1 PIC X(03). DTSIS17 00037 20 MAP-EMP-NO-1-N REDEFINES MAP-EMP-NO-1 DTSIS17 00038 PIC 9(03). DTSIS17 00039 15 MAP-EMP-NO-2-AREA. DTSIS17 00040 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS17 00041 20 MAP-EMP-NO-2-A PIC X(01). DTSIS17 00042 20 MAP-EMP-NO-2 PIC X(03). DTSIS17 00043 20 MAP-EMP-NO-2-N REDEFINES MAP-EMP-NO-2 DTSIS17 00044 PIC 9(03). DTSIS17 00045 DTSIS17 00046 10 MAP-PRIMARY-NAME-AREA. DTSIS17 00047 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS17 00048 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS17 00049 15 MAP-PRIMARY-NAME PIC X(40). DTSIS17 00050 DTSIS17 00051 10 MAP-CURR-PAGE-AREA. DTSIS17 00052 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS17 00053 15 MAP-CURR-PAGE-A PIC X(01). DTSIS17 00054 15 MAP-CURR-PAGE PIC Z9. DTSIS17 00055 DTSIS17 00056 10 MAP-LAST-PAGE-AREA. DTSIS17 00057 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS17 00058 15 MAP-LAST-PAGE-A PIC X(01). DTSIS17 00059 15 MAP-LAST-PAGE PIC Z9. DTSIS17 00060 SKIP3 DTSIS17 00061 10 MAP-LIAB-DATE-AREA. DTSIS17 00062 15 MAP-LIAB-MO-AREA. DTSIS17 00063 20 MAP-LIAB-MO-L PIC S9(04) COMP. DTSIS17 00064 20 MAP-LIAB-MO-A PIC X(01). DTSIS17 00065 20 MAP-LIAB-MO PIC X(02). DTSIS17 00066 DTSIS17 00067 15 MAP-LIAB-DA-AREA. DTSIS17 00068 20 MAP-LIAB-DA-L PIC S9(04) COMP. DTSIS17 00069 20 MAP-LIAB-DA-A PIC X(01). DTSIS17 00070 20 MAP-LIAB-DA PIC X(02). DTSIS17 00071 DTSIS17 00072 15 MAP-LIAB-YR-AREA. DTSIS17 00073 20 MAP-LIAB-YR-L PIC S9(04) COMP. DTSIS17 00074 20 MAP-LIAB-YR-A PIC X(01). DTSIS17 00075 20 MAP-LIAB-YR PIC X(02). DTSIS17 00076 DTSIS17 00077 10 MAP-FIRST-LIAB-YRQ-AREA. DTSIS17 00078 15 MAP-FIRST-LIAB-YRQ-L PIC S9(04) COMP. DTSIS17 00079 15 MAP-FIRST-LIAB-YRQ-A PIC X(01). DTSIS17 00080 15 MAP-FIRST-LIAB-YRQ PIC X(04). DTSIS17 00081 DTSIS17 00082 10 MAP-EMP-CLASS-DESC-AREA. DTSIS17 00083 15 MAP-EMP-CLASS-DESC-L PIC S9(04) COMP. DTSIS17 00084 15 MAP-EMP-CLASS-DESC-A PIC X(01). DTSIS17 00085 15 MAP-EMP-CLASS-DESC PIC X(10). DTSIS17 00086 SKIP3 DTSIS17 00087 10 MAP-LIAB-ESTB-DATE-AREA. DTSIS17 00088 15 MAP-LIAB-ESTB-MO-AREA. DTSIS17 00089 20 MAP-LIAB-ESTB-MO-L PIC S9(04) COMP. DTSIS17 00090 20 MAP-LIAB-ESTB-MO-A PIC X(01). DTSIS17 00091 20 MAP-LIAB-ESTB-MO PIC X(02). DTSIS17 00092 DTSIS17 00093 15 MAP-LIAB-ESTB-DA-AREA. DTSIS17 00094 20 MAP-LIAB-ESTB-DA-L PIC S9(04) COMP. DTSIS17 00095 20 MAP-LIAB-ESTB-DA-A PIC X(01). DTSIS17 00096 20 MAP-LIAB-ESTB-DA PIC X(02). DTSIS17 00097 DTSIS17 00098 15 MAP-LIAB-ESTB-YR-AREA. DTSIS17 00099 20 MAP-LIAB-ESTB-YR-L PIC S9(04) COMP. DTSIS17 00100 20 MAP-LIAB-ESTB-YR-A PIC X(01). DTSIS17 00101 20 MAP-LIAB-ESTB-YR PIC X(02). DTSIS17 00102 SKIP3 DTSIS17 00103 10 MAP-LIAB-CD-AREA. DTSIS17 00104 15 MAP-LIAB-CD-L PIC S9(04) COMP. DTSIS17 00105 15 MAP-LIAB-CD-A PIC X(01). DTSIS17 00106 15 MAP-LIAB-CD PIC X(02). DTSIS17 00107 DTSIS17 00108 10 MAP-LIAB-CD-DESC-AREA. DTSIS17 00109 15 MAP-LIAB-CD-DESC-L PIC S9(04) COMP. DTSIS17 00110 15 MAP-LIAB-CD-DESC-A PIC X(01). DTSIS17 00111 15 MAP-LIAB-CD-DESC PIC X(10). DTSIS17 00112 SKIP3 DTSIS17 00113 10 MAP-INACT-DATE-AREA. DTSIS17 00114 15 MAP-INACT-MO-AREA. DTSIS17 00115 20 MAP-INACT-MO-L PIC S9(04) COMP. DTSIS17 00116 20 MAP-INACT-MO-A PIC X(01). DTSIS17 00117 20 MAP-INACT-MO PIC X(02). DTSIS17 00118 DTSIS17 00119 15 MAP-INACT-DA-AREA. DTSIS17 00120 20 MAP-INACT-DA-L PIC S9(04) COMP. DTSIS17 00121 20 MAP-INACT-DA-A PIC X(01). DTSIS17 00122 20 MAP-INACT-DA PIC X(02). DTSIS17 00123 DTSIS17 00124 15 MAP-INACT-YR-AREA. DTSIS17 00125 20 MAP-INACT-YR-L PIC S9(04) COMP. DTSIS17 00126 20 MAP-INACT-YR-A PIC X(01). DTSIS17 00127 20 MAP-INACT-YR PIC X(02). DTSIS17 00128 DTSIS17 00129 10 MAP-LAST-LIAB-YRQ-AREA. DTSIS17 00130 15 MAP-LAST-LIAB-YRQ-L PIC S9(04) COMP. DTSIS17 00131 15 MAP-LAST-LIAB-YRQ-A PIC X(01). DTSIS17 00132 15 MAP-LAST-LIAB-YRQ PIC X(04). DTSIS17 00133 SKIP3 DTSIS17 00134 10 MAP-INACT-CD-AREA. DTSIS17 00135 15 MAP-INACT-CD-L PIC S9(04) COMP. DTSIS17 00136 15 MAP-INACT-CD-A PIC X(01). DTSIS17 00137 15 MAP-INACT-CD PIC X(02). DTSIS17 00138 DTSIS17 00139 10 MAP-INACT-CD-DESC-AREA. DTSIS17 00140 15 MAP-INACT-CD-DESC-L PIC S9(04) COMP. DTSIS17 00141 15 MAP-INACT-CD-DESC-A PIC X(01). DTSIS17 00142 15 MAP-INACT-CD-DESC PIC X(10). DTSIS17 00143 SKIP3 DTSIS17 00144 10 MAP-INACT-LTR-TYPE-AREA. DTSIS17 00145 15 MAP-INACT-LTR-TYPE-L PIC S9(04) COMP. DTSIS17 00146 15 MAP-INACT-LTR-TYPE-A PIC X(01). DTSIS17 00147 15 MAP-INACT-LTR-TYPE PIC X(01). DTSIS17 00148 *****************88 MAP-INACT-LTR-DEFAULT-88 VALUE 'N'. DTSIS17 00149 88 MAP-INACT-LTR-VALID-88 VALUE 'G' 'D' '8' DTSIS17 00150 'N'. DTSIS17 00151 SKIP3 DTSIS17 00152 10 MAP-TRANSFER-IND-AREA. DTSIS17 00153 15 MAP-TRANSFER-IND-L PIC S9(04) COMP. DTSIS17 00154 15 MAP-TRANSFER-IND-A PIC X(01). DTSIS17 00155 15 MAP-TRANSFER-IND PIC X(01). DTSIS17 00156 88 MAP-TRANSFER-YES-88 VALUE 'Y'. DTSIS17 00157 88 MAP-TRANSFER-NO-88 VALUE 'N'. DTSIS17 00158 88 MAP-TRANSFER-NA-88 VALUE SPACE. DTSIS17 00159 88 MAP-TRANSFER-VALID-88 VALUE 'Y' 'N' DTSIS17 00160 SPACE. DTSIS17 00161 DTSIS17 00162 10 MAP-TRANSFER-EMP-NO-AREA. DTSIS17 00163 15 MAP-TRANSFER-EMP-NO-1-AREA. DTSIS17 00164 20 MAP-TRANSFER-EMP-NO-1-L PIC S9(04) COMP. DTSIS17 00165 20 MAP-TRANSFER-EMP-NO-1-A PIC X(01). DTSIS17 00166 20 MAP-TRANSFER-EMP-NO-1 PIC X(03). DTSIS17 00167 15 MAP-TRANSFER-EMP-NO-2-AREA. DTSIS17 00168 20 MAP-TRANSFER-EMP-NO-2-L PIC S9(04) COMP. DTSIS17 00169 20 MAP-TRANSFER-EMP-NO-2-A PIC X(01). DTSIS17 00170 20 MAP-TRANSFER-EMP-NO-2 PIC X(03). DTSIS17 00171 DTSIS17 00172 10 MAP-OVERRIDE-IND-AREA. DTSIS17 00173 15 MAP-OVERRIDE-IND-L PIC S9(04) COMP. DTSIS17 00174 15 MAP-OVERRIDE-IND-A PIC X(01). DTSIS17 00175 15 MAP-OVERRIDE-IND PIC X(01). DTSIS17 00176 88 MAP-OVERRIDE-YES-88 VALUE 'Y'. DTSIS17 00177 88 MAP-OVERRIDE-NO-88 VALUE 'N'. DTSIS17 00178 88 MAP-OVERRIDE-VALID-88 VALUE 'Y' 'N'. DTSIS17 00179 SKIP3 DTSIS17 00180 10 MAP-RESP-OP-ID-AREA. DTSIS17 00181 15 MAP-RESP-OP-ID-L PIC S9(04) COMP. DTSIS17 00182 15 MAP-RESP-OP-ID-A PIC X(01). DTSIS17 00183 15 MAP-RESP-OP-ID PIC X(08). DTSIS17 00184 DTSIS17 00185 10 MAP-RESP-OP-ID-DESC-AREA. DTSIS17 00186 15 MAP-RESP-OP-ID-DESC-L PIC S9(04) COMP. DTSIS17 00187 15 MAP-RESP-OP-ID-DESC-A PIC X(01). DTSIS17 00188 15 MAP-RESP-OP-ID-DESC PIC X(10). DTSIS17 00189 DTSIS17 00190 10 MAP-NEW-EMPLOYER-IND-AREA. DTSIS17 00191 15 MAP-NEW-EMPLOYER-IND-L PIC S9(04) COMP. DTSIS17 00192 15 MAP-NEW-EMPLOYER-IND-A PIC X(01). DTSIS17 00193 15 MAP-NEW-EMPLOYER-IND PIC X(01). DTSIS17 00194 SKIP3 DTSIS17 00195 10 MAP-ESTB-DATE-AREA. DTSIS17 00196 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS17 00197 15 MAP-ESTB-DATE-A PIC X(01). DTSIS17 00198 15 MAP-ESTB-DATE PIC X(08). DTSIS17 00199 DTSIS17 00200 10 MAP-LIAB-MAIL-DATE-AREA. DTSIS17 00201 15 MAP-LIAB-MAIL-DATE-L PIC S9(04) COMP. DTSIS17 00202 15 MAP-LIAB-MAIL-DATE-A PIC X(01). DTSIS17 00203 15 MAP-LIAB-MAIL-DATE PIC X(08). DTSIS17 00204 SKIP3 DTSIS17 00205 10 MAP-INACT-ENTER-DATE-AREA. DTSIS17 00206 15 MAP-INACT-ENTER-DATE-L PIC S9(04) COMP. DTSIS17 00207 15 MAP-INACT-ENTER-DATE-A PIC X(01). DTSIS17 00208 15 MAP-INACT-ENTER-DATE PIC X(08). DTSIS17 00209 DTSIS17 00210 10 MAP-INACT-REVERSE-DATE-AREA. DTSIS17 00211 15 MAP-INACT-REVERSE-DATE-L PIC S9(04) COMP. DTSIS17 00212 15 MAP-INACT-REVERSE-DATE-A PIC X(01). DTSIS17 00213 15 MAP-INACT-REVERSE-DATE PIC X(08). DTSIS17 00214 SKIP3 DTSIS17 00215 10 MAP-KEY-FIRST-AREA. DTSIS17 00216 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS17 00217 15 MAP-KEY-FIRST-A PIC X(01). DTSIS17 00218 15 MAP-KEY-FIRST PIC X(08). DTSIS17 00219 DTSIS17 00220 10 MAP-KEY-LAST-AREA. DTSIS17 00221 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS17 00222 15 MAP-KEY-LAST-A PIC X(01). DTSIS17 00223 15 MAP-KEY-LAST PIC X(07). DTSIS17 00224 DTSIS17 00225 10 MAP-KEY-BACK-AREA. DTSIS17 00226 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS17 00227 15 MAP-KEY-BACK-A PIC X(01). DTSIS17 00228 15 MAP-KEY-BACK PIC X(07). DTSIS17 00229 DTSIS17 00230 10 MAP-KEY-FWRD-AREA. DTSIS17 00231 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS17 00232 15 MAP-KEY-FWRD-A PIC X(01). DTSIS17 00233 15 MAP-KEY-FWRD PIC X(07). DTSIS17 00234 DTSIS17 00235 10 MAP-KEY-MOD-AREA. DTSIS17 00236 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS17 00237 15 MAP-KEY-MOD-A PIC X(01). DTSIS17 00238 15 MAP-KEY-MOD PIC X(07). DTSIS17 00239 SKIP3 DTSIS17 00240 10 MAP-MSG-AREA. DTSIS17 00241 15 MAP-MSG-ID-AREA. DTSIS17 00242 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS17 00243 20 MAP-MSG-ID-A PIC X(01). DTSIS17 00244 20 MAP-MSG-ID PIC X(08). DTSIS17 00245 15 MAP-MSG-TEXT-AREA. DTSIS17 00246 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS17 00247 20 MAP-MSG-TEXT-A PIC X(01). DTSIS17 00248 20 MAP-MSG-TEXT PIC X(58). DTSIS17 00249 DTSIS17 00250 10 MAP-GOTO-AREA. DTSIS17 00251 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS17 00252 15 MAP-GOTO-A PIC X(01). DTSIS17 00253 15 MAP-GOTO PIC X(02). DTSIS17