00001 *****                                                             08/11/98
00002 *                                                                 DTSISSM
00003 *    DTSISSM   SECONDARY MENU SEND/RECEIVE AREA.                     LV003
00004 *                                                                 DTSISSM
00005 *              REVIEWED AND MODIFIED FOR DC.  08/11/1998  EHH        CL**3
00006 *                                                                    CL**3
00007 *****                                                             DTSISSM
00008                                                                      CL**2
00009          10  FILLER                      PIC  X(12).              DTSISSM
00010                                                                      CL**2
00011          10  MAP-SCR-TYPE-AREA.                                   DTSISSM
00012              15  MAP-SCR-TYPE-L         PIC S9(04)       COMP.    DTSISSM
00013              15  MAP-SCR-TYPE-A         PIC  X(01).               DTSISSM
00014              15  MAP-SCR-TYPE           PIC  X(02).               DTSISSM
00015                                                                      CL**2
00016          10  MAP-CICS-REGION-NAME-AREA.                           DTSISSM
00017              15  MAP-CICS-REGION-NAME-L PIC S9(04)       COMP.    DTSISSM
00018              15  MAP-CICS-REGION-NAME-A PIC  X(01).               DTSISSM
00019              15  MAP-CICS-REGION-NAME   PIC  X(08).               DTSISSM
00020                                                                      CL**2
00021          10  MAP-SYS-DATE-AREA.                                   DTSISSM
00022              15  MAP-SYS-DATE-L         PIC S9(04)       COMP.    DTSISSM
00023              15  MAP-SYS-DATE-A         PIC  X(01).               DTSISSM
00024              15  MAP-SYS-DATE           PIC  X(08).               DTSISSM
00025                                                                      CL**2
00026          10  MAP-SYS-TIME-AREA.                                   DTSISSM
00027              15  MAP-SYS-TIME-L         PIC S9(04)       COMP.    DTSISSM
00028              15  MAP-SYS-TIME-A         PIC  X(01).               DTSISSM
00029              15  MAP-SYS-TIME           PIC  X(08).               DTSISSM
00030                                                                      CL**2
00031          10  MAP-OPT-AREA.                                        DTSISSM
00032              15  MAP-OPT-L              PIC S9(04)       COMP.    DTSISSM
00033              15  MAP-OPT-A              PIC  X(01).               DTSISSM
00034              15  MAP-OPT                PIC  X(02).               DTSISSM
00035                                                                      CL**2
00036          10  MAP-MSG-AREA.                                        DTSISSM
00037              15  MAP-MSG-ID-AREA.                                 DTSISSM
00038                  20  MAP-MSG-ID-L       PIC S9(04)       COMP.    DTSISSM
00039                  20  MAP-MSG-ID-A       PIC  X(01).               DTSISSM
00040                  20  MAP-MSG-ID         PIC  X(08).               DTSISSM
00041                                                                      CL**2
00042              15  MAP-MSG-TEXT-AREA.                               DTSISSM
00043                  20  MAP-MSG-TEXT-L     PIC S9(04)       COMP.    DTSISSM
00044                  20  MAP-MSG-TEXT-A     PIC  X(01).               DTSISSM
00045                  20  MAP-MSG-TEXT       PIC  X(58).               DTSISSM