00001 *****                                                             08/24/98
00002 *                                                                 DTSIL025
00003 *    DTSIL025  TIME FROM SCREEN FORMAT/EDIT MODULE LINKAGE.          LV003
00004 *                                                                 DTSIL025
00005 *****                                                             DTSIL025
00006      SKIP1                                                        DTSIL025
00007          10  L025-RESULT-IND             PIC  X(01).              DTSIL025
00008              88  L025-NO-ENTRY               VALUE '0'.           DTSIL025
00009              88  L025-VALID                  VALUE '1'.           DTSIL025
00010              88  L025-NOT-VALID              VALUE '2'.           DTSIL025
00011      SKIP1                                                        DTSIL025
00012          10  L025-S-TIME-AREA.                                    DTSIL025
00013              15  L025-S-HR-AREA.                                  DTSIL025
00014                  20  L025-S-HR-L         PIC S9(04)      COMP.    DTSIL025
00015                  20  L025-S-HR-A         PIC  X(01).              DTSIL025
00016                  20  L025-S-HR           PIC  X(02).              DTSIL025
00017              15  L025-S-MN-AREA.                                  DTSIL025
00018                  20  L025-S-MN-L         PIC S9(04)      COMP.    DTSIL025
00019                  20  L025-S-MN-A         PIC  X(01).              DTSIL025
00020                  20  L025-S-MN           PIC  X(02).              DTSIL025
00021              15  L025-S-SC-AREA.                                  DTSIL025
00022                  20  L025-S-SC-L         PIC S9(04)      COMP.    DTSIL025
00023                  20  L025-S-SC-A         PIC  X(01).              DTSIL025
00024                  20  L025-S-SC           PIC  X(02).              DTSIL025
00025      SKIP1                                                        DTSIL025
00026          10  L025-TIME                  PIC S9(07)       COMP-3.  DTSIL025
00027      SKIP1                                                        DTSIL025
00028          10  FILLER                      PIC  X(10).              DTSIL025