IBM Extension
IBM Extension
Format 9 - Data Area
The ACCEPT statement retrieves information from the data area specified in the FOR phrase.
ACCEPT Statement - Format 9 - Data Area >>-ACCEPT--identifier-1--FROM--mnemonic-name--------------------> >--FOR--+-identifier-2-+----------------------------------------> '-literal-1----' >--+-----------------------------------+------------------------> '-+----+--LIBRARY--+-identifier-3-+-' '-IN-' '-literal-2----' >--+----------------------+--+-----------+----------------------> '-AT--+-identifier-4-+-' '-WITH LOCK-' '-integer-1----' >--+-------------------------------------------+----------------> '-+----+--EXCEPTION--imperative-statement-1-' '-ON-' >--+------------------------------------------------+-----------> '-NOT--+----+--EXCEPTION--imperative-statement-2-' '-ON-' >--+------------+---------------------------------------------->< '-END-ACCEPT-'
For more information and an example of how to use
data areas, see the "Using Data Areas You Create" information in the
"Passing Data Using Data Areas" section of the IBM® Rational® Development Studio for i: ILE COBOL
Programmer's Guide. 
End of IBM Extension
