00001 ***** 08/11/98 00002 * DTSISSF 00003 * DTSISSF SIGN OFF SEND/RECEIVE AREA. LV003 00004 * DTSISSF 00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3 00006 * CL**3 00007 ***** DTSISSF 00008 CL**2 00009 10 FILLER PIC X(12). DTSISSF 00010 CL**2 00011 10 MAP-CURSOR-FIELD. DTSISSF 00012 15 MAP-CURSOR-FIELD-L PIC S9(04) COMP. DTSISSF 00013 15 MAP-CURSOR-FIELD-A PIC X(01). DTSISSF 00014 15 MAP-CURSOR-FIELD PIC X(01). DTSISSF 00015 CL**2 00016 10 MAP-MSG-AREA. DTSISSF 00017 15 MAP-MSG-ID-AREA. DTSISSF 00018 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISSF 00019 20 MAP-MSG-ID-A PIC X(01). DTSISSF 00020 20 MAP-MSG-ID PIC X(08). DTSISSF 00021 CL**2 00022 15 MAP-MSG-TEXT-AREA. DTSISSF 00023 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISSF 00024 20 MAP-MSG-TEXT-A PIC X(01). DTSISSF 00025 20 MAP-MSG-TEXT PIC X(58). DTSISSF