+-------------------------------IBM Extension--------------------------------+
The ACCEPT statement retrieves information (attribute data) about a particular program device associated with a TRANSACTION file.
ACCEPT Statement - Format 6 - Attribute Data
>>-ACCEPT--identifier-1--FROM--mnemonic-name-------------------->
>--+---------------------------------------------+-------------->
'-FOR--+-identifier-2-+--+------------------+-'
'-literal-1----' '-FOR--file-name-1-'
>--+------------+----------------------------------------------><
'-END-ACCEPT-'
This format of the ACCEPT statement may only be used for files with an organization of TRANSACTION.
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 be an internal or external floating-point data item.
Identifier-1 can be a DBCS or national data item.
If file-name-1 is not open at the time the ACCEPT is executed, message LNR7205 is issued.
Mnemonic-name must be associated with the environment-name ATTRIBUTE-DATA in the SPECIAL-NAMES paragraph.
If file-name-1 is not specified, the default file for the ACCEPT statement is the first TRANSACTION file specified in a SELECT clause of the FILE-CONTROL paragraph.
Literal-1 or the contents of identifier-2, if specified, indicates the program device name for which attribute data is made available.
For an ICF file, this device must have been defined (through a ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command) as available to be acquired by the file, but need not have actually been acquired. For a display file, if the program device name is not the name of the display device, then the device must have been specified in the DEV parameter when the file was created, changed, or overridden, and before the OPEN is issued for the file. Literal-1, if specified, must be nonnumeric and 10 characters or less in length. The contents of identifier-2, if specified, must be an alphanumeric data item 10 characters or less in length. If an invalid program device name is specified, message LNR7205 is issued and execution terminates.
If both FOR phrases are omitted (indicating the default TRANSACTION file is being used) the ACCEPT statement uses the program device from which a READ, WRITE, REWRITE, or ACCEPT (Attribute Data) operation on the default file was most recently performed. If the only prior operation on the file was an OPEN, the ACCEPT statement uses the program device implicitly acquired by the file when the file was opened. When both FOR phrases are omitted, a program device must have been acquired in order to use this format of the ACCEPT statement. See the ICF Programming manual for more information on acquiring devices.
Program device attributes are moved into identifier-1 from the appropriate attribute data format, according to the rules for a group MOVE without the CORRESPONDING phrase.
The attribute data retrieved by the ACCEPT statement depends on whether the data and the associated fields are applicable to a workstation or to a communications device. See Appendix F, File Structure Support Summary and Status Key Values for format descriptions.
The ATTRIBUTE-DATA mnemonic name can be used only to obtain information about a program device acquired by a TRANSACTION file. Attribute data does not provide information about the status of a completed or attempted I-O operation. To obtain information about I-O operations, use the Format 3 ACCEPT statement with the I-O-FEEDBACK or OPEN-FEEDBACK mnemonic names.
+----------------------------End of IBM Extension----------------------------+
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.