IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 D1.
02 YY PIC X(2).
02 MM PIC X(2).
02 DD PIC X(2).
01 D2.
02 DD PIC X(2).
02 FILLER PIC X VALUE '-'.
02 MM PIC X(2).
02 FILLER PIC X VALUE '-'.
02 YY PIC X(2).
01 D3.
02 HH PIC X(2).
02 MM PIC X(2).
02 SS PIC X(2).
01 D4.
02 HH PIC X(2).
02 FILLER PIC X VALUE ':'.
02 MM PIC X(2).
02 FILLER PIC X VALUE ':'.
02 SS PIC X(2).
PROCEDURE DIVISION.
ACCEPT D1 FROM DATE.
ACCEPT D3 FROM TIME.
MOVE CORRESPONDING D1 TO D2.
MOVE CORRESPONDING D3 TO D4.
DISPLAY D2.
DISPLAY D4.
STOP RUN.
*> Format: DD-MM-YY & HH:MM:SS
*> run:
*>
*> 24-10-24
*> 08:30:49
*>
