ACCEPT verb

• ACCEPT verb is used to fetch input data from user’s terminal or system-date related information and move it into the specified identifier
• There is no editing or error checking done on incoming data
• Basic syntax:-
  Format 1:-
  ACCEPT identifier.
  • Using this format one can obtain identifier’s data value from user’s terminal
  • Data entered in terminal will be left justified in identifier
  • If there is no in-stream data from JCL then Job ABENDS
  Format 2:-
  ACCEPT identifier FROM system-reserved-identifier.
  • Using this format one can obtain identifier’s data value from the system reserved data items
  • When using this format, make sure to specify correct PIC clause for identifier which can match the value it receives from system variables
  • system-reserved-identifier can be one of the following

    System-reserved-identifier	Info returns
    DATE	YYMMDD [PIC 9(6)]
    DATE YYYYMMDD	YYYYMMDD [PIC 9(8)]
    DAY	YYDDD [PIC 9(5)]
    DAY YYYYDDD	YYYYDDD [PIC 9(7)]
    DAY-OF-WEEK	N [PIC 9(1)] (value 1-7 for Mon-Sun)
    TIME	HHMMSSTT [PIC 9(8)]

• Examples 1:-
In PROCEDURE DIVISION,
ACCPET EMP-ID
This will prompt user to input EMP-ID, once provided it will be stored in EMP-ID
• Examples 2:-
In DATA DIVISION,
01 TODAY-DATE. 05 YY PIC 99. 05 MM PIC 99. 05 DD PIC 99.
In PROCEDURE DIVISION,
ACCEPT TODAY-DATE FROM DATE.
After execution of ACCEPT statement, TODAY-DATE will have six digit current date in the form of YYMMDD where YY, MM, DD stands for the year, month and year respectively.

ACCEPT & DISPLAY Example