Question

How to get current time in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentDateDisplay.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CurrentTime.
   02  CurrentHour     PIC 99.
   02  CurrentMinute   PIC 99.
   02  FILLER          PIC 9(4).

PROCEDURE DIVISION.
Begin.
    ACCEPT CurrentTime FROM TIME.
    DISPLAY "Current Time = " CurrentHour ":" CurrentMinute.
    STOP RUN.
 
 
 
 
# run:
# 
# Current Time = 14:35
#

 

70+ SQL courses for beginners and professionals

Answer 2

IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentDateDisplay.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CurrentTime.
   02  CurrentHour     PIC 99.
   02  CurrentMinute   PIC 99.
   02  CurrentSecond   PIC 99.
   02  FILLER          PIC 9(2).

PROCEDURE DIVISION.
Begin.
    ACCEPT CurrentTime FROM TIME.
    DISPLAY "Current Time = " CurrentHour ":" CurrentMinute ":" CurrentSecond.
    STOP RUN.
 
 
 
 
# run:
# 
# Current Time = 14:42:53
#

 

70+ SQL courses for beginners and professionals