00001 *****                                                             03/01/12
00002 *                                                                 DTSIX155
00003 *    DTSIX155    EVENT LOG (MEVL) DATA PASSED FROM SERVER            LV001
00004 *                                                                 DTSIX155
00005 *    PASSES DATA NEEDED TO ADD AN EVENT LOG RECORD TO THE         DTSIX155
00006 *    MAINFRAME MASTER FILE.                                       DTSIX155
00007 *                                                                 DTSIX155
00008 *                                                                 DTSIX155
00009 *****                                                             DTSIX155
00010                                                                   DTSIX155
00011          15  X155-REC-TYPE              PIC  X(03) VALUE '155'.   DTSIX155
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX155
00013          15  X155-EMP-NO                PIC  9(06).               DTSIX155
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX155
00015          15  X155-OPID                  PIC  X(07).               DTSIX155
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX155
00017          15  X155-APP                   PIC  X(02).               DTSIX155
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX155
00019          15  X155-MEVL-TEXT             PIC  X(50).               DTSIX155
00020          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX155
00021          15  X155-ENTER-DATE            PIC  X(10).               DTSIX155