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