24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 09/29/98
|
|
00002 * DTSIL010
|
|
00003 * DTSIL010 TIME VALIDATE/FORMAT MODULE LINKAGE. LV003
|
|
00004 * DTSIL010
|
|
00005 * RECEIVE A TIME IN HHMMSS FORMAT, VALIDATE IT, DTSIL010
|
|
00006 * AND EDIT IT WITH DOTS (HH.MM.SS). DTSIL010
|
|
00007 * DTSIL010
|
|
00008 ***** DTSIL010
|
|
00009 CL**3
|
|
00010 10 L010-RETURN-CODE PIC X(01). DTSIL010
|
|
00011 88 L010-VALID-TIME VALUE '0'. DTSIL010
|
|
00012 88 L010-INVALID-TIME VALUE '1'. DTSIL010
|
|
00013 CL**3
|
|
00014 10 L010-TIME PIC S9(07) COMP-3. DTSIL010
|
|
00015 CL**3
|
|
00016 10 L010-DOTS-TIME. DTSIL010
|
|
00017 15 L010-DOTS-HH PIC 9(2). DTSIL010
|
|
00018 15 FILLER PIC X(1). DTSIL010
|
|
00019 15 L010-DOTS-MM PIC 9(2). DTSIL010
|
|
00020 15 FILLER PIC X(1). DTSIL010
|
|
00021 15 L010-DOTS-SS PIC 9(2). DTSIL010
|
|
00022 CL**3
|
|
00023 10 FILLER PIC X(19). CL**3
|