00001 ***** 09/13/12 00002 * DTSIS23 CHECK ENTRY SEND/RECEIVE AREA. DTSIS23 00003 * LV003 00004 * DTSIS23 00005 * 02/10/2010 INITIAL DEVELOPMENT GD DTSIS23 00006 * DTSIS23 00007 ***** DTSIS23 00008 10 FILLER PIC X(12). DTSIS23 00009 DTSIS23 00010 *** LINE 1 DTSIS23 00011 10 MAP-SCR-TYPE-AREA. DTSIS23 00012 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS23 00013 15 MAP-SCR-TYPE-A PIC X(01). DTSIS23 00014 15 MAP-SCR-TYPE PIC X(02). DTSIS23 00015 DTSIS23 00016 10 MAP-CICS-REGION-NAME-AREA. DTSIS23 00017 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS23 00018 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS23 00019 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS23 00020 DTSIS23 00021 10 MAP-SYS-DATE-AREA. DTSIS23 00022 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS23 00023 15 MAP-SYS-DATE-A PIC X(01). DTSIS23 00024 15 MAP-SYS-DATE PIC X(08). DTSIS23 00025 DTSIS23 00026 10 MAP-SYS-TIME-AREA. DTSIS23 00027 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS23 00028 15 MAP-SYS-TIME-A PIC X(01). DTSIS23 00029 15 MAP-SYS-TIME PIC X(08). DTSIS23 00030 DTSIS23 00031 *** LINE 3 DTSIS23 00032 *** F230320 DTSIS23 00033 10 MAP-BATCH-NO-AREA. DTSIS23 00034 15 MAP-BATCH-NO-L PIC S9(04) COMP. DTSIS23 00035 15 MAP-BATCH-NO-A PIC X(01). DTSIS23 00036 15 MAP-BATCH-NO PIC X(05). DTSIS23 00037 15 MAP-BATCH-NO-N REDEFINES DTSIS23 00038 MAP-BATCH-NO PIC 9(05). DTSIS23 00039 DTSIS23 00040 *** F230353 DTSIS23 00041 10 MAP-CHECK-SEQ-AREA. DTSIS23 00042 15 MAP-CHECK-SEQ-NO-L PIC S9(04) COMP. DTSIS23 00043 15 MAP-CHECK-SEQ-NO-A PIC X(01). DTSIS23 00044 15 MAP-CHECK-SEQ-NO PIC X(03). DTSIS23 00045 15 MAP-CHECK-SEQ-NO-N REDEFINES DTSIS23 00046 MAP-CHECK-SEQ-NO PIC 9(03). DTSIS23 00047 DTSIS23 00048 *** LINE 5 DTSIS23 00049 10 MAP-EMP-NO-AREA. DTSIS23 00050 15 F230520. DTSIS23 00051 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS23 00052 20 MAP-EMP-NO-1-A PIC X(01). DTSIS23 00053 20 MAP-EMP-NO-1 PIC X(03). DTSIS23 00054 15 F230524. DTSIS23 00055 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS23 00056 20 MAP-EMP-NO-2-A PIC X(01). DTSIS23 00057 20 MAP-EMP-NO-2 PIC X(03). DTSIS23 00058 DTSIS23 00059 10 F230553. DTSIS23 00060 15 MAP-EMP-NAME-L PIC S9(04) COMP. DTSIS23 00061 15 MAP-EMP-NAME-A PIC X(01). DTSIS23 00062 15 MAP-EMP-NAME PIC X(30). DTSIS23 00063 DTSIS23 00064 *** LINE 7 DTSIS23 00065 *** F230720 DTSIS23 00066 10 MAP-REMIT-AMT-AREA. DTSIS23 00067 15 MAP-REMIT-AMT-L PIC S9(04) COMP. DTSIS23 00068 15 MAP-REMIT-AMT-A PIC X(01). DTSIS23 00069 15 MAP-REMIT-AMT PIC X(15). DTSIS23 00070 15 MAP-REMIT-AMT-N REDEFINES DTSIS23 00071 MAP-REMIT-AMT PIC ----,---,--9.99. DTSIS23 00072 DTSIS23 00073 10 MAP-SINGLE-CHECK-AREA. DTSIS23 00074 15 MAP-SINGLE-CHECK-L PIC S9(04) COMP. DTSIS23 00075 15 MAP-SINGLE-CHECK-A PIC X(01). DTSIS23 00076 15 MAP-SINGLE-CHECK PIC X(01). DTSIS23 00077 88 MAP-SINGLE-CHECK-YES-88 VALUE 'Y'. DTSIS23 00078 88 MAP-SINGLE-CHECK-NO-88 VALUE 'N'. DTSIS23 00079 88 MAP-SINGLE-CHECK-VALID-88 VALUE 'Y' 'N'. DTSIS23 00080 *** LINE 9 DTSIS23 00081 *** F230920 DTSIS23 00082 10 MAP-ROUTING-NO-AREA. DTSIS23 00083 15 MAP-ROUTING-NO-L PIC S9(04) COMP. DTSIS23 00084 15 MAP-ROUTING-NO-A PIC X(01). DTSIS23 00085 15 MAP-ROUTING-NO PIC X(15). DTSIS23 00086 DTSIS23 00087 *** LINE 11 DTSIS23 00088 *** F231120 DTSIS23 00089 10 MAP-ACCOUNT-NO-AREA. DTSIS23 00090 15 MAP-ACCOUNT-NO-L PIC S9(04) COMP. DTSIS23 00091 15 MAP-ACCOUNT-NO-A PIC X(01). DTSIS23 00092 15 MAP-ACCOUNT-NO PIC X(15). DTSIS23 00093 DTSIS23 00094 *** LINE 13 DTSIS23 00095 *** F231320 DTSIS23 00096 10 MAP-CHECK-NO-AREA. DTSIS23 00097 15 MAP-CHECK-NO-L PIC S9(04) COMP. DTSIS23 00098 15 MAP-CHECK-NO-A PIC X(01). DTSIS23 00099 15 MAP-CHECK-NO-N PIC 9(10). DTSIS23 00100 DTSIS23 00101 *** F231320 DTSIS23 00102 10 MAP-CHECK-DATE-AREA. DTSIS23 00103 15 MAP-CHECK-DATE-MO-AREA. DTSIS23 00104 20 MAP-CHECK-DATE-MO-L PIC S9(04) COMP. DTSIS23 00105 20 MAP-CHECK-DATE-MO-A PIC X(01). DTSIS23 00106 20 MAP-CHECK-DATE-MO PIC X(02). DTSIS23 00107 15 MAP-CHECK-DATE-DA-AREA. DTSIS23 00108 20 MAP-CHECK-DATE-DA-L PIC S9(04) COMP. DTSIS23 00109 20 MAP-CHECK-DATE-DA-A PIC X(01). DTSIS23 00110 20 MAP-CHECK-DATE-DA PIC X(02). DTSIS23 00111 15 MAP-CHECK-DATE-YR-AREA. DTSIS23 00112 20 MAP-CHECK-DATE-YR-L PIC S9(04) COMP. DTSIS23 00113 20 MAP-CHECK-DATE-YR-A PIC X(01). DTSIS23 00114 20 MAP-CHECK-DATE-YR PIC X(02). DTSIS23 00115 DTSIS23 00116 *** LINE 18 DTSIS23 00117 *** F231831 DTSIS23 00118 DTSIS23 00119 10 MAP-TYPE-AREA. DTSIS23 00120 15 MAP-TYPE-L PIC S9(04) COMP. DTSIS23 00121 15 MAP-TYPE-A PIC X(01). DTSIS23 00122 15 MAP-TYPE PIC X(01). DTSIS23 00123 *** LINE 20 DTSIS23 00124 *** F232020 DTSIS23 00125 10 MAP-NFS-AREA. DTSIS23 00126 15 MAP-NSF-REASON-L PIC S9(04) COMP. DTSIS23 00127 15 MAP-NSF-REASON-A PIC X(01). DTSIS23 00128 15 MAP-NSF-REASON PIC X(01). DTSIS23 00129 88 MAP-NSF-REASON-INSUFF-88 VALUE '1'. DTSIS23 00130 88 MAP-NSF-REASON-RETURN-88 VALUE '2'. DTSIS23 00131 88 MAP-NSF-REASON-STOPED-88 VALUE '3'. DTSIS23 00132 88 MAP-NSF-REASON-OTHER-88 VALUE '4'. DTSIS23 00133 88 MAP-NSF-REASON-VALID-88 VALUE '1' '2' '3' '4'. DTSIS23 00134 DTSIS23 00135 *** F232024 DTSIS23 00136 10 MAP-REV-DESC-AREA. DTSIS23 00137 15 MAP-REV-DESC-L PIC S9(04) COMP. DTSIS23 00138 15 MAP-REV-DESC-A PIC X(01). DTSIS23 00139 15 MAP-REV-DESC PIC X(30). DTSIS23 00140 DTSIS23 00141 *** LINE 21 DTSIS23 00142 *** F232120 DTSIS23 00143 10 MAP-NSF-DATE-AREA. DTSIS23 00144 15 MAP-NSF-DATE-MO-AREA. DTSIS23 00145 20 MAP-NSF-DATE-MO-L PIC S9(04) COMP. DTSIS23 00146 20 MAP-NSF-DATE-MO-A PIC X(01). DTSIS23 00147 20 MAP-NSF-DATE-MO PIC X(02). DTSIS23 00148 15 MAP-NSF-DATE-DA-AREA. DTSIS23 00149 20 MAP-NSF-DATE-DA-L PIC S9(04) COMP. DTSIS23 00150 20 MAP-NSF-DATE-DA-A PIC X(01). DTSIS23 00151 20 MAP-NSF-DATE-DA PIC X(02). DTSIS23 00152 15 MAP-NSF-DATE-YR-AREA. DTSIS23 00153 20 MAP-NSF-DATE-YR-L PIC S9(04) COMP. DTSIS23 00154 20 MAP-NSF-DATE-YR-A PIC X(01). DTSIS23 00155 20 MAP-NSF-DATE-YR PIC X(02). DTSIS23 00156 DTSIS23 00157 *** LINE 21 DTSIS23 00158 *** F232153 DTSIS23 00159 10 MAP-ESTB-DATE-AREA. DTSIS23 00160 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS23 00161 15 MAP-ESTB-DATE-A PIC X(01). DTSIS23 00162 15 MAP-ESTB-DATE PIC X(08). DTSIS23 00163 DTSIS23 00164 10 MAP-CHNG-DATE-AREA. DTSIS23 00165 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS23 00166 15 MAP-CHNG-DATE-A PIC X(01). DTSIS23 00167 15 MAP-CHNG-DATE PIC X(08). DTSIS23 00168 DTSIS23 00169 10 MAP-CHNG-OPID-AREA. DTSIS23 00170 15 MAP-CHNG-OPID-L PIC S9(04) COMP. DTSIS23 00171 15 MAP-CHNG-OPID-A PIC X(01). DTSIS23 00172 15 MAP-CHNG-OPID PIC X(08). DTSIS23 00173 DTSIS23 00174 10 MAP-KEY-BACK-AREA. DTSIS23 00175 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS23 00176 15 MAP-KEY-BACK-A PIC X(01). DTSIS23 00177 15 MAP-KEY-BACK PIC X(07). DTSIS23 00178 DTSIS23 00179 10 MAP-KEY-FWRD-AREA. DTSIS23 00180 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS23 00181 15 MAP-KEY-FWRD-A PIC X(01). DTSIS23 00182 15 MAP-KEY-FWRD PIC X(07). DTSIS23 00183 DTSIS23 00184 10 MAP-KEY-INQ-AREA. DTSIS23 00185 15 MAP-KEY-INQ-L PIC S9(04) COMP. DTSIS23 00186 15 MAP-KEY-INQ-A PIC X(01). DTSIS23 00187 15 MAP-KEY-INQ PIC X(06). DTSIS23 00188 DTSIS23 00189 10 MAP-KEY-ENTER-AREA. DTSIS23 00190 15 MAP-KEY-ENTER-L PIC S9(04) COMP. DTSIS23 00191 15 MAP-KEY-ENTER-A PIC X(01). DTSIS23 00192 15 MAP-KEY-ENTER PIC X(09). DTSIS23 00193 DTSIS23 00194 * 10 MAP-KEY-MOD-AREA. DTSIS23 00195 * 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS23 00196 * 15 MAP-KEY-MOD-A PIC X(01). DTSIS23 00197 * 15 MAP-KEY-MOD PIC X(07). DTSIS23 00198 DTSIS23 00199 10 MAP-KEY-REV-AREA. DTSIS23 00200 15 MAP-KEY-REV-L PIC S9(04) COMP. DTSIS23 00201 15 MAP-KEY-REV-A PIC X(01). DTSIS23 00202 15 MAP-KEY-REV PIC X(08). DTSIS23 00203 DTSIS23 00204 10 MAP-MSG-AREA. DTSIS23 00205 15 MAP-MSG-ID-AREA. DTSIS23 00206 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS23 00207 20 MAP-MSG-ID-A PIC X(01). DTSIS23 00208 20 MAP-MSG-ID PIC X(08). DTSIS23 00209 15 MAP-MSG-TEXT-AREA. DTSIS23 00210 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS23 00211 20 MAP-MSG-TEXT-A PIC X(01). DTSIS23 00212 20 MAP-MSG-TEXT PIC X(58). DTSIS23 00213 DTSIS23 00214 10 MAP-GOTO-AREA. DTSIS23 00215 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS23 00216 15 MAP-GOTO-A PIC X(01). DTSIS23 00217 15 MAP-GOTO PIC X(02). DTSIS23