00001  IDENTIFICATION DIVISION.                                         08/06/98
00002  PROGRAM-ID.             DTSCU025.                                DTSCU025
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004  DATE-WRITTEN.           JULY 1994.                               DTSCU025
00005  DATE-COMPILED.                                                   DTSCU025
00006      SKIP3                                                        DTSCU025
00007 *****                                                             DTSCU025
00008 *                                                                 DTSCU025
00009 *    FUNCTION:   TIME FROM SCREEN FORMAT/EDIT MODULE.             DTSCU025
00010 *                                                                 DTSCU025
00011 *                                                                 DTSCU025
00012 *    MODIFICATION LOG:                                            DTSCU025
00013 *                                                                 DTSCU025
00014 *    08/04/98    INITIAL DEVELOPMENT.  MODIFIED FROM MACCU025.       CL**2
00015 *                WORK ORDER:                 PROGRAMMER: ZL1.        CL**2
00016 *                                                                 DTSCU025
00017 *    XX/XX/XX    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSCU025
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSCU025
00019 *                WORK ORDER:                 PROGRAMMER:          DTSCU025
00020 *                                                                 DTSCU025
00021 *                                                                 DTSCU025
00022 *    DESCRIPTION:                                                 DTSCU025
00023 *                                                                 DTSCU025
00024 *****                                                             DTSCU025
00025  SKIP3                                                            DTSCU025
00026  ENVIRONMENT DIVISION.                                            DTSCU025
00027  DATA DIVISION.                                                   DTSCU025
00028  SKIP3                                                            DTSCU025
00029  WORKING-STORAGE SECTION.                                         DTSCU025
000295 77  PAN-VALET PICTURE X(24) VALUE '003DTSCU025  08/06/98'.       DTSCU025
00030  01  WRK-AREA.                                                    DTSCU025
00031      05  WRK-6-TIME                      PIC 9(06).               DTSCU025
00032      05  WRK-6-TIME-X REDEFINES WRK-6-TIME.                       DTSCU025
00033          10  WRK-6-HR                    PIC  X(02).              DTSCU025
00034              88  WRK-6-HR-VALID   VALUE '00' THRU '23'.           DTSCU025
00035          10  WRK-6-MN                    PIC  X(02).              DTSCU025
00036              88  WRK-6-MN-VALID   VALUE '00' THRU '59'.           DTSCU025
00037          10  WRK-6-SC                    PIC  X(02).              DTSCU025
00038              88  WRK-6-SC-VALID   VALUE '00' THRU '59'.           DTSCU025
00039                                                                   DTSCU025
00040  LINKAGE SECTION.                                                 DTSCU025
00041  01  DFHCOMMAREA.                                                 DTSCU025
00042  ++INCLUDE DTSIL025                                                  CL**3
00043                                                                   DTSCU025
00044  PROCEDURE DIVISION.                                              DTSCU025
00045      SKIP2                                                        DTSCU025
00046      IF (L025-S-HR = SPACES OR LOW-VALUES)                        DTSCU025
00047              AND                                                  DTSCU025
00048         (L025-S-MN = SPACES OR LOW-VALUES)                        DTSCU025
00049              AND                                                  DTSCU025
00050         (L025-S-SC = SPACES OR LOW-VALUES)                        DTSCU025
00051          MOVE ZERO TO L025-TIME                                   DTSCU025
00052          SET L025-NO-ENTRY TO TRUE                                DTSCU025
00053          GO TO INIT0199-GO-BACK                                   DTSCU025
00054      END-IF.                                                      DTSCU025
00055                                                                   DTSCU025
00056      MOVE L025-S-HR TO WRK-6-HR.                                  DTSCU025
00057      MOVE L025-S-MN TO WRK-6-MN.                                  DTSCU025
00058      MOVE L025-S-SC TO WRK-6-SC.                                  DTSCU025
00059                                                                   DTSCU025
00060      IF WRK-6-HR-VALID                                            DTSCU025
00061      AND WRK-6-MN-VALID                                           DTSCU025
00062      AND WRK-6-SC-VALID                                           DTSCU025
00063          MOVE WRK-6-TIME TO L025-TIME                             DTSCU025
00064          SET L025-VALID TO TRUE                                   DTSCU025
00065      ELSE                                                         DTSCU025
00066          MOVE +0 TO L025-TIME                                     DTSCU025
00067          SET L025-NOT-VALID TO TRUE                               DTSCU025
00068      END-IF.                                                      DTSCU025
00069                                                                   DTSCU025
00070  INIT0199-GO-BACK.                                                DTSCU025
00071                                                                   DTSCU025
00072      EXEC CICS                                                    DTSCU025
00073          RETURN                                                   DTSCU025
00074      END-EXEC.                                                    DTSCU025
00075                                                                   DTSCU025
00076      GOBACK.                                                      DTSCU025
