IDENTIFICATION DIVISION.
PROGRAM-ID. TomorrowDate.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TODAY-DATE PIC 9(8).
01 WS-TOMORROW-DATE PIC 9(8).
01 WS-DATE-INTEGER PIC 9(8).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
*> Get today's date in YYYYMMDD format
MOVE FUNCTION CURRENT-DATE(1:8) TO WS-TODAY-DATE
*> Convert today's date into an integer
MOVE FUNCTION INTEGER-OF-DATE(WS-TODAY-DATE) TO WS-DATE-INTEGER
*> Add 1 to the integer to get tomorrow's date
ADD 1 TO WS-DATE-INTEGER
*> Convert the integer back into a date
MOVE FUNCTION DATE-OF-INTEGER(WS-DATE-INTEGER) TO WS-TOMORROW-DATE
*> Display tomorrow's date in YYYY-MM-DD format
DISPLAY "Tomorrow's date is: "
WS-TOMORROW-DATE(1:4) "-"
WS-TOMORROW-DATE(5:2) "-"
WS-TOMORROW-DATE(7:2).
STOP RUN.
*> run:
*>
*> Tomorrow's date is: 2025-04-10
*>
