IDENTIFICATION DIVISON. PROGRAM-ID. PGMER-DAY. DATA DIVISION. WORKING-STORAGE SECTION. 77 NAME PIC X(04) VALUE ‘NICK’. 01 TODAY. 05 FILLER PIC XX. 05 TODAY-MMDD PIC 9(4). PROCEDURE DIVISION. MAIN-RTN. ACCEPT TODAY FROM SYSTEM-DATE. IF TODAY-MMDD = 0913 DISPLAY ‘HI ‘ NAME DISPLAY ‘HAPPY PROGRAMMER DAY‘. STOP RUN. +————————————————————-————-——+ | | | HI NICK | | HAPPY PROGRAMMER…

Read More