00001 ***** 09/18/12 00002 * DTSIS25 PAYMENT ENTRY SEND/RECEIVE AREA. DTSIS25 00003 * LV003 00004 * DTSIS25 00005 * 12/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIS25 00006 * 03/09/2011 ADDED NP AND NR PAY TYPES. GD DTSIS25 00007 * 03/16/2011 ADDED NON-DOES-ID TEXT LINE. GD DTSIS25 00008 * 04/11/2011 ADDED NH PAY TYPE. GD DTSIS25 00009 * 09/14/2012 REMOVE NH PAY TYPE ZL1 CL**2 00010 * 09/14/2012 EXPANDED CHECK NO TO 10 DIGITS ZL1 CL**2 00011 * DTSIS25 00012 ***** DTSIS25 00013 10 FILLER PIC X(12). DTSIS25 00014 DTSIS25 00015 10 MAP-SCR-TYPE-AREA. DTSIS25 00016 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS25 00017 15 MAP-SCR-TYPE-A PIC X(01). DTSIS25 00018 15 MAP-SCR-TYPE PIC X(02). DTSIS25 00019 DTSIS25 00020 10 MAP-CICS-REGION-NAME-AREA. DTSIS25 00021 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS25 00022 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS25 00023 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS25 00024 DTSIS25 00025 10 MAP-SYS-DATE-AREA. DTSIS25 00026 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS25 00027 15 MAP-SYS-DATE-A PIC X(01). DTSIS25 00028 15 MAP-SYS-DATE PIC X(08). DTSIS25 00029 DTSIS25 00030 10 MAP-SYS-TIME-AREA. DTSIS25 00031 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS25 00032 15 MAP-SYS-TIME-A PIC X(01). DTSIS25 00033 15 MAP-SYS-TIME PIC X(08). DTSIS25 00034 DTSIS25 00035 10 MAP-DOC-NO-AREA. DTSIS25 00036 15 MAP-BATCH-NO-L PIC S9(04) COMP. DTSIS25 00037 15 MAP-BATCH-NO-A PIC X(01). DTSIS25 00038 15 MAP-BATCH-NO PIC X(05). DTSIS25 00039 15 MAP-BATCH-NO-N REDEFINES DTSIS25 00040 MAP-BATCH-NO PIC 9(05). DTSIS25 00041 DTSIS25 00042 15 MAP-ITEM-NO-L PIC S9(04) COMP. DTSIS25 00043 15 MAP-ITEM-NO-A PIC X(01). DTSIS25 00044 15 MAP-ITEM-NO PIC X(03). DTSIS25 00045 15 MAP-ITEM-NO-N REDEFINES DTSIS25 00046 MAP-ITEM-NO PIC 9(03). DTSIS25 00047 DTSIS25 00048 10 F250520. DTSIS25 00049 15 MAP-NAME-CHECK-L PIC S9(04) COMP. DTSIS25 00050 15 MAP-NAME-CHECK-A PIC X(01). DTSIS25 00051 15 MAP-NAME-CHECK PIC X(04). DTSIS25 00052 DTSIS25 00053 10 MAP-EMP-NO-AREA. DTSIS25 00054 15 F250720. DTSIS25 00055 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS25 00056 20 MAP-EMP-NO-1-A PIC X(01). DTSIS25 00057 20 MAP-EMP-NO-1 PIC X(03). DTSIS25 00058 15 F250724. DTSIS25 00059 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS25 00060 20 MAP-EMP-NO-2-A PIC X(01). DTSIS25 00061 20 MAP-EMP-NO-2 PIC X(03). DTSIS25 00062 DTSIS25 00063 10 MAP-REMIT-AMT-AREA. DTSIS25 00064 15 MAP-REMIT-AMT-L PIC S9(04) COMP. DTSIS25 00065 15 MAP-REMIT-AMT-A PIC X(01). DTSIS25 00066 15 MAP-REMIT-AMT PIC X(15). DTSIS25 00067 15 MAP-REMIT-AMT-N REDEFINES DTSIS25 00068 MAP-REMIT-AMT PIC ----,---,--9.99. DTSIS25 00069 DTSIS25 00070 10 MAP-APPLIC-YRQ-AREA. DTSIS25 00071 15 MAP-APPLIC-YRQ-YR-AREA. DTSIS25 00072 20 MAP-APPLIC-YRQ-YR-L PIC S9(04) COMP. DTSIS25 00073 20 MAP-APPLIC-YRQ-YR-A PIC X(01). DTSIS25 00074 20 MAP-APPLIC-YRQ-YR PIC X(02). DTSIS25 00075 15 MAP-APPLIC-YRQ-Q-AREA. DTSIS25 00076 20 MAP-APPLIC-YRQ-Q-L PIC S9(04) COMP. DTSIS25 00077 20 MAP-APPLIC-YRQ-Q-A PIC X(01). DTSIS25 00078 20 MAP-APPLIC-YRQ-Q PIC X(01). DTSIS25 00079 DTSIS25 00080 10 MAP-APPLIC-IND-AREA. DTSIS25 00081 15 MAP-APPLIC-IND-L PIC S9(04) COMP. DTSIS25 00082 15 MAP-APPLIC-IND-A PIC X(01). DTSIS25 00083 15 MAP-APPLIC-IND PIC X(02). DTSIS25 00084 DTSIS25 00085 10 MAP-APPLIC-DOC-NO-AREA. DTSIS25 00086 15 MAP-APPLIC-BATCH-NO-L PIC S9(04) COMP. DTSIS25 00087 15 MAP-APPLIC-BATCH-NO-A PIC X(01). DTSIS25 00088 15 MAP-APPLIC-BATCH-NO PIC X(05). DTSIS25 00089 15 MAP-APPLIC-BATCH-NO-N REDEFINES DTSIS25 00090 MAP-APPLIC-BATCH-NO PIC 9(05). DTSIS25 00091 DTSIS25 00092 15 MAP-APPLIC-ITEM-NO-L PIC S9(04) COMP. DTSIS25 00093 15 MAP-APPLIC-ITEM-NO-A PIC X(01). DTSIS25 00094 15 MAP-APPLIC-ITEM-NO PIC X(03). DTSIS25 00095 15 MAP-APPLIC-ITEM-NO-N REDEFINES DTSIS25 00096 MAP-APPLIC-ITEM-NO PIC 9(03). DTSIS25 00097 DTSIS25 00098 10 MAP-PAY-TYPE-AREA. DTSIS25 00099 15 MAP-PAY-TYPE-L PIC S9(04) COMP. DTSIS25 00100 15 MAP-PAY-TYPE-A PIC X(01). DTSIS25 00101 15 MAP-PAY-TYPE PIC X(02). DTSIS25 00102 88 MAP-PAYMENT-88 VALUE 'PA' DTSIS25 00103 LOW-VALUES SPACES. DTSIS25 00104 88 MAP-PAY-REV-88 VALUE 'PR'. DTSIS25 00105 88 MAP-REFUND-88 VALUE 'RF'. DTSIS25 00106 88 MAP-REF-REV-88 VALUE 'RR'. DTSIS25 00107 88 MAP-NG-CHECK-88 VALUE 'NG'. DTSIS25 00108 88 MAP-NON-DOES-PAY-88 VALUE 'NP'. DTSIS25 00109 88 MAP-NON-DOES-REV-88 VALUE 'NR'. DTSIS25 00110 88 MAP-PAY-DEFAULT-88 VALUE 'PA'. DTSIS25 00111 88 MAP-PAY-NEGATIVE-88 VALUE 'PR' 'RF' 'NG' DTSIS25 00112 'NR'. CL**2 00113 88 MAP-PAY-POSITIVE-88 VALUE 'PA' 'RR' 'NP' DTSIS25 00114 LOW-VALUES SPACES. DTSIS25 00115 88 MAP-NON-DOES-CHK-88 VALUE 'NP' 'NR'. CL**2 00116 DTSIS25 00117 10 MAP-WAIVE-INT-AREA. DTSIS25 00118 15 MAP-WAIVE-INT-IND-L PIC S9(04) COMP. DTSIS25 00119 15 MAP-WAIVE-INT-IND-A PIC X(01). DTSIS25 00120 15 MAP-WAIVE-INT-IND PIC X(01). DTSIS25 00121 88 MAP-WAIVE-INT-NO-88 VALUE 'N'. DTSIS25 00122 88 MAP-WAIVE-INT-YES-88 VALUE 'Y'. DTSIS25 00123 88 MAP-WAIVE-INT-VALID-88 VALUE 'Y' 'N'. DTSIS25 00124 DTSIS25 00125 10 MAP-WAIVE-LATE-PEN-AREA. DTSIS25 00126 15 MAP-WAIVE-LATE-PEN-IND-L PIC S9(04) COMP. DTSIS25 00127 15 MAP-WAIVE-LATE-PEN-IND-A PIC X(01). DTSIS25 00128 15 MAP-WAIVE-LATE-PEN-IND PIC X(01). DTSIS25 00129 88 MAP-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIS25 00130 88 MAP-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIS25 00131 88 MAP-WAIVE-LATE-PEN-VALID-88 VALUE 'Y' 'N'. DTSIS25 00132 DTSIS25 00133 10 MAP-NSF-PENALTY-CHARGE-AREA. DTSIS25 00134 15 MAP-NSF-PENALTY-CHARGE-IND-L PIC S9(04) COMP. DTSIS25 00135 15 MAP-NSF-PENALTY-CHARGE-IND-A PIC X(01). DTSIS25 00136 15 MAP-NSF-PENALTY-CHARGE-IND PIC X(01). DTSIS25 00137 88 MAP-NSF-PEN-CHARGE-NO-88 VALUE 'N'. DTSIS25 00138 88 MAP-NSF-PEN-CHARGE-YES-88 VALUE 'Y'. DTSIS25 00139 88 MAP-NSF-PEN-CHARGE-VALID-88 VALUE 'N' 'Y'. DTSIS25 00140 DTSIS25 00141 10 MAP-RECEIVED-DATE-AREA. DTSIS25 00142 15 MAP-RECEIVED-DATE-MO-AREA. DTSIS25 00143 20 MAP-RECEIVED-DATE-MO-L PIC S9(04) COMP. DTSIS25 00144 20 MAP-RECEIVED-DATE-MO-A PIC X(01). DTSIS25 00145 20 MAP-RECEIVED-DATE-MO PIC X(02). DTSIS25 00146 15 MAP-RECEIVED-DATE-DA-AREA. DTSIS25 00147 20 MAP-RECEIVED-DATE-DA-L PIC S9(04) COMP. DTSIS25 00148 20 MAP-RECEIVED-DATE-DA-A PIC X(01). DTSIS25 00149 20 MAP-RECEIVED-DATE-DA PIC X(02). DTSIS25 00150 15 MAP-RECEIVED-DATE-YR-AREA. DTSIS25 00151 20 MAP-RECEIVED-DATE-YR-L PIC S9(04) COMP. DTSIS25 00152 20 MAP-RECEIVED-DATE-YR-A PIC X(01). DTSIS25 00153 20 MAP-RECEIVED-DATE-YR PIC X(02). DTSIS25 00154 DTSIS25 00155 10 MAP-CHECK-NO-AREA. DTSIS25 00156 15 MAP-CHECK-NO-L PIC S9(04) COMP. DTSIS25 00157 15 MAP-CHECK-NO-A PIC X(01). DTSIS25 00158 15 MAP-CHECK-NO PIC X(10). CL**3 00159 15 MAP-CHECK-NO-N REDEFINES CL**3 00160 MAP-CHECK-NO PIC 9(10). CL**3 00161 10 MAP-CHECK-DATE-AREA. DTSIS25 00162 15 MAP-CHECK-DATE-MO-AREA. DTSIS25 00163 20 MAP-CHECK-DATE-MO-L PIC S9(04) COMP. DTSIS25 00164 20 MAP-CHECK-DATE-MO-A PIC X(01). DTSIS25 00165 20 MAP-CHECK-DATE-MO PIC X(02). DTSIS25 00166 15 MAP-CHECK-DATE-DA-AREA. DTSIS25 00167 20 MAP-CHECK-DATE-DA-L PIC S9(04) COMP. DTSIS25 00168 20 MAP-CHECK-DATE-DA-A PIC X(01). DTSIS25 00169 20 MAP-CHECK-DATE-DA PIC X(02). DTSIS25 00170 15 MAP-CHECK-DATE-YR-AREA. DTSIS25 00171 20 MAP-CHECK-DATE-YR-L PIC S9(04) COMP. DTSIS25 00172 20 MAP-CHECK-DATE-YR-A PIC X(01). DTSIS25 00173 20 MAP-CHECK-DATE-YR PIC X(02). DTSIS25 00174 DTSIS25 00175 10 MAP-NFS-AREA. DTSIS25 00176 15 MAP-NSF-REASON-L PIC S9(04) COMP. DTSIS25 00177 15 MAP-NSF-REASON-A PIC X(01). DTSIS25 00178 15 MAP-NSF-REASON PIC X(01). DTSIS25 00179 88 MAP-NSF-REASON-INSUFF-88 VALUE '1'. DTSIS25 00180 88 MAP-NSF-REASON-RETURN-88 VALUE '2'. DTSIS25 00181 88 MAP-NSF-REASON-STOPED-88 VALUE '3'. DTSIS25 00182 88 MAP-NSF-REASON-OTHER-88 VALUE '4'. DTSIS25 00183 88 MAP-NSF-REASON-NON-DOES-88 VALUE '5'. DTSIS25 00184 88 MAP-NSF-REASON-VALID-88 VALUE '1' '2' '3' '4' DTSIS25 00185 '5'. DTSIS25 00186 DTSIS25 00187 10 MAP-NFS-DESC-AREA. DTSIS25 00188 15 MAP-NSF-DESC-L PIC S9(04) COMP. DTSIS25 00189 15 MAP-NSF-DESC-A PIC X(01). DTSIS25 00190 15 MAP-NSF-DESC PIC X(40). DTSIS25 00191 88 MAP-NSF-DESC-INSUFF-88 VALUE DTSIS25 00192 'INSUFFICIENT FUNDS'. DTSIS25 00193 88 MAP-NSF-DESC-RETURN-88 VALUE DTSIS25 00194 'RETURNED UNCOLLECTED'. DTSIS25 00195 88 MAP-NSF-DESC-STOPPED-88 VALUE DTSIS25 00196 'STOPPED PAYMENT'. DTSIS25 00197 DTSIS25 00198 10 MAP-NON-DOES-ID-AREA. DTSIS25 00199 15 MAP-NON-DOES-ID-L PIC S9(04) COMP. DTSIS25 00200 15 MAP-NON-DOES-ID-A PIC X(01). DTSIS25 00201 15 MAP-NON-DOES-ID PIC X(55). DTSIS25 00202 DTSIS25 00203 10 MAP-RESP-ACTIVITY-AREA. DTSIS25 00204 15 MAP-RESP-ACTIVITY-AREA. DTSIS25 00205 20 MAP-RESP-ACTIVITY-L PIC S9(04) COMP. DTSIS25 00206 20 MAP-RESP-ACTIVITY-A PIC X(01). DTSIS25 00207 20 MAP-RESP-ACTIVITY PIC X(03). DTSIS25 00208 88 MAP-RESP-ACTIVITY-VOL-88 VALUE 'VOL'. DTSIS25 00209 DTSIS25 00210 10 MAP-RESP-OP-ID-AREA. DTSIS25 00211 15 MAP-RESP-OP-ID-AREA. DTSIS25 00212 20 MAP-RESP-OP-ID-L PIC S9(04) COMP. DTSIS25 00213 20 MAP-RESP-OP-ID-A PIC X(01). DTSIS25 00214 20 MAP-RESP-OP-ID PIC X(08). DTSIS25 00215 DTSIS25 00216 10 MAP-ENTRY-MODE-AREA. DTSIS25 00217 15 MAP-ENTRY-MODE-L PIC S9(04) COMP. DTSIS25 00218 15 MAP-ENTRY-MODE-A PIC X(01). DTSIS25 00219 15 MAP-ENTRY-MODE PIC X(01). DTSIS25 00220 88 MAP-ENTRY-MODE-1 VALUE '1'. DTSIS25 00221 88 MAP-ENTRY-MODE-2 VALUE '2'. DTSIS25 00222 88 MAP-ENTRY-MODE-3 VALUE '3'. DTSIS25 00223 88 MAP-ENTRY-MODE-DEFAULT-88 VALUE '1'. DTSIS25 00224 88 MAP-ENTRY-MODE-VALID VALUE '1' '2' '3'. DTSIS25 00225 DTSIS25 00226 10 MAP-DISREGARD-EDITS-AREA. DTSIS25 00227 15 MAP-DISREGARD-EDITS-IND-L PIC S9(04) COMP. DTSIS25 00228 15 MAP-DISREGARD-EDITS-IND-A PIC X(01). DTSIS25 00229 15 MAP-DISREGARD-EDITS-IND PIC X(01). DTSIS25 00230 88 MAP-DISREGARD-EDITS-NO-88 VALUE 'N'. DTSIS25 00231 88 MAP-DISREGARD-EDITS-YES-88 VALUE 'Y'. DTSIS25 00232 88 MAP-DISREGARD-EDITS-VALID-88 VALUE 'Y' 'N'. DTSIS25 00233 DTSIS25 00234 10 MAP-PROCESSED-DATE-AREA. DTSIS25 00235 15 MAP-PROCESSED-DATE-L PIC S9(04) COMP. DTSIS25 00236 15 MAP-PROCESSED-DATE-A PIC X(01). DTSIS25 00237 15 MAP-PROCESSED-DATE PIC X(08). DTSIS25 00238 DTSIS25 00239 10 MAP-KEY-BACK-AREA. DTSIS25 00240 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS25 00241 15 MAP-KEY-BACK-A PIC X(01). DTSIS25 00242 15 MAP-KEY-BACK PIC X(07). DTSIS25 00243 DTSIS25 00244 10 MAP-KEY-FWRD-AREA. DTSIS25 00245 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS25 00246 15 MAP-KEY-FWRD-A PIC X(01). DTSIS25 00247 15 MAP-KEY-FWRD PIC X(07). DTSIS25 00248 DTSIS25 00249 10 MAP-KEY-INQ-AREA. DTSIS25 00250 15 MAP-KEY-INQ-L PIC S9(04) COMP. DTSIS25 00251 15 MAP-KEY-INQ-A PIC X(01). DTSIS25 00252 15 MAP-KEY-INQ PIC X(06). DTSIS25 00253 DTSIS25 00254 10 MAP-KEY-ENTER-AREA. DTSIS25 00255 15 MAP-KEY-ENTER-L PIC S9(04) COMP. DTSIS25 00256 15 MAP-KEY-ENTER-A PIC X(01). DTSIS25 00257 15 MAP-KEY-ENTER PIC X(09). DTSIS25 00258 DTSIS25 00259 10 MAP-KEY-MOD-AREA. DTSIS25 00260 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS25 00261 15 MAP-KEY-MOD-A PIC X(01). DTSIS25 00262 15 MAP-KEY-MOD PIC X(07). DTSIS25 00263 DTSIS25 00264 10 MAP-KEY-DEL-AREA. DTSIS25 00265 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS25 00266 15 MAP-KEY-DEL-A PIC X(01). DTSIS25 00267 15 MAP-KEY-DEL PIC X(07). DTSIS25 00268 DTSIS25 00269 10 MAP-MSG-AREA. DTSIS25 00270 15 MAP-MSG-ID-AREA. DTSIS25 00271 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS25 00272 20 MAP-MSG-ID-A PIC X(01). DTSIS25 00273 20 MAP-MSG-ID PIC X(08). DTSIS25 00274 15 MAP-MSG-TEXT-AREA. DTSIS25 00275 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS25 00276 20 MAP-MSG-TEXT-A PIC X(01). DTSIS25 00277 20 MAP-MSG-TEXT PIC X(58). DTSIS25 00278 DTSIS25 00279 10 MAP-GOTO-AREA. DTSIS25 00280 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS25 00281 15 MAP-GOTO-A PIC X(01). DTSIS25 00282 15 MAP-GOTO PIC X(02). DTSIS25