00001 ***** 05/22/01 00002 * DTSISL6 00003 * DTSISL6 ELECTRONIC FILER INQUIRY/UPDATE LV001 00004 * LOG-IN SCREEN. DTSISL6 00005 * DTSISL6 00006 ***** DTSISL6 00007 DTSISL6 00008 10 FILLER PIC X(12). DTSISL6 00009 DTSISL6 00010 10 MAP-SCR-TYPE-AREA. DTSISL6 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSISL6 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSISL6 00013 15 MAP-SCR-TYPE PIC X(02). DTSISL6 00014 DTSISL6 00015 10 MAP-CICS-REGION-NAME-AREA. DTSISL6 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSISL6 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSISL6 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSISL6 00019 DTSISL6 00020 10 MAP-SYS-DATE-AREA. DTSISL6 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSISL6 00022 15 MAP-SYS-DATE-A PIC X(01). DTSISL6 00023 15 MAP-SYS-DATE PIC X(08). DTSISL6 00024 DTSISL6 00025 10 MAP-SEARCH-NAME-AREA. DTSISL6 00026 15 MAP-SEARCH-NAME-L PIC S9(04) COMP. DTSISL6 00027 15 MAP-SEARCH-NAME-A PIC X(01). DTSISL6 00028 15 MAP-SEARCH-NAME PIC X(40). DTSISL6 00029 DTSISL6 00030 10 MAP-SYS-TIME-AREA. DTSISL6 00031 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSISL6 00032 15 MAP-SYS-TIME-A PIC X(01). DTSISL6 00033 15 MAP-SYS-TIME PIC X(08). DTSISL6 00034 DTSISL6 00035 10 MAP-SEARCH-ELF-ID-AREA. DTSISL6 00036 15 MAP-SEARCH-ELF-ID-1-AREA. DTSISL6 00037 20 MAP-SEARCH-ELF-ID-1-L PIC S9(04) COMP. DTSISL6 00038 20 MAP-SEARCH-ELF-ID-1-A PIC X(01). DTSISL6 00039 20 MAP-SEARCH-ELF-ID-1 PIC X(03). DTSISL6 00040 20 MAP-SEARCH-ELF-ID-1-N DTSISL6 00041 REDEFINES MAP-SEARCH-ELF-ID-1 DTSISL6 00042 PIC 9(03). DTSISL6 00043 15 MAP-SEARCH-ELF-ID-2-AREA. DTSISL6 00044 20 MAP-SEARCH-ELF-ID-2-L PIC S9(04) COMP. DTSISL6 00045 20 MAP-SEARCH-ELF-ID-2-A PIC X(01). DTSISL6 00046 20 MAP-SEARCH-ELF-ID-2 PIC X(03). DTSISL6 00047 20 MAP-SEARCH-ELF-ID-2-N DTSISL6 00048 REDEFINES MAP-SEARCH-ELF-ID-2 DTSISL6 00049 PIC 9(03). DTSISL6 00050 DTSISL6 00051 10 MAP-TABLE. DTSISL6 00052 15 MAP-LINE OCCURS 16 TIMES. DTSISL6 00053 20 MAP-LINE-L PIC S9(04) COMP. DTSISL6 00054 20 MAP-LINE-A PIC X(01). DTSISL6 00055 18 MAP-LINE-DATA. DTSISL6 00056 20 MAP-LINE-NO PIC X(02). DTSISL6 00057 20 FILLER PIC X(03). DTSISL6 00058 20 MAP-ELF-ID1 PIC X(03). DTSISL6 00059 20 FILLER PIC X(01). DTSISL6 00060 20 MAP-ELF-ID2 PIC X(03). DTSISL6 00061 20 FILLER PIC X(02). DTSISL6 00062 20 MAP-TYPE-CD-NAME PIC X(10). DTSISL6 00063 20 FILLER PIC X(03). DTSISL6 00064 20 MAP-ELF-NAME PIC X(40). DTSISL6 00065 20 FILLER PIC X(04). DTSISL6 00066 20 MAP-JOB-NAME PIC X(08). DTSISL6 00067 DTSISL6 00068 10 MAP-LINE-NUMBER-AREA. DTSISL6 00069 15 MAP-LINE-NUMBER-L PIC S9(04) COMP. DTSISL6 00070 15 MAP-LINE-NUMBER-A PIC X(01). DTSISL6 00071 15 MAP-LINE-NUMBER PIC X(02). DTSISL6 00072 DTSISL6 00073 10 MAP-BOX-NO-AREA. DTSISL6 00074 15 MAP-BOX-NO-L PIC S9(04) COMP. DTSISL6 00075 15 MAP-BOX-NO-A PIC X(01). DTSISL6 00076 15 MAP-BOX-NO PIC X(08). DTSISL6 00077 DTSISL6 00078 10 MAP-RCVD-DATE-AREA. DTSISL6 00079 15 MAP-RCVD-MO-AREA. DTSISL6 00080 20 MAP-RCVD-MO-L PIC S9(04) COMP. DTSISL6 00081 20 MAP-RCVD-MO-A PIC X(01). DTSISL6 00082 20 MAP-RCVD-MO PIC X(02). DTSISL6 00083 DTSISL6 00084 15 MAP-RCVD-DA-AREA. DTSISL6 00085 20 MAP-RCVD-DA-L PIC S9(04) COMP. DTSISL6 00086 20 MAP-RCVD-DA-A PIC X(01). DTSISL6 00087 20 MAP-RCVD-DA PIC X(02). DTSISL6 00088 DTSISL6 00089 15 MAP-RCVD-YR-AREA. DTSISL6 00090 20 MAP-RCVD-YR-L PIC S9(04) COMP. DTSISL6 00091 20 MAP-RCVD-YR-A PIC X(01). DTSISL6 00092 20 MAP-RCVD-YR PIC X(02). DTSISL6 00093 DTSISL6 00094 10 MAP-KEY-BACK-AREA. DTSISL6 00095 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSISL6 00096 15 MAP-KEY-BACK-A PIC X(01). DTSISL6 00097 15 MAP-KEY-BACK PIC X(07). DTSISL6 00098 DTSISL6 00099 10 MAP-KEY-FWRD-AREA. DTSISL6 00100 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSISL6 00101 15 MAP-KEY-FWRD-A PIC X(01). DTSISL6 00102 15 MAP-KEY-FWRD PIC X(07). DTSISL6 00103 DTSISL6 00104 10 MAP-KEY-ADD-AREA. DTSISL6 00105 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSISL6 00106 15 MAP-KEY-ADD-A PIC X(01). DTSISL6 00107 15 MAP-KEY-ADD PIC X(07). DTSISL6 00108 DTSISL6 00109 10 MAP-MSG-AREA. DTSISL6 00110 15 MAP-MSG-ID-AREA. DTSISL6 00111 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISL6 00112 20 MAP-MSG-ID-A PIC X(01). DTSISL6 00113 20 MAP-MSG-ID PIC X(08). DTSISL6 00114 15 MAP-MSG-TEXT-AREA. DTSISL6 00115 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISL6 00116 20 MAP-MSG-TEXT-A PIC X(01). DTSISL6 00117 20 MAP-MSG-TEXT PIC X(58). DTSISL6 00118 DTSISL6 00119 10 MAP-GOTO-AREA. DTSISL6 00120 15 MAP-GOTO-L PIC S9(04) COMP. DTSISL6 00121 15 MAP-GOTO-A PIC X(01). DTSISL6 00122 15 MAP-GOTO PIC X(02). DTSISL6