HB HW2FL

IDENTIFICATION DIVISION.
PROGRAM-ID. HW02FL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  EMPLOYEE-RECORD-IN.
    05 WS-EMP-PAY-YY         PIC X(02).
    05 WS-EMP-PAY-MM         PIC X(02).
    05 WS-EMP-PAY-DD         PIC X(02). 
    01 WS-FIRST-NAME         PIC X(08)   VALUE 'HELENE'.
    05 WS-LAST-NAME          PIC X(09)   VALUE 'BASSIMANA'.
PROCEDURE DIVISION.
    DISPLAY 'PAYROLL HW02FL FOR FN LN'.
    DISPLAY '--'.
    ACCEPT EMPLOYEE-RECORD-IN.
    DISPLAY 'PAY DATE: 0000'
    DISPLAY 'EMPLOYEE NAME:' 'WS-LAST-NAME' 'WS-FIRST-NAME'.

    DISPLAY '--'.
    DISPLAY 'END OF PROGRAM FOR FIRSTNAME LASTNAME'.
    STOP RUN.