00001 *****                                                             09/13/12
00002 *                                                                 DTSIS00
00003 *    DTSIS00   MAIN MENU SEND/RECEIVE AREA.                          LV006
00004 *                                                                 DTSIS00
00005 *              REVIEWED AND MODIFIED FOR DC.  08/11/1998  EHH     DTSIS00
00006 *                                                                 DTSIS00
00007 *****                                                             DTSIS00
00008                                                                   DTSIS00
00009          10  FILLER                      PIC  X(12).              DTSIS00
00010                                                                   DTSIS00
00011          10  MAP-SCR-TYPE-AREA.                                   DTSIS00
00012              15  MAP-SCR-TYPE-L         PIC S9(04)       COMP.    DTSIS00
00013              15  MAP-SCR-TYPE-A         PIC  X(01).               DTSIS00
00014              15  MAP-SCR-TYPE           PIC  X(02).               DTSIS00
00015                                                                   DTSIS00
00016          10  MAP-CURR-RUN-DATE1-AREA.                             DTSIS00
00017              15  MAP-CURR-RUN-DATE1-L   PIC S9(04)       COMP.    DTSIS00
00018              15  MAP-CURR-RUN-DATE1-A   PIC  X(01).               DTSIS00
00019              15  MAP-CURR-RUN-DATE1     PIC  X(09).               DTSIS00
00020                                                                   DTSIS00
00021          10  MAP-CICS-REGION-NAME-AREA.                           DTSIS00
00022              15  MAP-CICS-REGION-NAME-L PIC S9(04)       COMP.    DTSIS00
00023              15  MAP-CICS-REGION-NAME-A PIC  X(01).               DTSIS00
00024              15  MAP-CICS-REGION-NAME   PIC  X(08).               DTSIS00
00025                                                                   DTSIS00
00026          10  MAP-SYS-DATE-AREA.                                   DTSIS00
00027              15  MAP-SYS-DATE-L         PIC S9(04)       COMP.    DTSIS00
00028              15  MAP-SYS-DATE-A         PIC  X(01).               DTSIS00
00029              15  MAP-SYS-DATE           PIC  X(08).               DTSIS00
00030                                                                   DTSIS00
00031          10  MAP-SYS-TIME-AREA.                                   DTSIS00
00032              15  MAP-SYS-TIME-L         PIC S9(04)       COMP.    DTSIS00
00033              15  MAP-SYS-TIME-A         PIC  X(01).               DTSIS00
00034              15  MAP-SYS-TIME           PIC  X(08).               DTSIS00
00035                                                                   DTSIS00
00036          10  MAP-OP-ID-AREA.                                      DTSIS00
00037              15  MAP-OP-ID-L            PIC S9(04)       COMP.    DTSIS00
00038              15  MAP-OP-ID-A            PIC  X(01).               DTSIS00
00039              15  MAP-OP-ID              PIC  X(08).               DTSIS00
00040                                                                   DTSIS00
00041          10  MAP-OPT-AREA.                                        DTSIS00
00042              15  MAP-OPT-L              PIC S9(04)       COMP.    DTSIS00
00043              15  MAP-OPT-A              PIC  X(01).               DTSIS00
00044              15  MAP-OPT                PIC  X(02).               DTSIS00
00045                                                                   DTSIS00
00046          10  MAP-OP-ALARM-IND-AREA.                               DTSIS00
00047              15  MAP-OP-ALARM-IND-L     PIC S9(04)       COMP.    DTSIS00
00048              15  MAP-OP-ALARM-IND-A     PIC  X(01).               DTSIS00
00049              15  MAP-OP-ALARM-IND       PIC  X(01).               DTSIS00
00050                  88  MAP-OP-ALARM-VALID-88 VALUE 'Y' 'N' 'M' 'P'  DTSIS00
00051                                                  'E'.             DTSIS00
00052                                                                   DTSIS00
00053          10  MAP-OP-NAME-AREA.                                    DTSIS00
00054              15  MAP-OP-NAME-L          PIC S9(04)       COMP.    DTSIS00
00055              15  MAP-OP-NAME-A          PIC  X(01).               DTSIS00
00056              15  MAP-OP-NAME            PIC  X(12).               DTSIS00
00057                                                                   DTSIS00
00058          10  MAP-MSG-AREA.                                        DTSIS00
00059              15  MAP-MSG-ID-AREA.                                 DTSIS00
00060                  20  MAP-MSG-ID-L       PIC S9(04)       COMP.    DTSIS00
00061                  20  MAP-MSG-ID-A       PIC  X(01).               DTSIS00
00062                  20  MAP-MSG-ID         PIC  X(08).               DTSIS00
00063                                                                   DTSIS00
00064              15  MAP-MSG-TEXT-AREA.                               DTSIS00
00065                  20  MAP-MSG-TEXT-L     PIC S9(04)       COMP.    DTSIS00
00066                  20  MAP-MSG-TEXT-A     PIC  X(01).               DTSIS00
00067                  20  MAP-MSG-TEXT       PIC  X(58).               DTSIS00