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