THISISTHELASTSRAWINEEDYOUTOSAVE

IDENTIFICATION DIVISION.
PROGRAM-ID. HW02DW.
AUTHOR. DANIELLE WILLIAMS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  EMPLOYEE-RECORD-IN. 
    05 EMP-PAY-DATE-IN.                 
        10 EMP-PAY-YY            PIC X(02)      VALUE '19'. 
        10 EMP-PAY-MM            PIC X(02)      VALUE '01'.
        10 EMP-PAY-DD            PIC X(02)      VALUE '04'.
    05 EMP-NUMBER                PIC X(03).      
    05 EMP-NAME.
        10 EMP-LAST-NAME         PIC X(15)      VALUE 'WILLIAMS'.
        10 EMP-FIRST-NAME        PIC X(10)      VALUE 'DANIELLE'.
    05 HOURS-WORKED              PIC 99V99.
    05 PAY-RATE                  PIC 99V99.
    05 PAY-TYPE                  PIC X.
        88 H-HOURLY                             VALUE 'H'.                
        88 S-SALARY                             VALUE 'S'.
    05 EMP-POSITION              PIC X.
        88 P-PROGRAMMER                     VALUE 'P'.
        88 A-ACCOUNTANT                     VALUE 'A'.
        88 M-MANAGER                        VALUE 'M'.
        88 I-INTERN                         VALUE 'I'.
        88 T-TESTER                         VALUE 'T'.
    01 GROSS-PAY                 PIC 9(03)  VALUE 0.
PROCEDURE DIVISION.
    DISPLAY 'PAYROLL HW02DW FOR DA WI'.
    DISPLAY '--'.
    ACCEPT EMPLOYEE-RECORD-IN.
    DISPLAY 'WHOLE INPUT RECORD: 190104A01WILLIAMS       DANIELLE 00000000HS'
    DISPLAY 'PAY DATE          :' EMP-PAY-MM '/'EMP-PAY-DD '/' EMP-PAY-YY. 
    DISPLAY 'EMPLOYEE NAME     :'  EMP-LAST-NAME ',' EMP-FIRST-NAME.
    DISPLAY 'NUMBER            :'  EMP-NUMBER.
    DISPLAY 'HOURS             :'  HOURS-WORKED.
    DISPLAY 'PAY RATE          :'  PAY-RATE.
    DISPLAY 'POSITIONS         :'  EMP-POSITION.
    DISPLAY 'PAY TYPE          :'  PAY-TYPE.
    DISPLAY 'EXTRA CREDIT      :'
    COMPUTE GROSS-PAY = HOURS-WORKED * PAY-RATE
        DISPLAY 'GROSS PAY         :'GROSS-PAY.

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