00001 ***** 12/09/04 00002 * DTSIS48 00003 * DTSSIS48 COMPROMISE SETTLEMENT LV001 00004 * SEND/RECEIVE AREA. DTSIS48 00005 * DTSIS48 00006 ***** DTSIS48 00007 10 FILLER PIC X(12). DTSIS48 00008 DTSIS48 00009 10 MAP-SCR-TYPE-AREA. DTSIS48 00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS48 00011 15 MAP-SCR-TYPE-A PIC X(01). DTSIS48 00012 15 MAP-SCR-TYPE PIC X(02). DTSIS48 00013 DTSIS48 00014 10 MAP-CICS-REGION-NAME-AREA. DTSIS48 00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS48 00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS48 00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS48 00018 DTSIS48 00019 10 MAP-SYS-DATE-AREA. DTSIS48 00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS48 00021 15 MAP-SYS-DATE-A PIC X(01). DTSIS48 00022 15 MAP-SYS-DATE PIC X(08). DTSIS48 00023 DTSIS48 00024 10 MAP-EMP-NO-AREA. DTSIS48 00025 15 MAP-EMP-NO-1-AREA. DTSIS48 00026 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS48 00027 20 MAP-EMP-NO-1-A PIC X(01). DTSIS48 00028 20 MAP-EMP-NO-1 PIC X(03). DTSIS48 00029 15 MAP-EMP-NO-2-AREA. DTSIS48 00030 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS48 00031 20 MAP-EMP-NO-2-A PIC X(01). DTSIS48 00032 20 MAP-EMP-NO-2 PIC X(03). DTSIS48 00033 DTSIS48 00034 10 MAP-PRIMARY-NAME-AREA. DTSIS48 00035 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS48 00036 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS48 00037 15 MAP-PRIMARY-NAME PIC X(40). DTSIS48 00038 DTSIS48 00039 10 MAP-SYS-TIME-AREA. DTSIS48 00040 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS48 00041 15 MAP-SYS-TIME-A PIC X(01). DTSIS48 00042 15 MAP-SYS-TIME PIC X(08). DTSIS48 00043 DTSIS48 00044 10 MAP-STATUS-CD-AREA. DTSIS48 00045 15 MAP-STATUS-CD-L PIC S9(04) COMP. DTSIS48 00046 15 MAP-STATUS-CD-A PIC X(01). DTSIS48 00047 15 MAP-STATUS-CD PIC X(01). DTSIS48 00048 88 MAP-STATUS-PENDING-88 VALUE 'P'. DTSIS48 00049 DTSIS48 00050 10 MAP-STATUS-CD-DSCR-AREA. DTSIS48 00051 15 MAP-STATUS-CD-DSCR-L PIC S9(04) COMP. DTSIS48 00052 15 MAP-STATUS-CD-DSCR-A PIC X(01). DTSIS48 00053 15 MAP-STATUS-CD-DSCR PIC X(10). DTSIS48 00054 DTSIS48 00055 10 MAP-CURR-PAGE-AREA. DTSIS48 00056 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS48 00057 15 MAP-CURR-PAGE-A PIC X(01). DTSIS48 00058 15 MAP-CURR-PAGE PIC Z9. DTSIS48 00059 DTSIS48 00060 10 MAP-LAST-PAGE-AREA. DTSIS48 00061 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS48 00062 15 MAP-LAST-PAGE-A PIC X(01). DTSIS48 00063 15 MAP-LAST-PAGE PIC Z9. DTSIS48 00064 DTSIS48 00065 10 MAP-SETTLEMENT-DATE-AREA. DTSIS48 00066 15 MAP-SETTLEMENT-MO-L PIC S9(04) COMP. DTSIS48 00067 15 MAP-SETTLEMENT-MO-A PIC X(01). DTSIS48 00068 15 MAP-SETTLEMENT-MO PIC X(02). DTSIS48 00069 DTSIS48 00070 15 MAP-SETTLEMENT-DA-L PIC S9(04) COMP. DTSIS48 00071 15 MAP-SETTLEMENT-DA-A PIC X(01). DTSIS48 00072 15 MAP-SETTLEMENT-DA PIC X(02). DTSIS48 00073 DTSIS48 00074 15 MAP-SETTLEMENT-YR-L PIC S9(04) COMP. DTSIS48 00075 15 MAP-SETTLEMENT-YR-A PIC X(01). DTSIS48 00076 15 MAP-SETTLEMENT-YR PIC X(02). DTSIS48 00077 DTSIS48 00078 10 MAP-ADDR-TYPE-AREA. DTSIS48 00079 15 MAP-ADDR-TYPE-L PIC S9(04) COMP. DTSIS48 00080 15 MAP-ADDR-TYPE-A PIC X(01). DTSIS48 00081 15 MAP-ADDR-TYPE PIC X(01). DTSIS48 00082 88 MAP-ADDR-NONE-88 VALUE 'N'. DTSIS48 00083 88 MAP-ADDR-TAX-88 VALUE 'T'. DTSIS48 00084 88 MAP-ADDR-TAX-ALT-88 VALUE 'A'. DTSIS48 00085 88 MAP-ADDR-PHY-88 VALUE 'P'. DTSIS48 00086 88 MAP-ADDR-OPO-88 VALUE 'O'. DTSIS48 00087 88 MAP-ADDR-TAD-88 VALUE 'T' 'P'. DTSIS48 00088 88 MAP-ADDR-TAA-OPO-88 VALUE 'A' 'O'. DTSIS48 00089 88 MAP-ADDR-VALID-88 VALUE 'N' 'T' 'A' 'P' DTSIS48 00090 'O'. DTSIS48 00091 DTSIS48 00092 10 MAP-ADDR-ID-NO-AREA. DTSIS48 00093 15 MAP-ADDR-ID-NO-L PIC S9(04) COMP. DTSIS48 00094 15 MAP-ADDR-ID-NO-A PIC X(01). DTSIS48 00095 15 MAP-ADDR-ID-NO PIC X(03). DTSIS48 00096 15 MAP-ADDR-ID-NO-Z REDEFINES DTSIS48 00097 MAP-ADDR-ID-NO PIC Z(03). DTSIS48 00098 DTSIS48 00099 10 MAP-TAX-WAIVED-AMT-AREA. DTSIS48 00100 15 MAP-TAX-WAIVED-AMT-L PIC S9(04) COMP. DTSIS48 00101 15 MAP-TAX-WAIVED-AMT-A PIC X(01). DTSIS48 00102 15 MAP-TAX-WAIVED-AMT PIC X(12). DTSIS48 00103 15 MAP-TAX-WAIVED-AMT-Z REDEFINES DTSIS48 00104 MAP-TAX-WAIVED-AMT PIC Z,ZZZ,ZZ9.99.DTSIS48 00105 DTSIS48 00106 10 MAP-MAILING-LINE-1-AREA. DTSIS48 00107 15 MAP-MAILING-LINE-1-L PIC S9(04) COMP. DTSIS48 00108 15 MAP-MAILING-LINE-1-A PIC X(01). DTSIS48 00109 15 MAP-MAILING-LINE-1 PIC X(40). DTSIS48 00110 DTSIS48 00111 10 MAP-PEN-WAIVED-AMT-AREA. DTSIS48 00112 15 MAP-PEN-WAIVED-AMT-L PIC S9(04) COMP. DTSIS48 00113 15 MAP-PEN-WAIVED-AMT-A PIC X(01). DTSIS48 00114 15 MAP-PEN-WAIVED-AMT PIC X(12). DTSIS48 00115 15 MAP-PEN-WAIVED-AMT-Z REDEFINES DTSIS48 00116 MAP-PEN-WAIVED-AMT PIC Z,ZZZ,ZZ9.99.DTSIS48 00117 DTSIS48 00118 10 MAP-MAILING-LINE-2-AREA. DTSIS48 00119 15 MAP-MAILING-LINE-2-L PIC S9(04) COMP. DTSIS48 00120 15 MAP-MAILING-LINE-2-A PIC X(01). DTSIS48 00121 15 MAP-MAILING-LINE-2 PIC X(40). DTSIS48 00122 DTSIS48 00123 10 MAP-INT-WAIVED-AMT-AREA. DTSIS48 00124 15 MAP-INT-WAIVED-AMT-L PIC S9(04) COMP. DTSIS48 00125 15 MAP-INT-WAIVED-AMT-A PIC X(01). DTSIS48 00126 15 MAP-INT-WAIVED-AMT PIC X(12). DTSIS48 00127 15 MAP-INT-WAIVED-AMT-Z REDEFINES DTSIS48 00128 MAP-INT-WAIVED-AMT PIC Z,ZZZ,ZZ9.99.DTSIS48 00129 DTSIS48 00130 10 MAP-MAILING-LINE-3-AREA. DTSIS48 00131 15 MAP-MAILING-LINE-3-L PIC S9(04) COMP. DTSIS48 00132 15 MAP-MAILING-LINE-3-A PIC X(01). DTSIS48 00133 15 MAP-MAILING-LINE-3 PIC X(40). DTSIS48 00134 DTSIS48 00135 10 MAP-TOT-BALANCE-AMT-AREA. DTSIS48 00136 15 MAP-TOT-BALANCE-AMT-L PIC S9(04) COMP. DTSIS48 00137 15 MAP-TOT-BALANCE-AMT-A PIC X(01). DTSIS48 00138 15 MAP-TOT-BALANCE-AMT PIC X(12). DTSIS48 00139 15 MAP-TOT-BALANCE-AMT-Z REDEFINES DTSIS48 00140 MAP-TOT-BALANCE-AMT PIC Z,ZZZ,ZZ9.99.DTSIS48 00141 DTSIS48 00142 10 MAP-MAILING-LINE-4-AREA. DTSIS48 00143 15 MAP-MAILING-LINE-4-L PIC S9(04) COMP. DTSIS48 00144 15 MAP-MAILING-LINE-4-A PIC X(01). DTSIS48 00145 15 MAP-MAILING-LINE-4 PIC X(40). DTSIS48 00146 DTSIS48 00147 10 MAP-INT-COMP-DATE-AREA. DTSIS48 00148 15 MAP-INT-COMP-MO-L PIC S9(04) COMP. DTSIS48 00149 15 MAP-INT-COMP-MO-A PIC X(01). DTSIS48 00150 15 MAP-INT-COMP-MO PIC X(02). DTSIS48 00151 DTSIS48 00152 15 MAP-INT-COMP-DA-L PIC S9(04) COMP. DTSIS48 00153 15 MAP-INT-COMP-DA-A PIC X(01). DTSIS48 00154 15 MAP-INT-COMP-DA PIC X(02). DTSIS48 00155 DTSIS48 00156 15 MAP-INT-COMP-YR-L PIC S9(04) COMP. DTSIS48 00157 15 MAP-INT-COMP-YR-A PIC X(01). DTSIS48 00158 15 MAP-INT-COMP-YR PIC X(02). DTSIS48 00159 DTSIS48 00160 10 MAP-MAILING-LINE-5-AREA. DTSIS48 00161 15 MAP-MAILING-LINE-5-L PIC S9(04) COMP. DTSIS48 00162 15 MAP-MAILING-LINE-5-A PIC X(01). DTSIS48 00163 15 MAP-MAILING-LINE-5 PIC X(40). DTSIS48 00164 DTSIS48 00165 10 MAP-AUTHORIZE-OP-ID-AREA. DTSIS48 00166 15 MAP-AUTHORIZE-OP-ID-L PIC S9(04) COMP. DTSIS48 00167 15 MAP-AUTHORIZE-OP-ID-A PIC X(01). DTSIS48 00168 15 MAP-AUTHORIZE-OP-ID PIC X(08). DTSIS48 00169 DTSIS48 00170 ***************************************************************** DTSIS48 00171 * THE QUARTER TABLE ON THE SCREEN CONTAINS DATA FOR 20 QUARTERS, DTSIS48 00172 * ARRANGED IN 2 COLUMNS. EACH COLUMN CONTAINS THE QUARTER, DTSIS48 00173 * THE AMOUNT COMPROMISED (WAIVED) AND THE REMAINING BALANCE. DTSIS48 00174 ***************************************************************** DTSIS48 00175 10 MAP-TABLED-AREA OCCURS 20 TIMES. DTSIS48 00176 15 MAP-COVERED-YRQ-AREA. DTSIS48 00177 20 MAP-COVERED-YRQ-YR-L PIC S9(04) COMP. DTSIS48 00178 20 MAP-COVERED-YRQ-YR-A PIC X(01). DTSIS48 00179 20 MAP-COVERED-YRQ-YR PIC X(02). DTSIS48 00180 DTSIS48 00181 20 MAP-COVERED-YRQ-Q-L PIC S9(04) COMP. DTSIS48 00182 20 MAP-COVERED-YRQ-Q-A PIC X(01). DTSIS48 00183 20 MAP-COVERED-YRQ-Q PIC X(01). DTSIS48 00184 DTSIS48 00185 15 MAP-WAIVED-AMT-AREA. DTSIS48 00186 20 MAP-WAIVED-AMT-L PIC S9(04) COMP. DTSIS48 00187 20 MAP-WAIVED-AMT-A PIC X(01). DTSIS48 00188 20 MAP-WAIVED-AMT PIC X(10). DTSIS48 00189 20 MAP-WAIVED-AMT-Z REDEFINES DTSIS48 00190 MAP-WAIVED-AMT PIC ZZZ,ZZ9.99. DTSIS48 00191 DTSIS48 00192 15 MAP-BALANCE-AMT-AREA. DTSIS48 00193 20 MAP-BALANCE-AMT-L PIC S9(04) COMP. DTSIS48 00194 20 MAP-BALANCE-AMT-A PIC X(01). DTSIS48 00195 20 MAP-BALANCE-AMT PIC X(10). DTSIS48 00196 20 MAP-BALANCE-AMT-Z REDEFINES DTSIS48 00197 MAP-BALANCE-AMT PIC ZZZ,ZZ9.99. DTSIS48 00198 DTSIS48 00199 10 MAP-KEY-FIRST-AREA. DTSIS48 00200 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS48 00201 15 MAP-KEY-FIRST-A PIC X(01). DTSIS48 00202 15 MAP-KEY-FIRST PIC X(08). DTSIS48 00203 DTSIS48 00204 10 MAP-KEY-LAST-AREA. DTSIS48 00205 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS48 00206 15 MAP-KEY-LAST-A PIC X(01). DTSIS48 00207 15 MAP-KEY-LAST PIC X(07). DTSIS48 00208 DTSIS48 00209 10 MAP-KEY-BACK-AREA. DTSIS48 00210 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS48 00211 15 MAP-KEY-BACK-A PIC X(01). DTSIS48 00212 15 MAP-KEY-BACK PIC X(07). DTSIS48 00213 DTSIS48 00214 10 MAP-KEY-FWRD-AREA. DTSIS48 00215 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS48 00216 15 MAP-KEY-FWRD-A PIC X(01). DTSIS48 00217 15 MAP-KEY-FWRD PIC X(07). DTSIS48 00218 DTSIS48 00219 10 MAP-KEY-ADD-AREA. DTSIS48 00220 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS48 00221 15 MAP-KEY-ADD-A PIC X(01). DTSIS48 00222 15 MAP-KEY-ADD PIC X(06). DTSIS48 00223 DTSIS48 00224 10 MAP-KEY-MOD-AREA. DTSIS48 00225 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS48 00226 15 MAP-KEY-MOD-A PIC X(01). DTSIS48 00227 15 MAP-KEY-MOD PIC X(07). DTSIS48 00228 DTSIS48 00229 10 MAP-KEY-DEL-AREA. DTSIS48 00230 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS48 00231 15 MAP-KEY-DEL-A PIC X(01). DTSIS48 00232 15 MAP-KEY-DEL PIC X(07). DTSIS48 00233 DTSIS48 00234 10 MAP-MSG-AREA. DTSIS48 00235 15 MAP-MSG-ID-AREA. DTSIS48 00236 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS48 00237 20 MAP-MSG-ID-A PIC X(01). DTSIS48 00238 20 MAP-MSG-ID PIC X(08). DTSIS48 00239 15 MAP-MSG-TEXT-AREA. DTSIS48 00240 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS48 00241 20 MAP-MSG-TEXT-A PIC X(01). DTSIS48 00242 20 MAP-MSG-TEXT PIC X(58). DTSIS48 00243 DTSIS48 00244 10 MAP-GOTO-AREA. DTSIS48 00245 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS48 00246 15 MAP-GOTO-A PIC X(01). DTSIS48 00247 15 MAP-GOTO PIC X(02). DTSIS48