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