Format 3 - Feedback
This format is used to transfer feedback information from an active file to the identifier.
ACCEPT Statement - Format 3 - Feedback >>-ACCEPT--identifier-1--FROM--mnemonic-name--------------------> >--+------------------+--+----------------+-------------------->< '-FOR--file-name-1-' | (1) | '-END-ACCEPT-----'
- IBM® Extension
Identifier-1 can be any fixed-length group item or an elementary alphabetic, alphanumeric, or external decimal item. Identifier-1 cannot be a date-time item. If the description of identifier-1 contains a TYPE clause, the type-name referenced in that clause must be elementary.
Identifier-1 can also be an internal or external floating-point data item.
File-name-1 must be defined in an FD entry, and must be open prior to the execution of the ACCEPT statement. If file-name-1 is not open, the contents of identifier-1 remain unchanged.
The FROM phrase specifies a mnemonic-name that must be associated with an environment-name of OPEN-FEEDBACK or I-O-FEEDBACK in the SPECIAL-NAMES paragraph.
When the FOR phrase is specified, the feedback information is from the file specified in the phrase. When the FOR phrase is not specified, the feedback information is from the last file opened or used in an input or output operation of the current program.
See IBM Rational® Development Studio for i: ILE COBOL Programmer's Guide for a discussion of the I-O-FEEDBACK and OPEN-FEEDBACK areas. For a layout and description of the fields contained in the feedback areas, see the DB2® for i section of the Database and File Systems category in the IBM i Information Center at this Web site - http://www.ibm.com/systems/i/infocenter/.
