00001 *****                                                             05/22/01
00002 *                                                                 DTSIEMSG
00003 *    DTSIEMSG  ELECTRONIC SUBMISSION MESSAGE RECORD.                 LV001
00004 *    ONE RECORD EXISTS FOR EACH SYSTEM GENERATED STATUS           DTSIEMSG
00005 *    MESSAGE, FOR EACH TYPE OF ERROR FOUND IN THE DATA,           DTSIEMSG
00006 *    AND FOR EACH MESSAGE A SYSTEM USER ENTERS MANUALLY.          DTSIEMSG
00007 *                                                                 DTSIEMSG
00008 *****                                                             DTSIEMSG
00009      SKIP1                                                        DTSIEMSG
00010          10  EMSG-KEY-AREA.                                       DTSIEMSG
00011              15  EMSG-REC-TYPE           PIC S9(04)       COMP.   DTSIEMSG
00012                  88  EMSG-MSG-88                 VALUE +04.       DTSIEMSG
00013              15  EMSG-LOG-NO             PIC  9(10).              DTSIEMSG
00014              15  EMSG-ABSTIME            PIC S9(15) COMP-3.       DTSIEMSG
00015              15  EMSG-SEQ                PIC  9(04).              DTSIEMSG
00016      SKIP1                                                        DTSIEMSG
00017          10  EMSG-DATA-AREA.                                      DTSIEMSG
00018              15  EMSG-MSG-TYPE           PIC  X(01).              DTSIEMSG
00019                  88  EMSG-TYPE-STATUS-88   VALUE '0'.             DTSIEMSG
00020                  88  EMSG-TYPE-ERROR-88    VALUE '1'.             DTSIEMSG
00021                  88  EMSG-TYPE-MANUAL-88   VALUE '2'.             DTSIEMSG
00022                  88  EMSG-TYPE-SUMMARY-88  VALUE '3'.             DTSIEMSG
00023              15  EMSG-FULL-MESSAGE       PIC  X(60).              DTSIEMSG
00024              15  EMSG-SHORT-MESSAGE      PIC  X(12).              DTSIEMSG
00025              15  EMSG-FILLER             PIC  X(27).              DTSIEMSG
00026              15  EMSG-ESTB-OPID          PIC  X(08).              DTSIEMSG