00001 ***** 03/10/99 00002 * DTSSIS42 MISCELLANEOUS COLLECTIONS INQUIRY/UPDATE DTSIS42 00003 * SEND/RECEIVE AREA LV006 00004 ***** DTSIS42 00005 10 FILLER PIC X(12). DTSIS42 00006 DTSIS42 00007 10 MAP-SCR-TYPE-AREA. DTSIS42 00008 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS42 00009 15 MAP-SCR-TYPE-A PIC X(01). DTSIS42 00010 15 MAP-SCR-TYPE PIC X(02). DTSIS42 00011 DTSIS42 00012 10 MAP-CICS-REGION-NAME-AREA. DTSIS42 00013 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS42 00014 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS42 00015 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS42 00016 DTSIS42 00017 10 MAP-SYS-DATE-AREA. DTSIS42 00018 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS42 00019 15 MAP-SYS-DATE-A PIC X(01). DTSIS42 00020 15 MAP-SYS-DATE PIC X(08). DTSIS42 00021 DTSIS42 00022 10 MAP-EMP-NO-AREA. DTSIS42 00023 15 MAP-EMP-NO-1-AREA. DTSIS42 00024 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS42 00025 20 MAP-EMP-NO-1-A PIC X(01). DTSIS42 00026 20 MAP-EMP-NO-1 PIC X(03). DTSIS42 00027 15 MAP-EMP-NO-2-AREA. DTSIS42 00028 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS42 00029 20 MAP-EMP-NO-2-A PIC X(01). DTSIS42 00030 20 MAP-EMP-NO-2 PIC X(03). DTSIS42 00031 DTSIS42 00032 10 MAP-PRIMARY-NAME-AREA. CL**2 00033 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00034 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00035 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00036 DTSIS42 00037 10 MAP-SYS-TIME-AREA. DTSIS42 00038 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS42 00039 15 MAP-SYS-TIME-A PIC X(01). DTSIS42 00040 15 MAP-SYS-TIME PIC X(08). DTSIS42 00041 DTSIS42 00042 10 MAP-EMP-CLASS-AREA. DTSIS42 00043 15 MAP-EMP-CLASS-L PIC S9(04) COMP. DTSIS42 00044 15 MAP-EMP-CLASS-A PIC X(01). DTSIS42 00045 15 MAP-EMP-CLASS PIC X(10). DTSIS42 00046 DTSIS42 00047 10 MAP-WRITEOFF-DATE-AREA. CL**2 00048 15 MAP-WRITEOFF-DATE-L PIC S9(04) COMP. CL**2 00049 15 MAP-WRITEOFF-DATE-A PIC X(01). CL**2 00050 15 MAP-WRITEOFF-DATE PIC X(08). CL**2 00051 DTSIS42 00052 10 MAP-PHONE-AREA. DTSIS42 00053 15 MAP-VOICE-1-AREA-AREA. CL**3 00054 20 MAP-VOICE-1-AREA-CD-L PIC S9(04) COMP. CL**3 00055 20 MAP-VOICE-1-AREA-CD-A PIC X(01). CL**3 00056 20 MAP-VOICE-1-AREA-CD PIC X(03). CL**3 00057 15 MAP-VOICE-1-PREFIX-AREA. CL**3 00058 20 MAP-VOICE-1-PREFIX-L PIC S9(04) COMP. CL**3 00059 20 MAP-VOICE-1-PREFIX-A PIC X(01). CL**3 00060 20 MAP-VOICE-1-PREFIX PIC X(03). CL**3 00061 15 MAP-VOICE-1-SUFFIX-AREA. CL**3 00062 20 MAP-VOICE-1-SUFFIX-L PIC S9(04) COMP. CL**3 00063 20 MAP-VOICE-1-SUFFIX-A PIC X(01). CL**3 00064 20 MAP-VOICE-1-SUFFIX PIC X(04). CL**3 00065 15 MAP-VOICE-1-EXT-AREA. CL**3 00066 20 MAP-VOICE-1-EXT-L PIC S9(04) COMP. CL**3 00067 20 MAP-VOICE-1-EXT-A PIC X(01). CL**3 00068 20 MAP-VOICE-1-EXT PIC X(05). CL**3 00069 DTSIS42 00070 10 MAP-EMP-STATUS-AREA. DTSIS42 00071 15 MAP-EMP-STATUS-L PIC S9(04) COMP. DTSIS42 00072 15 MAP-EMP-STATUS-A PIC X(01). DTSIS42 00073 15 MAP-EMP-STATUS PIC X(10). DTSIS42 00074 DTSIS42 00075 10 MAP-BANKRUPTCY-OPEN-AREA. DTSIS42 00076 15 MAP-BANKRUPTCY-OPEN-IND-L PIC S9(04) COMP. DTSIS42 00077 15 MAP-BANKRUPTCY-OPEN-IND-A PIC X(01). DTSIS42 00078 15 MAP-BANKRUPTCY-OPEN-IND PIC X(10). DTSIS42 00079 DTSIS42 00080 10 MAP-FLD-REP-ID-AREA. DTSIS42 00081 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS42 00082 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS42 00083 15 MAP-FLD-REP-ID PIC X(02). DTSIS42 00084 DTSIS42 00085 10 MAP-FLD-REP-DSCR-AREA. DTSIS42 00086 15 MAP-FLD-REP-ID-DSCR-L PIC S9(04) COMP. DTSIS42 00087 15 MAP-FLD-REP-ID-DSCR-A PIC X(01). DTSIS42 00088 15 MAP-FLD-REP-ID-DSCR PIC X(10). DTSIS42 00089 DTSIS42 00090 10 MAP-SUSPEND-AREA. CL**2 00091 15 MAP-SUSPEND-IND-L PIC S9(04) COMP. CL**2 00092 15 MAP-SUSPEND-IND-A PIC X(01). CL**2 00093 15 MAP-SUSPEND-IND PIC X(01). CL**2 00094 88 MAP-SUSPEND-VALID-88 VALUE 'Y' 'N'. CL**6 00095 DTSIS42 00096 10 MAP-MAIL-DB-MEMO-AREA. CL**2 00097 15 MAP-MAIL-DB-MEMO-IND-L PIC S9(04) COMP. CL**2 00098 15 MAP-MAIL-DB-MEMO-IND-A PIC X(01). CL**2 00099 15 MAP-MAIL-DB-MEMO-IND PIC X(01). CL**2 00100 88 MAP-MAIL-DB-MEMO-NO-MTAD-88 VALUE SPACES. CL**4 00101 88 MAP-MAIL-DB-MEMO-VALID-88 VALUE 'Y' 'N'. CL**4 00102 DTSIS42 00103 10 MAP-FINAL-NOTICE-DATE. CL**2 00104 15 MAP-FINAL-NOTICE-MO-L PIC S9(04) COMP. CL**2 00105 15 MAP-FINAL-NOTICE-MO-A PIC X(01). CL**2 00106 15 MAP-FINAL-NOTICE-MO PIC X(02). CL**2 00107 15 MAP-FINAL-NOTICE-DA-L PIC S9(04) COMP. CL**2 00108 15 MAP-FINAL-NOTICE-DA-A PIC X(01). CL**2 00109 15 MAP-FINAL-NOTICE-DA PIC X(02). CL**2 00110 15 MAP-FINAL-NOTICE-YR-L PIC S9(04) COMP. CL**2 00111 15 MAP-FINAL-NOTICE-YR-A PIC X(01). CL**2 00112 15 MAP-FINAL-NOTICE-YR PIC X(02). CL**2 00113 CL**2 00114 10 MAP-SUBPOENA-CD-AREA. CL**2 00115 15 MAP-SUBPOENA-CD-L PIC S9(04) COMP. CL**2 00116 15 MAP-SUBPOENA-CD-A PIC X(01). CL**2 00117 15 MAP-SUBPOENA-CD PIC X(01). CL**2 00118 CL**2 00119 10 MAP-MAIL-MISS-RPT-IND-AREA. CL**2 00120 15 MAP-MAIL-MISS-RPT-IND-L PIC S9(04) COMP. CL**2 00121 15 MAP-MAIL-MISS-RPT-IND-A PIC X(01). CL**2 00122 15 MAP-MAIL-MISS-RPT-IND PIC X(01). CL**2 00123 88 MAP-MAIL-MISS-RPT-NO-MTAD-88 VALUE SPACES. CL**2 00124 88 MAP-MAIL-MISS-RPT-VALID-88 VALUE 'Y' 'N'. CL**2 00125 CL**2 00126 10 MAP-LEGAL-REF-DATE. CL**2 00127 15 MAP-LEGAL-REF-MO-L PIC S9(04) COMP. CL**2 00128 15 MAP-LEGAL-REF-MO-A PIC X(01). CL**2 00129 15 MAP-LEGAL-REF-MO PIC X(02). CL**2 00130 15 MAP-LEGAL-REF-DA-L PIC S9(04) COMP. CL**2 00131 15 MAP-LEGAL-REF-DA-A PIC X(01). CL**2 00132 15 MAP-LEGAL-REF-DA PIC X(02). CL**2 00133 15 MAP-LEGAL-REF-YR-L PIC S9(04) COMP. CL**2 00134 15 MAP-LEGAL-REF-YR-A PIC X(01). CL**2 00135 15 MAP-LEGAL-REF-YR PIC X(02). CL**2 00136 CL**2 00137 10 MAP-SUBPOENA-DATE. CL**2 00138 15 MAP-SUBPOENA-MO-L PIC S9(04) COMP. CL**2 00139 15 MAP-SUBPOENA-MO-A PIC X(01). CL**2 00140 15 MAP-SUBPOENA-MO PIC X(02). CL**2 00141 15 MAP-SUBPOENA-DA-L PIC S9(04) COMP. CL**2 00142 15 MAP-SUBPOENA-DA-A PIC X(01). CL**2 00143 15 MAP-SUBPOENA-DA PIC X(02). CL**2 00144 15 MAP-SUBPOENA-YR-L PIC S9(04) COMP. CL**2 00145 15 MAP-SUBPOENA-YR-A PIC X(01). CL**2 00146 15 MAP-SUBPOENA-YR PIC X(02). CL**2 00147 CL**2 00148 10 MAP-PHYS-DB-MEMO-AREA. CL**2 00149 15 MAP-PHYS-DB-MEMO-IND-L PIC S9(04) COMP. CL**2 00150 15 MAP-PHYS-DB-MEMO-IND-A PIC X(01). CL**2 00151 15 MAP-PHYS-DB-MEMO-IND PIC X(01). CL**2 00152 88 MAP-PHYS-DB-MEMO-NO-MTAD-88 VALUE SPACES. CL**4 00153 88 MAP-PHYS-DB-MEMO-VALID-88 VALUE 'Y' 'N'. CL**4 00154 DTSIS42 00155 10 MAP-CIVIL-ACTION-BEGIN-DATE. CL**2 00156 15 MAP-CIVIL-ACTION-BEGIN-MO-L PIC S9(04) COMP. CL**2 00157 15 MAP-CIVIL-ACTION-BEGIN-MO-A PIC X(01). CL**2 00158 15 MAP-CIVIL-ACTION-BEGIN-MO PIC X(02). CL**2 00159 15 MAP-CIVIL-ACTION-BEGIN-DA-L PIC S9(04) COMP. CL**2 00160 15 MAP-CIVIL-ACTION-BEGIN-DA-A PIC X(01). CL**2 00161 15 MAP-CIVIL-ACTION-BEGIN-DA PIC X(02). CL**2 00162 15 MAP-CIVIL-ACTION-BEGIN-YR-L PIC S9(04) COMP. CL**2 00163 15 MAP-CIVIL-ACTION-BEGIN-YR-A PIC X(01). CL**2 00164 15 MAP-CIVIL-ACTION-BEGIN-YR PIC X(02). CL**2 00165 CL**2 00166 10 MAP-SUBPOENA-OPID-AREA. CL**3 00167 15 MAP-SUBPOENA-OPID-L PIC S9(04) COMP. CL**2 00168 15 MAP-SUBPOENA-OPID-A PIC X(01). CL**2 00169 15 MAP-SUBPOENA-OPID PIC X(08). CL**2 00170 CL**2 00171 10 MAP-PHYS-MISS-RPT-AREA. CL**2 00172 15 MAP-PHYS-MISS-RPT-IND-L PIC S9(04) COMP. CL**2 00173 15 MAP-PHYS-MISS-RPT-IND-A PIC X(01). CL**2 00174 15 MAP-PHYS-MISS-RPT-IND PIC X(01). CL**2 00175 88 MAP-PHYS-MISS-RPT-NO-MTAD-88 VALUE SPACES. CL**4 00176 88 MAP-PHYS-MISS-RPT-VALID-88 VALUE 'Y' 'N'. CL**4 00177 CL**2 00178 10 MAP-CIVIL-ACTION-JUDGE-DATE. CL**2 00179 15 MAP-CIVIL-ACTION-JUDGE-MO-L PIC S9(04) COMP. CL**2 00180 15 MAP-CIVIL-ACTION-JUDGE-MO-A PIC X(01). CL**2 00181 15 MAP-CIVIL-ACTION-JUDGE-MO PIC X(02). CL**2 00182 15 MAP-CIVIL-ACTION-JUDGE-DA-L PIC S9(04) COMP. CL**2 00183 15 MAP-CIVIL-ACTION-JUDGE-DA-A PIC X(01). CL**2 00184 15 MAP-CIVIL-ACTION-JUDGE-DA PIC X(02). CL**2 00185 15 MAP-CIVIL-ACTION-JUDGE-YR-L PIC S9(04) COMP. CL**2 00186 15 MAP-CIVIL-ACTION-JUDGE-YR-A PIC X(01). CL**2 00187 15 MAP-CIVIL-ACTION-JUDGE-YR PIC X(02). CL**2 00188 CL**2 00189 10 MAP-BNK-PETITION-DATE-AREA. DTSIS42 00190 15 MAP-BNK-PETITION-MO-L PIC S9(04) COMP. DTSIS42 00191 15 MAP-BNK-PETITION-MO-A PIC X(01). DTSIS42 00192 15 MAP-BNK-PETITION-MO PIC X(02). DTSIS42 00193 15 MAP-BNK-PETITION-DA-L PIC S9(04) COMP. DTSIS42 00194 15 MAP-BNK-PETITION-DA-A PIC X(01). DTSIS42 00195 15 MAP-BNK-PETITION-DA PIC X(02). DTSIS42 00196 15 MAP-BNK-PETITION-YR-L PIC S9(04) COMP. DTSIS42 00197 15 MAP-BNK-PETITION-YR-A PIC X(01). DTSIS42 00198 15 MAP-BNK-PETITION-YR PIC X(02). DTSIS42 00199 CL**2 00200 10 MAP-BNK-COURT-CASE-AREA. CL**2 00201 15 MAP-BNK-COURT-CASE-NO-L PIC S9(04) COMP. CL**2 00202 15 MAP-BNK-COURT-CASE-NO-A PIC X(01). CL**2 00203 15 MAP-BNK-COURT-CASE-NO PIC X(15). CL**2 00204 DTSIS42 00205 10 MAP-BNK-CHAPTER-AREA. DTSIS42 00206 15 MAP-BNK-CHAPTER-L PIC S9(04) COMP. DTSIS42 00207 15 MAP-BNK-CHAPTER-A PIC X(01). DTSIS42 00208 15 MAP-BNK-CHAPTER PIC X(02). DTSIS42 00209 DTSIS42 00210 10 MAP-BNK-POC-REQUIRED-DATE-AREA. DTSIS42 00211 15 MAP-BNK-POC-REQUIRED-MO-L PIC S9(04) COMP. DTSIS42 00212 15 MAP-BNK-POC-REQUIRED-MO-A PIC X(01). DTSIS42 00213 15 MAP-BNK-POC-REQUIRED-MO PIC X(02). DTSIS42 00214 15 MAP-BNK-POC-REQUIRED-DA-L PIC S9(04) COMP. DTSIS42 00215 15 MAP-BNK-POC-REQUIRED-DA-A PIC X(01). DTSIS42 00216 15 MAP-BNK-POC-REQUIRED-DA PIC X(02). DTSIS42 00217 15 MAP-BNK-POC-REQUIRED-YR-L PIC S9(04) COMP. DTSIS42 00218 15 MAP-BNK-POC-REQUIRED-YR-A PIC X(01). DTSIS42 00219 15 MAP-BNK-POC-REQUIRED-YR PIC X(02). DTSIS42 00220 DTSIS42 00221 10 MAP-BNK-POC-FILED-DATE-AREA. DTSIS42 00222 15 MAP-BNK-POC-FILED-MO-L PIC S9(04) COMP. DTSIS42 00223 15 MAP-BNK-POC-FILED-MO-A PIC X(01). DTSIS42 00224 15 MAP-BNK-POC-FILED-MO PIC X(02). DTSIS42 00225 15 MAP-BNK-POC-FILED-DA-L PIC S9(04) COMP. DTSIS42 00226 15 MAP-BNK-POC-FILED-DA-A PIC X(01). DTSIS42 00227 15 MAP-BNK-POC-FILED-DA PIC X(02). DTSIS42 00228 15 MAP-BNK-POC-FILED-YR-L PIC S9(04) COMP. DTSIS42 00229 15 MAP-BNK-POC-FILED-YR-A PIC X(01). DTSIS42 00230 15 MAP-BNK-POC-FILED-YR PIC X(02). DTSIS42 00231 DTSIS42 00232 10 MAP-BNK-CHAPTER-CHNG-DATE-AREA. DTSIS42 00233 15 MAP-BNK-CHAPTER-CHNG-MO-L PIC S9(04) COMP. DTSIS42 00234 15 MAP-BNK-CHAPTER-CHNG-MO-A PIC X(01). DTSIS42 00235 15 MAP-BNK-CHAPTER-CHNG-MO PIC X(02). DTSIS42 00236 15 MAP-BNK-CHAPTER-CHNG-DA-L PIC S9(04) COMP. DTSIS42 00237 15 MAP-BNK-CHAPTER-CHNG-DA-A PIC X(01). DTSIS42 00238 15 MAP-BNK-CHAPTER-CHNG-DA PIC X(02). DTSIS42 00239 15 MAP-BNK-CHAPTER-CHNG-YR-L PIC S9(04) COMP. DTSIS42 00240 15 MAP-BNK-CHAPTER-CHNG-YR-A PIC X(01). DTSIS42 00241 15 MAP-BNK-CHAPTER-CHNG-YR PIC X(02). DTSIS42 00242 DTSIS42 00243 10 MAP-BNK-LAST-COMM-DATE-AREA. DTSIS42 00244 15 MAP-BNK-LAST-COMM-MO-L PIC S9(04) COMP. DTSIS42 00245 15 MAP-BNK-LAST-COMM-MO-A PIC X(01). DTSIS42 00246 15 MAP-BNK-LAST-COMM-MO PIC X(02). DTSIS42 00247 15 MAP-BNK-LAST-COMM-DA-L PIC S9(04) COMP. DTSIS42 00248 15 MAP-BNK-LAST-COMM-DA-A PIC X(01). DTSIS42 00249 15 MAP-BNK-LAST-COMM-DA PIC X(02). DTSIS42 00250 15 MAP-BNK-LAST-COMM-YR-L PIC S9(04) COMP. DTSIS42 00251 15 MAP-BNK-LAST-COMM-YR-A PIC X(01). DTSIS42 00252 15 MAP-BNK-LAST-COMM-YR PIC X(02). DTSIS42 00253 DTSIS42 00254 10 MAP-BNK-DISCHRG-DATE-AREA. DTSIS42 00255 15 MAP-BNK-DISCHRG-CLOSE-MO-L PIC S9(04) COMP. DTSIS42 00256 15 MAP-BNK-DISCHRG-CLOSE-MO-A PIC X(01). DTSIS42 00257 15 MAP-BNK-DISCHRG-CLOSE-MO PIC X(02). DTSIS42 00258 15 MAP-BNK-DISCHRG-CLOSE-DA-L PIC S9(04) COMP. DTSIS42 00259 15 MAP-BNK-DISCHRG-CLOSE-DA-A PIC X(01). DTSIS42 00260 15 MAP-BNK-DISCHRG-CLOSE-DA PIC X(02). DTSIS42 00261 15 MAP-BNK-DISCHRG-CLOSE-YR-L PIC S9(04) COMP. DTSIS42 00262 15 MAP-BNK-DISCHRG-CLOSE-YR-A PIC X(01). DTSIS42 00263 15 MAP-BNK-DISCHRG-CLOSE-YR PIC X(02). DTSIS42 00264 DTSIS42 00265 10 MAP-BNK-DISMISS-DATE-AREA. DTSIS42 00266 15 MAP-BNK-DISMISS-MO-L PIC S9(04) COMP. DTSIS42 00267 15 MAP-BNK-DISMISS-MO-A PIC X(01). DTSIS42 00268 15 MAP-BNK-DISMISS-MO PIC X(02). DTSIS42 00269 15 MAP-BNK-DISMISS-DA-L PIC S9(04) COMP. DTSIS42 00270 15 MAP-BNK-DISMISS-DA-A PIC X(01). DTSIS42 00271 15 MAP-BNK-DISMISS-DA PIC X(02). DTSIS42 00272 15 MAP-BNK-DISMISS-YR-L PIC S9(04) COMP. DTSIS42 00273 15 MAP-BNK-DISMISS-YR-A PIC X(01). DTSIS42 00274 15 MAP-BNK-DISMISS-YR PIC X(02). DTSIS42 00275 DTSIS42 00276 10 MAP-STMT-TYPE-AREA. CL**3 00277 15 MAP-STMT-TYPE-L PIC S9(04) COMP. CL**3 00278 15 MAP-STMT-TYPE-A PIC X(01). CL**3 00279 15 MAP-STMT-TYPE PIC X(01). CL**3 00280 88 MAP-STMT-TYPE-VALID VALUE 'C' 'D' ' '. CL**3 00281 DTSIS42 00282 10 MAP-STMT-PERMANENT-IND-AREA. CL**3 00283 15 MAP-STMT-PERMANENT-IND-L PIC S9(04) COMP. CL**3 00284 15 MAP-STMT-PERMANENT-IND-A PIC X(01). CL**3 00285 15 MAP-STMT-PERMANENT-IND PIC X(01). CL**3 00286 88 MAP-STMT-PERMANENT-VALID VALUE 'Y' 'N' ' '. CL**3 00287 DTSIS42 00288 10 MAP-STMT-TEXT-AREA OCCURS 8 TIMES. CL**3 00289 15 MAP-STMT-TEXT-L PIC S9(04) COMP. CL**3 00290 15 MAP-STMT-TEXT-A PIC X(01). CL**3 00291 15 MAP-STMT-TEXT PIC X(72). CL**3 00292 DTSIS42 00293 10 MAP-KEY-MOD-AREA. DTSIS42 00294 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS42 00295 15 MAP-KEY-MOD-A PIC X(01). DTSIS42 00296 15 MAP-KEY-MOD PIC X(07). DTSIS42 00297 DTSIS42 00298 10 MAP-MSG-AREA. DTSIS42 00299 15 MAP-MSG-ID-AREA. DTSIS42 00300 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS42 00301 20 MAP-MSG-ID-A PIC X(01). DTSIS42 00302 20 MAP-MSG-ID PIC X(08). DTSIS42 00303 15 MAP-MSG-TEXT-AREA. DTSIS42 00304 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS42 00305 20 MAP-MSG-TEXT-A PIC X(01). DTSIS42 00306 20 MAP-MSG-TEXT PIC X(58). DTSIS42 00307 DTSIS42 00308 10 MAP-GOTO-AREA. DTSIS42 00309 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS42 00310 15 MAP-GOTO-A PIC X(01). DTSIS42 00311 15 MAP-GOTO PIC X(02). DTSIS42