IDENTIFICATION DIVISON.
PROGRAM-ID. BIRTHDAY.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 NAME PIC X(20).
01 BDATE.
05 FILLER PIC XX.
05 BDATE-MMDD PIC 9(4).
PROCEDURE DIVISION.
ACCEPT NAME FROM CONSOLE.
ACCEPT BDATE FROM SYSTEM-DATE.
IF BDATE-MMDD = 1229
DISPLAY ‘HAPPY BIRTHDAY ‘ NAME.
STOP RUN.
+————————————————————-————-——+
| |
| HAPPY BIRTHDAY NICK. |
/
/
/
/
+————————————-————-——+
Leave a Reply
You must be logged in to post a comment.