00001  IDENTIFICATION DIVISION.                                         09/29/98
00002  PROGRAM-ID.    DTSBU010.                                         DTSBU010
00003  AUTHOR.        MT DEPT OF LABOR/UI PROGRAMMING SECTION.             LV006
00004  DATE-WRITTEN.  OCT 1994.                                         DTSBU010
00005  DATE-COMPILED.                                                   DTSBU010
00006      SKIP3                                                        DTSBU010
00007 ******************************************************************DTSBU010
00008 *                                                                *DTSBU010
00009 *    FUNCTION: TIME VALIDATE/FORMAT MODULE                       *DTSBU010
00010 *                                                                *DTSBU010
00011 *                                                                *DTSBU010
00012 * MODIFICATION HISTORY:                                          *DTSBU010
00013 * 08-04-98 INITIAL DEVELOPMENT          MODIFIED FROM MACBU010.  *   CL**2
00014 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - ZL1 *   CL**2
00015 *                                                                *DTSBU010
00016 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *DTSBU010
00017 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *DTSBU010
00018 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX *DTSBU010
00019 *                                                                *DTSBU010
00020 *    RETURN CODES:                                               *DTSBU010
00021 *      0 - SUCCESSFUL COMPLETION                                 *DTSBU010
00022 *      1 - INVALID TIME                                          *DTSBU010
00023 *                                                                *DTSBU010
00024 *                                                                *DTSBU010
00025 *                                                                *   CL**2
00026 *                                                                *   CL**2
00027 *                                                                *DTSBU010
00028 ******************************************************************DTSBU010
00029      SKIP3                                                        DTSBU010
00030  ENVIRONMENT      DIVISION.                                       DTSBU010
00031      SKIP3                                                        DTSBU010
00032  DATA DIVISION.                                                   DTSBU010
00033      EJECT                                                        DTSBU010
00034  WORKING-STORAGE SECTION.                                         DTSBU010
000345 77  PAN-VALET PICTURE X(24) VALUE '006DTSBU010  09/29/98'.       DTSBU010
00035      SKIP3                                                        DTSBU010
00036  01  WRK-AREA.                                                    DTSBU010
00037      05  WS-HHMMSS                   PIC  9(06).                  DTSBU010
00038      05  FILLER REDEFINES WS-HHMMSS.                              DTSBU010
00039          10  WS-HH                   PIC  X(02).                  DTSBU010
00040              88  WS-HH-VALID     VALUE '00' THRU '23'.            DTSBU010
00041          10  WS-MM                   PIC  X(02).                  DTSBU010
00042              88  WS-MM-VALID     VALUE '00' THRU '59'.            DTSBU010
00043          10  WS-SS                   PIC  X(02).                  DTSBU010
00044              88  WS-SS-VALID     VALUE '00' THRU '59'.            DTSBU010
00045      05  WS-DOTS-HHMMSS.                                          DTSBU010
00046          10  WS-DOTS-HH              PIC  X(02).                  DTSBU010
00047          10  FILLER                  PIC  X(01)  VALUE '.'.       DTSBU010
00048          10  WS-DOTS-MM              PIC  X(02).                  DTSBU010
00049          10  FILLER                  PIC  X(01)  VALUE '.'.       DTSBU010
00050          10  WS-DOTS-SS              PIC  X(02).                  DTSBU010
00051      EJECT                                                        DTSBU010
00052  LINKAGE SECTION.                                                 DTSBU010
00053      SKIP3                                                        DTSBU010
00054  01  L010-LINK-AREA.                                              DTSBU010
00055  ++INCLUDE DTSIL010                                                  CL**5
00056      SKIP2                                                        DTSBU010
00057      EJECT                                                        DTSBU010
00058  PROCEDURE DIVISION                                               DTSBU010
00059      USING L010-LINK-AREA.                                        DTSBU010
00060                                                                      CL**6
00061      MOVE L010-TIME TO WS-HHMMSS.                                 DTSBU010
00062                                                                      CL**6
00063      IF WS-HH-VALID AND WS-MM-VALID AND WS-SS-VALID               DTSBU010
00064          SET L010-VALID-TIME TO TRUE                              DTSBU010
00065          MOVE WS-HH TO WS-DOTS-HH                                 DTSBU010
00066          MOVE WS-MM TO WS-DOTS-MM                                 DTSBU010
00067          MOVE WS-SS TO WS-DOTS-SS                                 DTSBU010
00068          MOVE WS-DOTS-HHMMSS TO L010-DOTS-TIME                    DTSBU010
00069      ELSE                                                         DTSBU010
00070          SET L010-INVALID-TIME TO TRUE.                              CL**2
00071  MAINLINE-EXIT. EXIT.                                                CL**2
00072                                                                      CL**6
00073      GOBACK.                                                      DTSBU010
