IDENTIFICATION DIVISON.
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. | / / / /…