00001 ***** 12/09/04 00002 * DTSIS26 ADJUSTMENT ENTRY SEND/RECEIVE AREA. DTSIS26 00003 * LV005 00004 * DTSIS26 00005 * 12/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIS26 00006 * 04/30/2004 ADDED COMPROMISE LABEL AND DTSIS26 00007 * INDICATOR. GD DTSIS26 00008 * DTSIS26 00009 ***** DTSIS26 00010 DTSIS26 00011 10 FILLER PIC X(12). DTSIS26 00012 DTSIS26 00013 10 MAP-SCR-TYPE-AREA. DTSIS26 00014 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS26 00015 15 MAP-SCR-TYPE-A PIC X(01). DTSIS26 00016 15 MAP-SCR-TYPE PIC X(02). DTSIS26 00017 DTSIS26 00018 10 MAP-CICS-REGION-NAME-AREA. DTSIS26 00019 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS26 00020 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS26 00021 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS26 00022 DTSIS26 00023 10 MAP-SYS-DATE-AREA. DTSIS26 00024 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS26 00025 15 MAP-SYS-DATE-A PIC X(01). DTSIS26 00026 15 MAP-SYS-DATE PIC X(08). DTSIS26 00027 DTSIS26 00028 10 MAP-SYS-TIME-AREA. DTSIS26 00029 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS26 00030 15 MAP-SYS-TIME-A PIC X(01). DTSIS26 00031 15 MAP-SYS-TIME PIC X(08). DTSIS26 00032 DTSIS26 00033 10 MAP-DOC-NO-AREA. DTSIS26 00034 15 MAP-BATCH-NO-L PIC S9(04) COMP. DTSIS26 00035 15 MAP-BATCH-NO-A PIC X(01). DTSIS26 00036 15 MAP-BATCH-NO PIC X(05). DTSIS26 00037 15 MAP-BATCH-NO-N REDEFINES DTSIS26 00038 MAP-BATCH-NO PIC 9(05). DTSIS26 00039 DTSIS26 00040 15 MAP-ITEM-NO-L PIC S9(04) COMP. DTSIS26 00041 15 MAP-ITEM-NO-A PIC X(01). DTSIS26 00042 15 MAP-ITEM-NO PIC X(03). DTSIS26 00043 15 MAP-ITEM-NO-N REDEFINES DTSIS26 00044 MAP-ITEM-NO PIC 9(03). DTSIS26 00045 DTSIS26 00046 10 MAP-ADJ-TYPE-AREA. DTSIS26 00047 15 MAP-ADJ-TYPE-L PIC S9(04) COMP. DTSIS26 00048 15 MAP-ADJ-TYPE-A PIC X(01). DTSIS26 00049 15 MAP-ADJ-TYPE PIC X(02). DTSIS26 00050 DTSIS26 00051 10 MAP-CMPRMISE-LABEL-AREA. DTSIS26 00052 15 MAP-CMPRMISE-LABEL-L PIC S9(04) COMP. DTSIS26 00053 15 MAP-CMPRMISE-LABEL-A PIC X(01). DTSIS26 00054 15 MAP-CMPRMISE-LABEL PIC X(11). DTSIS26 00055 DTSIS26 00056 10 MAP-CMPRMISE-IND-AREA. DTSIS26 00057 15 MAP-CMPRMISE-IND-L PIC S9(04) COMP. DTSIS26 00058 15 MAP-CMPRMISE-IND-A PIC X(01). DTSIS26 00059 15 MAP-CMPRMISE-IND PIC X(01). DTSIS26 00060 88 MAP-CMPRMISE-YES-88 VALUE 'Y'. DTSIS26 00061 88 MAP-CMPRMISE-NO-88 VALUE 'N'. DTSIS26 00062 88 MAP-CMPRMISE-VALID-88 VALUE 'Y' 'N'. DTSIS26 00063 DTSIS26 00064 10 MAP-NAME-CHECK-AREA. DTSIS26 00065 15 MAP-NAME-CHECK-L PIC S9(04) COMP. DTSIS26 00066 15 MAP-NAME-CHECK-A PIC X(01). DTSIS26 00067 15 MAP-NAME-CHECK PIC X(04). DTSIS26 00068 DTSIS26 00069 10 MAP-EMP-NO-AREA. DTSIS26 00070 15 MAP-EMP-NO-1-AREA. DTSIS26 00071 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS26 00072 20 MAP-EMP-NO-1-A PIC X(01). DTSIS26 00073 20 MAP-EMP-NO-1 PIC X(03). DTSIS26 00074 15 MAP-EMP-NO-2-AREA. DTSIS26 00075 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS26 00076 20 MAP-EMP-NO-2-A PIC X(01). DTSIS26 00077 20 MAP-EMP-NO-2 PIC X(03). DTSIS26 00078 DTSIS26 00079 10 MAP-AMT-AREA. DTSIS26 00080 15 MAP-AMT-L PIC S9(04) COMP. DTSIS26 00081 15 MAP-AMT-A PIC X(01). DTSIS26 00082 15 MAP-AMT PIC X(15). DTSIS26 00083 15 MAP-AMT-N REDEFINES DTSIS26 00084 MAP-AMT PIC ----,---,--9.99. DTSIS26 00085 DTSIS26 00086 10 MAP-APPLIC-YRQ-AREA. DTSIS26 00087 15 MAP-APPLIC-YRQ-YR-AREA. DTSIS26 00088 20 MAP-APPLIC-YRQ-YR-L PIC S9(04) COMP. DTSIS26 00089 20 MAP-APPLIC-YRQ-YR-A PIC X(01). DTSIS26 00090 20 MAP-APPLIC-YRQ-YR PIC X(02). DTSIS26 00091 15 MAP-APPLIC-YRQ-Q-AREA. DTSIS26 00092 20 MAP-APPLIC-YRQ-Q-L PIC S9(04) COMP. DTSIS26 00093 20 MAP-APPLIC-YRQ-Q-A PIC X(01). DTSIS26 00094 20 MAP-APPLIC-YRQ-Q PIC X(01). DTSIS26 00095 DTSIS26 00096 10 MAP-APPLIC-IND-AREA. DTSIS26 00097 15 MAP-APPLIC-IND-L PIC S9(04) COMP. DTSIS26 00098 15 MAP-APPLIC-IND-A PIC X(01). DTSIS26 00099 15 MAP-APPLIC-IND PIC X(02). DTSIS26 00100 DTSIS26 00101 10 MAP-APPLIC-DOC-NO-AREA. DTSIS26 00102 15 MAP-APPLIC-BATCH-NO-L PIC S9(04) COMP. DTSIS26 00103 15 MAP-APPLIC-BATCH-NO-A PIC X(01). DTSIS26 00104 15 MAP-APPLIC-BATCH-NO PIC X(05). DTSIS26 00105 15 MAP-APPLIC-BATCH-NO-N REDEFINES DTSIS26 00106 MAP-APPLIC-BATCH-NO PIC 9(05). DTSIS26 00107 DTSIS26 00108 15 MAP-APPLIC-ITEM-NO-L PIC S9(04) COMP. DTSIS26 00109 15 MAP-APPLIC-ITEM-NO-A PIC X(01). DTSIS26 00110 15 MAP-APPLIC-ITEM-NO PIC X(03). DTSIS26 00111 15 MAP-APPLIC-ITEM-NO-N REDEFINES DTSIS26 00112 MAP-APPLIC-ITEM-NO PIC 9(03). DTSIS26 00113 DTSIS26 00114 10 MAP-DATE-1-AREA. DTSIS26 00115 15 MAP-DATE-1-MO-AREA. DTSIS26 00116 20 MAP-DATE-1-MO-L PIC S9(04) COMP. DTSIS26 00117 20 MAP-DATE-1-MO-A PIC X(01). DTSIS26 00118 20 MAP-DATE-1-MO PIC X(02). DTSIS26 00119 15 MAP-DATE-1-DA-AREA. DTSIS26 00120 20 MAP-DATE-1-DA-L PIC S9(04) COMP. DTSIS26 00121 20 MAP-DATE-1-DA-A PIC X(01). DTSIS26 00122 20 MAP-DATE-1-DA PIC X(02). DTSIS26 00123 15 MAP-DATE-1-YR-AREA. DTSIS26 00124 20 MAP-DATE-1-YR-L PIC S9(04) COMP. DTSIS26 00125 20 MAP-DATE-1-YR-A PIC X(01). DTSIS26 00126 20 MAP-DATE-1-YR PIC X(02). DTSIS26 00127 DTSIS26 00128 10 MAP-DATE-2-AREA. DTSIS26 00129 15 MAP-DATE-2-MO-AREA. DTSIS26 00130 20 MAP-DATE-2-MO-L PIC S9(04) COMP. DTSIS26 00131 20 MAP-DATE-2-MO-A PIC X(01). DTSIS26 00132 20 MAP-DATE-2-MO PIC X(02). DTSIS26 00133 15 MAP-DATE-2-DA-AREA. DTSIS26 00134 20 MAP-DATE-2-DA-L PIC S9(04) COMP. DTSIS26 00135 20 MAP-DATE-2-DA-A PIC X(01). DTSIS26 00136 20 MAP-DATE-2-DA PIC X(02). DTSIS26 00137 15 MAP-DATE-2-YR-AREA. DTSIS26 00138 20 MAP-DATE-2-YR-L PIC S9(04) COMP. DTSIS26 00139 20 MAP-DATE-2-YR-A PIC X(01). DTSIS26 00140 20 MAP-DATE-2-YR PIC X(02). DTSIS26 00141 DTSIS26 00142 10 MAP-INT-SPAN-IND-AREA. DTSIS26 00143 15 MAP-INT-SPAN-IND-L PIC S9(04) COMP. DTSIS26 00144 15 MAP-INT-SPAN-IND-A PIC X(01). DTSIS26 00145 15 MAP-INT-SPAN-IND PIC X(01). DTSIS26 00146 88 MAP-INT-SPAN-IND-VALID VALUE '1' '2'. DTSIS26 00147 DTSIS26 00148 10 MAP-INT-RATE-AREA. DTSIS26 00149 15 MAP-INT-RATE-L PIC S9(04) COMP. DTSIS26 00150 15 MAP-INT-RATE-A PIC X(01). DTSIS26 00151 15 MAP-INT-RATE PIC X(05). DTSIS26 00152 DTSIS26 00153 10 MAP-RECEIVED-DATE-AREA. DTSIS26 00154 15 MAP-RECEIVED-DATE-MO-AREA. DTSIS26 00155 20 MAP-RECEIVED-DATE-MO-L PIC S9(04) COMP. DTSIS26 00156 20 MAP-RECEIVED-DATE-MO-A PIC X(01). DTSIS26 00157 20 MAP-RECEIVED-DATE-MO PIC X(02). DTSIS26 00158 15 MAP-RECEIVED-DATE-DA-AREA. DTSIS26 00159 20 MAP-RECEIVED-DATE-DA-L PIC S9(04) COMP. DTSIS26 00160 20 MAP-RECEIVED-DATE-DA-A PIC X(01). DTSIS26 00161 20 MAP-RECEIVED-DATE-DA PIC X(02). DTSIS26 00162 15 MAP-RECEIVED-DATE-YR-AREA. DTSIS26 00163 20 MAP-RECEIVED-DATE-YR-L PIC S9(04) COMP. DTSIS26 00164 20 MAP-RECEIVED-DATE-YR-A PIC X(01). DTSIS26 00165 20 MAP-RECEIVED-DATE-YR PIC X(02). DTSIS26 00166 DTSIS26 00167 10 MAP-RESPONSIBLE-ACTIVITY-AREA. DTSIS26 00168 20 MAP-RESPONSIBLE-ACTIVITY-L PIC S9(04) COMP. DTSIS26 00169 20 MAP-RESPONSIBLE-ACTIVITY-A PIC X(01). DTSIS26 00170 20 MAP-RESPONSIBLE-ACTIVITY PIC X(03). DTSIS26 00171 88 MAP-RESP-ACTIVITY-VOL-88 VALUE 'VOL'. DTSIS26 00172 DTSIS26 00173 10 MAP-RESPONSIBLE-OP-ID-AREA. DTSIS26 00174 20 MAP-RESPONSIBLE-OP-ID-L PIC S9(04) COMP. DTSIS26 00175 20 MAP-RESPONSIBLE-OP-ID-A PIC X(01). DTSIS26 00176 20 MAP-RESPONSIBLE-OP-ID PIC X(08). DTSIS26 00177 DTSIS26 00178 10 MAP-ENTRY-MODE-AREA. DTSIS26 00179 15 MAP-ENTRY-MODE-L PIC S9(04) COMP. DTSIS26 00180 15 MAP-ENTRY-MODE-A PIC X(01). DTSIS26 00181 15 MAP-ENTRY-MODE PIC X(01). DTSIS26 00182 88 MAP-ENTRY-MODE-1 VALUE '1'. DTSIS26 00183 88 MAP-ENTRY-MODE-2 VALUE '2'. DTSIS26 00184 88 MAP-ENTRY-MODE-3 VALUE '3'. DTSIS26 00185 88 MAP-ENTRY-MODE-DEFAULT-88 VALUE '1'. DTSIS26 00186 88 MAP-ENTRY-MODE-VALID VALUE '1' '2' '3'. DTSIS26 00187 DTSIS26 00188 10 MAP-DISREGARD-EDITS-IND-AREA. DTSIS26 00189 15 MAP-DISREGARD-EDITS-IND-L PIC S9(04) COMP. DTSIS26 00190 15 MAP-DISREGARD-EDITS-IND-A PIC X(01). DTSIS26 00191 15 MAP-DISREGARD-EDITS-IND PIC X(01). DTSIS26 00192 88 MAP-DISREGARD-EDITS-NO-88 VALUE 'N'. DTSIS26 00193 88 MAP-DISREGARD-EDITS-YES-88 VALUE 'Y'. DTSIS26 00194 88 MAP-DISREGARD-EDITS-VALID-88 VALUE 'Y' 'N'. DTSIS26 00195 DTSIS26 00196 10 MAP-PROCESSED-DATE-AREA. DTSIS26 00197 15 MAP-PROCESSED-DATE-L PIC S9(04) COMP. DTSIS26 00198 15 MAP-PROCESSED-DATE-A PIC X(01). DTSIS26 00199 15 MAP-PROCESSED-DATE PIC X(08). DTSIS26 00200 DTSIS26 00201 10 MAP-KEY-BACK-AREA. DTSIS26 00202 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS26 00203 15 MAP-KEY-BACK-A PIC X(01). DTSIS26 00204 15 MAP-KEY-BACK PIC X(07). DTSIS26 00205 DTSIS26 00206 10 MAP-KEY-FWRD-AREA. DTSIS26 00207 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS26 00208 15 MAP-KEY-FWRD-A PIC X(01). DTSIS26 00209 15 MAP-KEY-FWRD PIC X(07). DTSIS26 00210 DTSIS26 00211 10 MAP-KEY-INQ-AREA. DTSIS26 00212 15 MAP-KEY-INQ-L PIC S9(04) COMP. DTSIS26 00213 15 MAP-KEY-INQ-A PIC X(01). DTSIS26 00214 15 MAP-KEY-INQ PIC X(06). DTSIS26 00215 DTSIS26 00216 10 MAP-KEY-ENTER-AREA. DTSIS26 00217 15 MAP-KEY-ENTER-L PIC S9(04) COMP. DTSIS26 00218 15 MAP-KEY-ENTER-A PIC X(01). DTSIS26 00219 15 MAP-KEY-ENTER PIC X(09). DTSIS26 00220 DTSIS26 00221 10 MAP-KEY-MOD-AREA. DTSIS26 00222 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS26 00223 15 MAP-KEY-MOD-A PIC X(01). DTSIS26 00224 15 MAP-KEY-MOD PIC X(07). DTSIS26 00225 DTSIS26 00226 10 MAP-KEY-DEL-AREA. DTSIS26 00227 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS26 00228 15 MAP-KEY-DEL-A PIC X(01). DTSIS26 00229 15 MAP-KEY-DEL PIC X(07). DTSIS26 00230 DTSIS26 00231 10 MAP-MSG-AREA. DTSIS26 00232 15 MAP-MSG-ID-AREA. DTSIS26 00233 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS26 00234 20 MAP-MSG-ID-A PIC X(01). DTSIS26 00235 20 MAP-MSG-ID PIC X(08). DTSIS26 00236 15 MAP-MSG-TEXT-AREA. DTSIS26 00237 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS26 00238 20 MAP-MSG-TEXT-A PIC X(01). DTSIS26 00239 20 MAP-MSG-TEXT PIC X(58). DTSIS26 00240 DTSIS26 00241 10 MAP-GOTO-AREA. DTSIS26 00242 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS26 00243 15 MAP-GOTO-A PIC X(01). DTSIS26 00244 15 MAP-GOTO PIC X(02). DTSIS26