00001 ***** 05/22/01 00002 * DTSISL8 00003 * DTSISL8 ELECTRONIC FILER DETAIL SCREEN LV001 00004 * DTSISL8 00005 ***** DTSISL8 00006 DTSISL8 00007 10 FILLER PIC X(12). DTSISL8 00008 DTSISL8 00009 10 MAP-SCR-TYPE-AREA. DTSISL8 00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSISL8 00011 15 MAP-SCR-TYPE-A PIC X(01). DTSISL8 00012 15 MAP-SCR-TYPE PIC X(02). DTSISL8 00013 DTSISL8 00014 10 MAP-CICS-REGION-NAME-AREA. DTSISL8 00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSISL8 00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSISL8 00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSISL8 00018 DTSISL8 00019 10 MAP-SYS-DATE-AREA. DTSISL8 00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSISL8 00021 15 MAP-SYS-DATE-A PIC X(01). DTSISL8 00022 15 MAP-SYS-DATE PIC X(08). DTSISL8 00023 DTSISL8 00024 10 MAP-ELF-ID-AREA. DTSISL8 00025 15 MAP-ELF-ID-1-AREA. DTSISL8 00026 20 MAP-ELF-ID-1-L PIC S9(04) COMP. DTSISL8 00027 20 MAP-ELF-ID-1-A PIC X(01). DTSISL8 00028 20 MAP-ELF-ID-1 PIC X(03). DTSISL8 00029 20 MAP-ELF-ID-1-N DTSISL8 00030 REDEFINES MAP-ELF-ID-1 DTSISL8 00031 PIC 9(03). DTSISL8 00032 15 MAP-ELF-ID-2-AREA. DTSISL8 00033 20 MAP-ELF-ID-2-L PIC S9(04) COMP. DTSISL8 00034 20 MAP-ELF-ID-2-A PIC X(01). DTSISL8 00035 20 MAP-ELF-ID-2 PIC X(03). DTSISL8 00036 20 MAP-ELF-ID-2-N DTSISL8 00037 REDEFINES MAP-ELF-ID-2 DTSISL8 00038 PIC 9(03). DTSISL8 00039 DTSISL8 00040 10 MAP-DATA-TYPE-CODE-AREA. DTSISL8 00041 15 MAP-DATA-TYPE-CD-L PIC S9(04) COMP. DTSISL8 00042 15 MAP-DATA-TYPE-CD-A PIC X(01). DTSISL8 00043 15 MAP-DATA-TYPE-CD PIC X(02). DTSISL8 00044 DTSISL8 00045 10 MAP-DATA-TYPE-DSCR-AREA. DTSISL8 00046 15 MAP-DATA-TYPE-DSCR-L PIC S9(04) COMP. DTSISL8 00047 15 MAP-DATA-TYPE-DSCR-A PIC X(01). DTSISL8 00048 15 MAP-DATA-TYPE-DSCR PIC X(40). DTSISL8 00049 DTSISL8 00050 10 MAP-SYS-TIME-AREA. DTSISL8 00051 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSISL8 00052 15 MAP-SYS-TIME-A PIC X(01). DTSISL8 00053 15 MAP-SYS-TIME PIC X(08). DTSISL8 00054 DTSISL8 00055 10 MAP-LOG-NO-AREA. DTSISL8 00056 15 MAP-LOG-NO-L PIC S9(04) COMP. DTSISL8 00057 15 MAP-LOG-NO-A PIC X(01). DTSISL8 00058 15 MAP-LOG-NO PIC X(06). DTSISL8 00059 15 MAP-LOG-NO-N REDEFINES MAP-LOG-NO DTSISL8 00060 PIC 9(06). DTSISL8 00061 DTSISL8 00062 10 MAP-ELF-NAME-AREA. DTSISL8 00063 15 MAP-ELF-NAME-L PIC S9(04) COMP. DTSISL8 00064 15 MAP-ELF-NAME-A PIC X(01). DTSISL8 00065 15 MAP-ELF-NAME PIC X(40). DTSISL8 00066 DTSISL8 00067 10 MAP-RCVD-DATE-AREA. DTSISL8 00068 15 MAP-RCVD-MO-AREA. DTSISL8 00069 20 MAP-RCVD-MO-L PIC S9(04) COMP. DTSISL8 00070 20 MAP-RCVD-MO-A PIC X(01). DTSISL8 00071 20 MAP-RCVD-MO PIC X(02). DTSISL8 00072 DTSISL8 00073 15 MAP-RCVD-DA-AREA. DTSISL8 00074 20 MAP-RCVD-DA-L PIC S9(04) COMP. DTSISL8 00075 20 MAP-RCVD-DA-A PIC X(01). DTSISL8 00076 20 MAP-RCVD-DA PIC X(02). DTSISL8 00077 DTSISL8 00078 15 MAP-RCVD-YR-AREA. DTSISL8 00079 20 MAP-RCVD-YR-L PIC S9(04) COMP. DTSISL8 00080 20 MAP-RCVD-YR-A PIC X(01). DTSISL8 00081 20 MAP-RCVD-YR PIC X(02). DTSISL8 00082 DTSISL8 00083 10 MAP-CMPL-DATE-AREA. DTSISL8 00084 15 MAP-CMPL-MO-AREA. DTSISL8 00085 20 MAP-CMPL-MO-L PIC S9(04) COMP. DTSISL8 00086 20 MAP-CMPL-MO-A PIC X(01). DTSISL8 00087 20 MAP-CMPL-MO PIC X(02). DTSISL8 00088 DTSISL8 00089 15 MAP-CMPL-DA-AREA. DTSISL8 00090 20 MAP-CMPL-DA-L PIC S9(04) COMP. DTSISL8 00091 20 MAP-CMPL-DA-A PIC X(01). DTSISL8 00092 20 MAP-CMPL-DA PIC X(02). DTSISL8 00093 DTSISL8 00094 15 MAP-CMPL-YR-AREA. DTSISL8 00095 20 MAP-CMPL-YR-L PIC S9(04) COMP. DTSISL8 00096 20 MAP-CMPL-YR-A PIC X(01). DTSISL8 00097 20 MAP-CMPL-YR PIC X(02). DTSISL8 00098 DTSISL8 00099 10 MAP-BOX-NO-AREA. DTSISL8 00100 15 MAP-BOX-NO-L PIC S9(04) COMP. DTSISL8 00101 15 MAP-BOX-NO-A PIC X(01). DTSISL8 00102 15 MAP-BOX-NO PIC X(08). DTSISL8 00103 DTSISL8 00104 10 MAP-ORIG-VOL-AREA. DTSISL8 00105 15 MAP-ORIG-VOL-L PIC S9(04) COMP. DTSISL8 00106 15 MAP-ORIG-VOL-A PIC X(01). DTSISL8 00107 15 MAP-ORIG-VOL PIC X(08). DTSISL8 00108 DTSISL8 00109 10 MAP-TABLE-AREA. DTSISL8 00110 15 MAP-TABLE OCCURS 15 TIMES. DTSISL8 00111 20 MAP-MSG-TYPE-AREA. DTSISL8 00112 25 MAP-MSG-TYPE-L PIC S9(04) COMP. DTSISL8 00113 25 MAP-MSG-TYPE-A PIC X(01). DTSISL8 00114 25 MAP-MSG-TYPE PIC X(07). DTSISL8 00115 20 MAP-MESSAGE-AREA. DTSISL8 00116 25 MAP-MESSAGE-L PIC S9(04) COMP. DTSISL8 00117 25 MAP-MESSAGE-A PIC X(01). DTSISL8 00118 25 MAP-MESSAGE PIC X(60). DTSISL8 00119 20 MAP-MSG-OPID-AREA. DTSISL8 00120 25 MAP-MSG-OPID-L PIC S9(04) COMP. DTSISL8 00121 25 MAP-MSG-OPID-A PIC X(01). DTSISL8 00122 25 MAP-MSG-OPID PIC X(08). DTSISL8 00123 DTSISL8 00124 10 MAP-ESTABLISH-DATE-AREA. DTSISL8 00125 15 MAP-ESTB-MO-AREA. DTSISL8 00126 20 MAP-ESTB-MO-L PIC S9(04) COMP. DTSISL8 00127 20 MAP-ESTB-MO-A PIC X(01). DTSISL8 00128 20 MAP-ESTB-MO PIC X(02). DTSISL8 00129 DTSISL8 00130 15 MAP-ESTB-DA-AREA. DTSISL8 00131 20 MAP-ESTB-DA-L PIC S9(04) COMP. DTSISL8 00132 20 MAP-ESTB-DA-A PIC X(01). DTSISL8 00133 20 MAP-ESTB-DA PIC X(02). DTSISL8 00134 DTSISL8 00135 15 MAP-ESTB-YR-AREA. DTSISL8 00136 20 MAP-ESTB-YR-L PIC S9(04) COMP. DTSISL8 00137 20 MAP-ESTB-YR-A PIC X(01). DTSISL8 00138 20 MAP-ESTB-YR PIC X(02). DTSISL8 00139 DTSISL8 00140 10 MAP-CHANGE-DATE-AREA. DTSISL8 00141 15 MAP-CHNG-MO-AREA. DTSISL8 00142 20 MAP-CHNG-MO-L PIC S9(04) COMP. DTSISL8 00143 20 MAP-CHNG-MO-A PIC X(01). DTSISL8 00144 20 MAP-CHNG-MO PIC X(02). DTSISL8 00145 DTSISL8 00146 15 MAP-CHNG-DA-AREA. DTSISL8 00147 20 MAP-CHNG-DA-L PIC S9(04) COMP. DTSISL8 00148 20 MAP-CHNG-DA-A PIC X(01). DTSISL8 00149 20 MAP-CHNG-DA PIC X(02). DTSISL8 00150 DTSISL8 00151 15 MAP-CHNG-YR-AREA. DTSISL8 00152 20 MAP-CHNG-YR-L PIC S9(04) COMP. DTSISL8 00153 20 MAP-CHNG-YR-A PIC X(01). DTSISL8 00154 20 MAP-CHNG-YR PIC X(02). DTSISL8 00155 DTSISL8 00156 10 MAP-CHNG-OPID-AREA. DTSISL8 00157 15 MAP-CHNG-OPID-L PIC S9(04) COMP. DTSISL8 00158 15 MAP-CHNG-OPID-A PIC X(01). DTSISL8 00159 15 MAP-CHNG-OPID PIC X(08). DTSISL8 00160 DTSISL8 00161 10 MAP-KEY-NEW-MSG-AREA. DTSISL8 00162 15 MAP-KEY-NEW-MSG-L PIC S9(04) COMP. DTSISL8 00163 15 MAP-KEY-NEW-MSG-A PIC X(01). DTSISL8 00164 15 MAP-KEY-NEW-MSG PIC X(10). DTSISL8 00165 DTSISL8 00166 10 MAP-KEY-MSG-BACK-AREA. DTSISL8 00167 15 MAP-KEY-MSG-BACK-L PIC S9(04) COMP. DTSISL8 00168 15 MAP-KEY-MSG-BACK-A PIC X(01). DTSISL8 00169 15 MAP-KEY-MSG-BACK PIC X(11). DTSISL8 00170 DTSISL8 00171 10 MAP-KEY-MSG-FWRD-AREA. DTSISL8 00172 15 MAP-KEY-MSG-FWRD-L PIC S9(04) COMP. DTSISL8 00173 15 MAP-KEY-MSG-FWRD-A PIC X(01). DTSISL8 00174 15 MAP-KEY-MSG-FWRD PIC X(11). DTSISL8 00175 DTSISL8 00176 10 MAP-KEY-BACK-AREA. DTSISL8 00177 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSISL8 00178 15 MAP-KEY-BACK-A PIC X(01). DTSISL8 00179 15 MAP-KEY-BACK PIC X(07). DTSISL8 00180 DTSISL8 00181 10 MAP-KEY-FWRD-AREA. DTSISL8 00182 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSISL8 00183 15 MAP-KEY-FWRD-A PIC X(01). DTSISL8 00184 15 MAP-KEY-FWRD PIC X(07). DTSISL8 00185 DTSISL8 00186 10 MAP-KEY-SAVE-MSG-AREA. DTSISL8 00187 15 MAP-KEY-SAVE-MSG-L PIC S9(04) COMP. DTSISL8 00188 15 MAP-KEY-SAVE-MSG-A PIC X(01). DTSISL8 00189 15 MAP-KEY-SAVE-MSG PIC X(11). DTSISL8 00190 DTSISL8 00191 10 MAP-KEY-MOD-AREA. DTSISL8 00192 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSISL8 00193 15 MAP-KEY-MOD-A PIC X(01). DTSISL8 00194 15 MAP-KEY-MOD PIC X(07). DTSISL8 00195 DTSISL8 00196 10 MAP-MSG-AREA. DTSISL8 00197 15 MAP-MSG-ID-AREA. DTSISL8 00198 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISL8 00199 20 MAP-MSG-ID-A PIC X(01). DTSISL8 00200 20 MAP-MSG-ID PIC X(08). DTSISL8 00201 15 MAP-MSG-TEXT-AREA. DTSISL8 00202 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISL8 00203 20 MAP-MSG-TEXT-A PIC X(01). DTSISL8 00204 20 MAP-MSG-TEXT PIC X(58). DTSISL8 00205 DTSISL8 00206 10 MAP-GOTO-AREA. DTSISL8 00207 15 MAP-GOTO-L PIC S9(04) COMP. DTSISL8 00208 15 MAP-GOTO-A PIC X(01). DTSISL8 00209 15 MAP-GOTO PIC X(02). DTSISL8