00001 ***** 01/14/99 00002 * DTSIS43 APPEAL INQUIRY/UPDATE SEND/RECEIVE AREA DTSIS43 00003 ***** LV002 00004 10 FILLER PIC X(12). DTSIS43 00005 10 MAP-SCR-TYPE-AREA. DTSIS43 00006 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS43 00007 15 MAP-SCR-TYPE-A PIC X(01). DTSIS43 00008 15 MAP-SCR-TYPE PIC X(02). DTSIS43 00009 10 MAP-CICS-REGION-NAME-AREA. DTSIS43 00010 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS43 00011 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS43 00012 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS43 00013 10 MAP-SYS-DATE-AREA. DTSIS43 00014 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS43 00015 15 MAP-SYS-DATE-A PIC X(01). DTSIS43 00016 15 MAP-SYS-DATE PIC X(08). DTSIS43 00017 10 MAP-EMP-NO-AREA. DTSIS43 00018 15 F430209. DTSIS43 00019 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS43 00020 20 MAP-EMP-NO-1-A PIC X(01). DTSIS43 00021 20 MAP-EMP-NO-1 PIC X(03). DTSIS43 00022 15 F430213. DTSIS43 00023 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS43 00024 20 MAP-EMP-NO-2-A PIC X(01). DTSIS43 00025 20 MAP-EMP-NO-2 PIC X(03). DTSIS43 00026 10 F430221. DTSIS43 00027 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00028 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00029 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00030 10 MAP-SYS-TIME-AREA. DTSIS43 00031 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS43 00032 15 MAP-SYS-TIME-A PIC X(01). DTSIS43 00033 15 MAP-SYS-TIME PIC X(08). DTSIS43 00034 10 F430372. DTSIS43 00035 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS43 00036 15 MAP-CURR-PAGE-A PIC X(01). DTSIS43 00037 15 MAP-CURR-PAGE PIC Z9. DTSIS43 00038 10 F430378. DTSIS43 00039 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS43 00040 15 MAP-LAST-PAGE-A PIC X(01). DTSIS43 00041 15 MAP-LAST-PAGE PIC Z9. DTSIS43 00042 10 F430417. DTSIS43 00043 15 MAP-STATUS-CD-L PIC S9(04) COMP. DTSIS43 00044 15 MAP-STATUS-CD-A PIC X(01). DTSIS43 00045 15 MAP-STATUS-CD PIC X(01). DTSIS43 00046 10 F430523. CL**2 00047 15 MAP-STATUS-DSCR-L PIC S9(04) COMP. CL**2 00048 15 MAP-STATUS-DSCR-A PIC X(01). CL**2 00049 15 MAP-STATUS-DSCR PIC X(06). CL**2 00050 10 F430440. DTSIS43 00051 15 MAP-STATUS-DATE-L PIC S9(04) COMP. DTSIS43 00052 15 MAP-STATUS-DATE-A PIC X(01). DTSIS43 00053 15 MAP-STATUS-DATE PIC X(08). DTSIS43 00054 10 F430458. DTSIS43 00055 15 MAP-STATUS-OP-ID-L PIC S9(04) COMP. DTSIS43 00056 15 MAP-STATUS-OP-ID-A PIC X(01). DTSIS43 00057 15 MAP-STATUS-OP-ID PIC X(08). CL**2 00058 10 F430517. DTSIS43 00059 15 MAP-TYPE-L PIC S9(04) COMP. DTSIS43 00060 15 MAP-TYPE-A PIC X(01). DTSIS43 00061 15 MAP-TYPE PIC X(03). DTSIS43 00062 10 F430523. DTSIS43 00063 15 MAP-TYPE-DSCR-L PIC S9(04) COMP. DTSIS43 00064 15 MAP-TYPE-DSCR-A PIC X(01). DTSIS43 00065 15 MAP-TYPE-DSCR PIC X(10). DTSIS43 00066 10 MAP-OPEN-DATE-AREA. DTSIS43 00067 15 MAP-OPEN-DATE-MO-L PIC S9(04) COMP. DTSIS43 00068 15 MAP-OPEN-DATE-MO-A PIC X(01). DTSIS43 00069 15 MAP-OPEN-DATE-MO PIC X(02). DTSIS43 00070 15 MAP-OPEN-DATE-DA-L PIC S9(04) COMP. DTSIS43 00071 15 MAP-OPEN-DATE-DA-A PIC X(01). DTSIS43 00072 15 MAP-OPEN-DATE-DA PIC X(02). DTSIS43 00073 15 MAP-OPEN-DATE-YR-L PIC S9(04) COMP. DTSIS43 00074 15 MAP-OPEN-DATE-YR-A PIC X(01). DTSIS43 00075 15 MAP-OPEN-DATE-YR PIC X(02). DTSIS43 00076 10 MAP-CLOSE-DATE-AREA. DTSIS43 00077 15 MAP-CLOSE-DATE-MO-L PIC S9(04) COMP. DTSIS43 00078 15 MAP-CLOSE-DATE-MO-A PIC X(01). DTSIS43 00079 15 MAP-CLOSE-DATE-MO PIC X(02). DTSIS43 00080 15 MAP-CLOSE-DATE-DA-L PIC S9(04) COMP. DTSIS43 00081 15 MAP-CLOSE-DATE-DA-A PIC X(01). DTSIS43 00082 15 MAP-CLOSE-DATE-DA PIC X(02). DTSIS43 00083 15 MAP-CLOSE-DATE-YR-L PIC S9(04) COMP. DTSIS43 00084 15 MAP-CLOSE-DATE-YR-A PIC X(01). DTSIS43 00085 15 MAP-CLOSE-DATE-YR PIC X(02). DTSIS43 00086 10 MAP-FILE-DATES OCCURS 4 TIMES. CL**2 00087 15 MAP-FILE-DATE-MO-L PIC S9(04) COMP. DTSIS43 00088 15 MAP-FILE-DATE-MO-A PIC X(01). DTSIS43 00089 15 MAP-FILE-DATE-MO PIC X(02). DTSIS43 00090 15 MAP-FILE-DATE-DA-L PIC S9(04) COMP. DTSIS43 00091 15 MAP-FILE-DATE-DA-A PIC X(01). DTSIS43 00092 15 MAP-FILE-DATE-DA PIC X(02). DTSIS43 00093 15 MAP-FILE-DATE-YR-L PIC S9(04) COMP. DTSIS43 00094 15 MAP-FILE-DATE-YR-A PIC X(01). DTSIS43 00095 15 MAP-FILE-DATE-YR PIC X(02). DTSIS43 00096 10 MAP-DECSN-DATES OCCURS 4 TIMES. CL**2 00097 15 MAP-DECSN-DATE-MO-L PIC S9(04) COMP. DTSIS43 00098 15 MAP-DECSN-DATE-MO-A PIC X(01). DTSIS43 00099 15 MAP-DECSN-DATE-MO PIC X(02). DTSIS43 00100 15 MAP-DECSN-DATE-DA-L PIC S9(04) COMP. DTSIS43 00101 15 MAP-DECSN-DATE-DA-A PIC X(01). DTSIS43 00102 15 MAP-DECSN-DATE-DA PIC X(02). DTSIS43 00103 15 MAP-DECSN-DATE-YR-L PIC S9(04) COMP. DTSIS43 00104 15 MAP-DECSN-DATE-YR-A PIC X(01). DTSIS43 00105 15 MAP-DECSN-DATE-YR PIC X(02). DTSIS43 00106 10 MAP-COVERED-YRQ-AREA OCCURS 20 TIMES. DTSIS43 00107 15 MAP-COVERED-YRQ-YR-L PIC S9(04) COMP. DTSIS43 00108 15 MAP-COVERED-YRQ-YR-A PIC X(01). DTSIS43 00109 15 MAP-COVERED-YRQ-YR PIC X(02). DTSIS43 00110 DTSIS43 00111 15 MAP-COVERED-YRQ-Q-L PIC S9(04) COMP. DTSIS43 00112 15 MAP-COVERED-YRQ-Q-A PIC X(01). DTSIS43 00113 15 MAP-COVERED-YRQ-Q PIC X(01). DTSIS43 00114 10 MAP-TEXT-LINES OCCURS 08 TIMES. DTSIS43 00115 15 MAP-TEXT-L PIC S9(04) COMP. DTSIS43 00116 15 MAP-TEXT-A PIC X(01). DTSIS43 00117 15 MAP-TEXT PIC X(72). DTSIS43 00118 10 F432304. DTSIS43 00119 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS43 00120 15 MAP-KEY-FIRST-A PIC X(01). DTSIS43 00121 15 MAP-KEY-FIRST PIC X(08). DTSIS43 00122 10 F432313. DTSIS43 00123 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS43 00124 15 MAP-KEY-LAST-A PIC X(01). DTSIS43 00125 15 MAP-KEY-LAST PIC X(07). DTSIS43 00126 10 F432321. DTSIS43 00127 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS43 00128 15 MAP-KEY-BACK-A PIC X(01). DTSIS43 00129 15 MAP-KEY-BACK PIC X(07). DTSIS43 00130 10 F432329. DTSIS43 00131 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS43 00132 15 MAP-KEY-FWRD-A PIC X(01). DTSIS43 00133 15 MAP-KEY-FWRD PIC X(07). DTSIS43 00134 10 F432338. DTSIS43 00135 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS43 00136 15 MAP-KEY-ADD-A PIC X(01). DTSIS43 00137 15 MAP-KEY-ADD PIC X(07). DTSIS43 00138 10 F432347. DTSIS43 00139 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS43 00140 15 MAP-KEY-MOD-A PIC X(01). DTSIS43 00141 15 MAP-KEY-MOD PIC X(07). DTSIS43 00142 10 F432356. DTSIS43 00143 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS43 00144 15 MAP-KEY-DEL-A PIC X(01). DTSIS43 00145 15 MAP-KEY-DEL PIC X(07). DTSIS43 00146 10 MAP-MSG-AREA. DTSIS43 00147 15 MAP-MSG-ID-AREA. DTSIS43 00148 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS43 00149 20 MAP-MSG-ID-A PIC X(01). DTSIS43 00150 20 MAP-MSG-ID PIC X(08). DTSIS43 00151 15 MAP-MSG-TEXT-AREA. DTSIS43 00152 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS43 00153 20 MAP-MSG-TEXT-A PIC X(01). DTSIS43 00154 20 MAP-MSG-TEXT PIC X(58). DTSIS43 00155 10 MAP-GOTO-AREA. DTSIS43 00156 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS43 00157 15 MAP-GOTO-A PIC X(01). DTSIS43 00158 15 MAP-GOTO PIC X(02). DTSIS43