00001 *****                                                             09/29/98
00002 *                                                                 DTSIL010
00003 *    DTSIL010  TIME VALIDATE/FORMAT MODULE LINKAGE.                  LV003
00004 *                                                                 DTSIL010
00005 *              RECEIVE A TIME IN HHMMSS FORMAT, VALIDATE IT,      DTSIL010
00006 *              AND EDIT IT WITH DOTS (HH.MM.SS).                  DTSIL010
00007 *                                                                 DTSIL010
00008 *****                                                             DTSIL010
00009                                                                      CL**3
00010          10  L010-RETURN-CODE        PIC  X(01).                  DTSIL010
00011              88  L010-VALID-TIME                 VALUE '0'.       DTSIL010
00012              88  L010-INVALID-TIME               VALUE '1'.       DTSIL010
00013                                                                      CL**3
00014          10  L010-TIME               PIC S9(07)  COMP-3.          DTSIL010
00015                                                                      CL**3
00016          10  L010-DOTS-TIME.                                      DTSIL010
00017              15  L010-DOTS-HH        PIC  9(2).                   DTSIL010
00018              15  FILLER              PIC  X(1).                   DTSIL010
00019              15  L010-DOTS-MM        PIC  9(2).                   DTSIL010
00020              15  FILLER              PIC  X(1).                   DTSIL010
00021              15  L010-DOTS-SS        PIC  9(2).                   DTSIL010
00022                                                                      CL**3
00023          10  FILLER                  PIC  X(19).                     CL**3