75 lines
5.9 KiB
COBOL
75 lines
5.9 KiB
COBOL
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
|