00001 ***** 09/18/98 00002 * DTSIS85 00003 * DTSIS85 FIELD REP TERRRITORY INQUIRY/UPDATE SEND/RECEIVE LV003 00004 * AREA. DTSIS85 00005 * DTSIS85 00006 ***** DTSIS85 00007 SKIP1 DTSIS85 00008 10 FILLER PIC X(12). DTSIS85 00009 SKIP1 DTSIS85 00010 10 MAP-SCR-TYPE-AREA. DTSIS85 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS85 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS85 00013 15 MAP-SCR-TYPE PIC X(02). DTSIS85 00014 SKIP1 DTSIS85 00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS85 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS85 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS85 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS85 00019 SKIP1 DTSIS85 00020 10 MAP-SYS-DATE-AREA. DTSIS85 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS85 00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS85 00023 15 MAP-SYS-DATE PIC X(08). DTSIS85 00024 SKIP1 DTSIS85 00025 10 MAP-SYS-TIME-AREA. DTSIS85 00026 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS85 00027 15 MAP-SYS-TIME-A PIC X(01). DTSIS85 00028 15 MAP-SYS-TIME PIC X(08). DTSIS85 00029 ***** DTSIS85 00030 10 MAP-TERRITORY-AREA. CL**3 00031 15 MAP-TERRITORY-L PIC S9(04) COMP. CL**3 00032 15 MAP-TERRITORY-A PIC X(01). CL**3 00033 15 MAP-TERRITORY PIC X(05). CL**3 00034 SKIP1 DTSIS85 00035 10 MAP-TERRITORY-DESC-AREA. CL**3 00036 15 MAP-TERRITORY-DESC-L PIC S9(04) COMP. CL**3 00037 15 MAP-TERRITORY-DESC-A PIC X(01). CL**3 00038 15 MAP-TERRITORY-DESC PIC X(15). CL**3 00039 SKIP1 DTSIS85 00040 10 MAP-REP-AREA OCCURS 10 DTSIS85 00041 INDEXED BY MAP-IDX. DTSIS85 00042 15 MAP-REP-ID-AREA. DTSIS85 00043 20 MAP-REP-ID-L PIC S9(04) COMP. DTSIS85 00044 20 MAP-REP-ID-A PIC X(01). DTSIS85 00045 20 MAP-REP-ID PIC X(02). DTSIS85 00046 15 MAP-REP-NAME-AREA. DTSIS85 00047 20 MAP-REP-NAME-L PIC S9(04) COMP. DTSIS85 00048 20 MAP-REP-NAME-A PIC X(01). DTSIS85 00049 20 MAP-REP-NAME PIC X(32). DTSIS85 00050 ***** DTSIS85 00051 10 MAP-ESTB-DATE-AREA. DTSIS85 00052 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS85 00053 15 MAP-ESTB-DATE-A PIC X(01). DTSIS85 00054 15 MAP-ESTB-DATE PIC X(08). DTSIS85 00055 SKIP1 DTSIS85 00056 10 MAP-CHNG-DATE-AREA. DTSIS85 00057 15 MAP-CHNG-DATE-L PIC S9(04) COMP. DTSIS85 00058 15 MAP-CHNG-DATE-A PIC X(01). DTSIS85 00059 15 MAP-CHNG-DATE PIC X(08). DTSIS85 00060 SKIP1 DTSIS85 00061 10 MAP-KEY-BACK-AREA. DTSIS85 00062 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS85 00063 15 MAP-KEY-BACK-A PIC X(01). DTSIS85 00064 15 MAP-KEY-BACK PIC X(07). DTSIS85 00065 SKIP1 DTSIS85 00066 10 MAP-KEY-FWRD-AREA. DTSIS85 00067 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS85 00068 15 MAP-KEY-FWRD-A PIC X(01). DTSIS85 00069 15 MAP-KEY-FWRD PIC X(07). DTSIS85 00070 SKIP1 DTSIS85 00071 10 MAP-KEY-ADD-AREA. DTSIS85 00072 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS85 00073 15 MAP-KEY-ADD-A PIC X(01). DTSIS85 00074 15 MAP-KEY-ADD PIC X(07). DTSIS85 00075 SKIP1 DTSIS85 00076 10 MAP-KEY-MOD-AREA. DTSIS85 00077 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS85 00078 15 MAP-KEY-MOD-A PIC X(01). DTSIS85 00079 15 MAP-KEY-MOD PIC X(07). DTSIS85 00080 SKIP1 DTSIS85 00081 10 MAP-KEY-DEL-AREA. DTSIS85 00082 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS85 00083 15 MAP-KEY-DEL-A PIC X(01). DTSIS85 00084 15 MAP-KEY-DEL PIC X(07). DTSIS85 00085 SKIP1 DTSIS85 00086 10 MAP-MSG-AREA. DTSIS85 00087 15 MAP-MSG-ID-AREA. DTSIS85 00088 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS85 00089 20 MAP-MSG-ID-A PIC X(01). DTSIS85 00090 20 MAP-MSG-ID PIC X(08). DTSIS85 00091 15 MAP-MSG-TEXT-AREA. DTSIS85 00092 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS85 00093 20 MAP-MSG-TEXT-A PIC X(01). DTSIS85 00094 20 MAP-MSG-TEXT PIC X(58). DTSIS85 00095 SKIP1 DTSIS85 00096 10 MAP-GOTO-AREA. DTSIS85 00097 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS85 00098 15 MAP-GOTO-A PIC X(01). DTSIS85 00099 15 MAP-GOTO PIC X(02). DTSIS85