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 DAY |
/
/
/
/
+————————————-————-——+
Leave a Reply
You must be logged in to post a comment.