ILE COBOL Language Reference

+-------------------------------IBM Extension--------------------------------+

Format 4 - Local Data Area

This format is used to transfer data to identifier-1 from the system-defined local data area created for a job.

ACCEPT Statement - Format 4 - Local Data Area
 
>>-ACCEPT--identifier-1--FROM--mnemonic-name-------------------->
 
>--+----------------------------+--+------------+--------------><
   |     (1)                    |  '-END-ACCEPT-'
   '-FOR-------+-identifier-2-+-'
               '-literal-1----'
 
 

Notes:

  1. Syntax-checked only.

This format is only applicable when the mnemonic-name in the SPECIAL-NAMES paragraph is associated with the environment-name LOCAL-DATA.

The move into identifier-1 takes place according to the rules for the MOVE statement for a group move without the CORRESPONDING phrase. 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.

When the FOR phrase is specified, it is syntax checked during compilation but treated as a comment during execution. The value of literal-1 or identifier-2 indicates the program device name of the device that is associated with the local data area. There is only one local data area for each job, and all devices in a job access the same local data area. Literal-1, if specified, must be nonnumeric and 10 characters or less in length. Identifier-2, if specified, must refer to an alphanumeric data item, 10 characters or less in length. For more information about the local data area, see the CL Programming manual.

+----------------------------End of IBM Extension----------------------------+


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]