IBM Extension
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.

Read syntax diagramSkip visual syntax diagram
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
End of IBM Extension