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