Display Current Date
Problem Description
Write a program that displays the current date in MM/DD/YYYY format.
Expected Output
TODAY IS: MM/DD/YYYY
Hints
Use ACCEPT with FROM DATE to get system date.
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. SHOWDATE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-DATE.
05 WS-YEAR PIC 9(4).
05 WS-MONTH PIC 9(2).
05 WS-DAY PIC 9(2).
PROCEDURE DIVISION.
ACCEPT WS-DATE FROM DATE YYYYMMDD.
DISPLAY "TODAY IS: " WS-MONTH "/" WS-DAY "/" WS-YEAR.
STOP RUN.
Explanation:
ACCEPT FROM DATE YYYYMMDD gets 8-digit date.