IBM Extension
IBM Extension

Format 9 - Data Area

The ACCEPT statement retrieves information from the data area specified in the FOR phrase.

Read syntax diagramSkip visual syntax diagram
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-'   

Start of change 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 change

End of IBM Extension
End of IBM Extension