Example of the ACCEPT statement

This topic lists an example for the ACCEPT statement.

       IDENTIFICATION DIVISION.
        PROGRAM-ID. ACCPTST.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 AGE                       PIC 9(3).
        01 GENDER                    PIC X(1).
        PROCEDURE DIVISION.
            ACCEPT AGE.
            ACCEPT GENDER.
            EVALUATE TRUE ALSO TRUE
               WHEN AGE > 60 ALSO GENDER = 'M'
                    DISPLAY 'THE MAN IS RETIRED   '
               WHEN AGE > 60 ALSO GENDER = 'F'
                    DISPLAY 'THE WOMAN IS RETIRED  '
               WHEN AGE <= 60 ALSO GENDER = 'M'
                    DISPLAY 'THE MAN IS NOT RETIRED   '
               WHEN AGE <= 60 ALSO GENDER = 'F'
                    DISPLAY 'THE WOMAN IS NOT RETIRED  '
               WHEN OTHER
                    DISPLAY 'INVALID INPUT      '
                    DISPLAY 'AGE =' AGE ' and GENDER =' GENDER
            END-EVALUATE.
            STOP RUN.
Put your data in file1.dat:
  64
 M
and export using SYSIN:
export SYSIN=file1.dat