00001 ***** 09/29/98 00002 * S74 TICKLER INQUIRY/UPDATE SEND/RECEIVE AREA DTSIS74 00003 ***** LV003 00004 DTSIS74 00005 10 FILLER PIC X(12). DTSIS74 00006 DTSIS74 00007 10 MAP-SCR-TYPE-AREA. DTSIS74 00008 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS74 00009 15 MAP-SCR-TYPE-A PIC X(01). DTSIS74 00010 15 MAP-SCR-TYPE PIC X(02). DTSIS74 00011 DTSIS74 00012 10 MAP-CICS-REGION-NAME-AREA. DTSIS74 00013 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS74 00014 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS74 00015 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS74 00016 DTSIS74 00017 10 MAP-SYS-DATE-AREA. DTSIS74 00018 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS74 00019 15 MAP-SYS-DATE-A PIC X(01). DTSIS74 00020 15 MAP-SYS-DATE PIC X(08). DTSIS74 00021 DTSIS74 00022 10 MAP-SYS-TIME-AREA. DTSIS74 00023 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS74 00024 15 MAP-SYS-TIME-A PIC X(01). DTSIS74 00025 15 MAP-SYS-TIME PIC X(08). DTSIS74 00026 DTSIS74 00027 10 MAP-EMP-NO-AREA. DTSIS74 00028 15 MAP-EMP-NO-AREA-1. DTSIS74 00029 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS74 00030 20 MAP-EMP-NO-1-A PIC X(01). DTSIS74 00031 20 MAP-EMP-NO-1 PIC X(03). DTSIS74 00032 15 MAP-EMP-NO-AREA-2. DTSIS74 00033 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS74 00034 20 MAP-EMP-NO-2-A PIC X(01). DTSIS74 00035 20 MAP-EMP-NO-2 PIC X(03). DTSIS74 00036 DTSIS74 00037 10 MAP-BUSINESS-NAME-AREA. DTSIS74 00038 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00039 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00040 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00041 DTSIS74 00042 10 MAP-CURR-PAGE-AREA. DTSIS74 00043 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS74 00044 15 MAP-CURR-PAGE-A PIC X(01). DTSIS74 00045 15 MAP-CURR-PAGE PIC Z9. DTSIS74 00046 DTSIS74 00047 10 MAP-LAST-PAGE-AREA. DTSIS74 00048 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS74 00049 15 MAP-LAST-PAGE-A PIC X(01). DTSIS74 00050 15 MAP-LAST-PAGE PIC Z9. DTSIS74 00051 DTSIS74 00052 10 MAP-ACKNOWLEDGED-IND-AREA. DTSIS74 00053 15 MAP-ACKNOWLEDGED-IND-L PIC S9(04) COMP. DTSIS74 00054 15 MAP-ACKNOWLEDGED-IND-A PIC X(01). DTSIS74 00055 15 MAP-ACKNOWLEDGED-IND PIC X(01). DTSIS74 00056 88 MAP-ACKNOWLEDGED-VALID VALUE 'Y' 'N'. DTSIS74 00057 DTSIS74 00058 10 MAP-ACKNOWLEDGED-DATE-AREA. DTSIS74 00059 15 MAP-ACKNOWLEDGED-DATE-L PIC S9(04) COMP. DTSIS74 00060 15 MAP-ACKNOWLEDGED-DATE-A PIC X(01). DTSIS74 00061 15 MAP-ACKNOWLEDGED-DATE PIC X(08). DTSIS74 00062 DTSIS74 00063 10 MAP-TYPE-AREA. DTSIS74 00064 15 MAP-TYPE-L PIC S9(04) COMP. DTSIS74 00065 15 MAP-TYPE-A PIC X(01). DTSIS74 00066 15 MAP-TYPE PIC X(03). DTSIS74 00067 88 MAP-TYPE-MANUAL-DEFAULT VALUE 'MAN'. DTSIS74 00068 88 MAP-TYPE-TCO-88 VALUE 'TCO'. DTSIS74 00069 88 MAP-TYPE-SYST-ONLY-88 VALUE 'ERA' 'ERB' DTSIS74 00070 'L01' 'LTE' 'POC'. DTSIS74 00071 DTSIS74 00072 10 MAP-TYPE-DESC-AREA. DTSIS74 00073 15 MAP-TYPE-DESC-L PIC S9(04) COMP. DTSIS74 00074 15 MAP-TYPE-DESC-A PIC X(01). DTSIS74 00075 15 MAP-TYPE-DESC PIC X(10). DTSIS74 00076 DTSIS74 00077 10 MAP-TRIGGER-DATE-AREA. DTSIS74 00078 15 MAP-TRIGGER-DATE-MO-AREA. DTSIS74 00079 20 MAP-TRIGGER-DATE-MO-L PIC S9(04) COMP. DTSIS74 00080 20 MAP-TRIGGER-DATE-MO-A PIC X(01). DTSIS74 00081 20 MAP-TRIGGER-DATE-MO PIC X(02). DTSIS74 00082 15 MAP-TRIGGER-DATE-DA-AREA. DTSIS74 00083 20 MAP-TRIGGER-DATE-DA-L PIC S9(04) COMP. DTSIS74 00084 20 MAP-TRIGGER-DATE-DA-A PIC X(01). DTSIS74 00085 20 MAP-TRIGGER-DATE-DA PIC X(02). DTSIS74 00086 15 MAP-TRIGGER-DATE-YR-AREA. DTSIS74 00087 20 MAP-TRIGGER-DATE-YR-L PIC S9(04) COMP. DTSIS74 00088 20 MAP-TRIGGER-DATE-YR-A PIC X(01). DTSIS74 00089 20 MAP-TRIGGER-DATE-YR PIC X(02). DTSIS74 00090 DTSIS74 00091 10 MAP-SOURCE-OP-ID-AREA. DTSIS74 00092 15 MAP-SOURCE-OP-ID-L PIC S9(04) COMP. DTSIS74 00093 15 MAP-SOURCE-OP-ID-A PIC X(01). DTSIS74 00094 15 MAP-SOURCE-OP-ID PIC X(08). CL**2 00095 88 MAP-SOURCE-OP-ID-SYSTEM-88 VALUE 'SYSTEM '. CL**2 00096 DTSIS74 00097 10 MAP-SOURCE-OP-ID-DESC-AREA. DTSIS74 00098 15 MAP-SOURCE-OP-ID-DESC-L PIC S9(04) COMP. DTSIS74 00099 15 MAP-SOURCE-OP-ID-DESC-A PIC X(01). DTSIS74 00100 15 MAP-SOURCE-OP-ID-DESC PIC X(32). CL**2 00101 DTSIS74 00102 10 MAP-DEST-OP-ID-AREA. DTSIS74 00103 15 MAP-DEST-OP-ID-L PIC S9(04) COMP. DTSIS74 00104 15 MAP-DEST-OP-ID-A PIC X(01). DTSIS74 00105 15 MAP-DEST-OP-ID PIC X(08). CL**2 00106 88 MAP-DEST-OP-ID-SYSTEM-88 VALUE 'SYSTEM'. DTSIS74 00107 88 MAP-DEST-TCO-88 VALUE 'TCO'. DTSIS74 00108 DTSIS74 00109 10 MAP-DEST-OP-ID-DESC-AREA. DTSIS74 00110 15 MAP-DEST-OP-ID-DESC-L PIC S9(04) COMP. DTSIS74 00111 15 MAP-DEST-OP-ID-DESC-A PIC X(01). DTSIS74 00112 15 MAP-DEST-OP-ID-DESC PIC X(32). CL**2 00113 DTSIS74 00114 10 MAP-LINE OCCURS 08 TIMES. DTSIS74 00115 15 MAP-TEXT-L PIC S9(04) COMP. DTSIS74 00116 15 MAP-TEXT-A PIC X(01). DTSIS74 00117 15 MAP-TEXT PIC X(72). DTSIS74 00118 DTSIS74 00119 10 MAP-KEY-FIRST-AREA. DTSIS74 00120 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS74 00121 15 MAP-KEY-FIRST-A PIC X(01). DTSIS74 00122 15 MAP-KEY-FIRST PIC X(08). DTSIS74 00123 DTSIS74 00124 10 MAP-KEY-LAST-AREA. DTSIS74 00125 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS74 00126 15 MAP-KEY-LAST-A PIC X(01). DTSIS74 00127 15 MAP-KEY-LAST PIC X(07). DTSIS74 00128 DTSIS74 00129 10 MAP-KEY-BACK-AREA. DTSIS74 00130 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS74 00131 15 MAP-KEY-BACK-A PIC X(01). DTSIS74 00132 15 MAP-KEY-BACK PIC X(07). DTSIS74 00133 DTSIS74 00134 10 MAP-KEY-FWRD-AREA. DTSIS74 00135 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS74 00136 15 MAP-KEY-FWRD-A PIC X(01). DTSIS74 00137 15 MAP-KEY-FWRD PIC X(07). DTSIS74 00138 DTSIS74 00139 10 MAP-KEY-ADD-AREA. DTSIS74 00140 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS74 00141 15 MAP-KEY-ADD-A PIC X(01). DTSIS74 00142 15 MAP-KEY-ADD PIC X(06). DTSIS74 00143 DTSIS74 00144 10 MAP-KEY-MOD-AREA. DTSIS74 00145 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS74 00146 15 MAP-KEY-MOD-A PIC X(01). DTSIS74 00147 15 MAP-KEY-MOD PIC X(07). DTSIS74 00148 DTSIS74 00149 10 MAP-KEY-DEL-AREA. DTSIS74 00150 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS74 00151 15 MAP-KEY-DEL-A PIC X(01). DTSIS74 00152 15 MAP-KEY-DEL PIC X(07). DTSIS74 00153 DTSIS74 00154 10 MAP-MSG-AREA. DTSIS74 00155 15 MAP-MSG-ID-AREA. DTSIS74 00156 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS74 00157 20 MAP-MSG-ID-A PIC X(01). DTSIS74 00158 20 MAP-MSG-ID PIC X(08). DTSIS74 00159 15 MAP-MSG-TEXT-AREA. DTSIS74 00160 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS74 00161 20 MAP-MSG-TEXT-A PIC X(01). DTSIS74 00162 20 MAP-MSG-TEXT PIC X(58). DTSIS74 00163 DTSIS74 00164 10 MAP-GOTO-AREA. DTSIS74 00165 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS74 00166 15 MAP-GOTO-A PIC X(01). DTSIS74 00167 15 MAP-GOTO PIC X(02). DTSIS74