How to get the current day of year in COBOL

1 Answer

0 votes
IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentDateDisplay.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 DayOfYear.
   02  FILLER        PIC 9(4).
   02  YearDay       PIC 9(3).

PROCEDURE DIVISION.
Begin.
    ACCEPT DayOfYear FROM DAY YYYYDDD.
    DISPLAY "Current day of year = " YearDay.
    STOP RUN.
 
 
 
 
# run:
# 
# Current day of year = 238
#

 



answered Aug 26, 2022 by avibootz

Related questions

...