COBOL/400 Language Help

Format 4 (Local Data Area)

Description
Format 4 of the ACCEPT statement transfers data to identifier-1 from the system-defined local data area created for the job.

The move into identifier-1 takes place according to the rules for the MOVE statement for a group move without the CORRESPONDING phrase.

There is only one local data area for each job, and all devices in a job access the same local data area.

Format 4 (Local Data Area)
 
->->--ACCEPT identifier-1 FROM mnemonic-name------------------>
 
->---*----------------------*--------------------------------><-
    *-FOR-*-identifier-2-*-*
          *-literal------*
 

identifier-1

Identifier-1 is the receiving data item.

mnemonic-name

Mnemonic-name must be associated with an environment-name of LOCAL-DATA in the SPECIAL-NAMES paragraph.

FOR

When you specify the FOR phrase, it is syntax checked during compilation but treated as a comment during execution.

identifier-2 or literal

The value of literal or identifier-2 indicates the program device associated with the local data area.

If you specify literal, it must be nonnumeric and 10 characters or less in length. If you specify identifier-2, it must refer to an alphanumeric data item, 10 characters or less in length.


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