IBM Extension

Format 5 - Program Initialization Parameters

You use this format to transfer data from the PIP (Program Initialization Parameters) data area into the identifier.

Read syntax diagramSkip visual syntax diagram
ACCEPT Statement - Format 5 - PIP Data Area

>>-ACCEPT--identifier-1--FROM--mnemonic-name-------------------->

>--+-------------------------------------------+---------------->
   '-+----+--EXCEPTION--imperative-statement-1-'   
     '-ON-'                                        

>--+------------------------------------------------+----------->
   '-NOT--+----+--EXCEPTION--imperative-statement-2-'   
          '-ON-'                                        

>--+------------+----------------------------------------------><
   '-END-ACCEPT-'   

This format only applies when you associate the mnemonic-name in the SPECIAL-NAMES paragraph with the environment-name PIP-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.

If the PIP data area exists, the job is a prestart job, and any imperative statement specified in the NOT ON EXCEPTION phrase is processed.

If the PIP data area does not exist, the job is not a prestart job, and any imperative statement specified in the ON EXCEPTION phrase is processed. If the PIP data area does not exist, the job is not a prestart job, and any imperative statement specified in the ON EXCEPTION phrase is processed. In the absence of the ON EXCEPTION phrase, a run-time message is issued if the PIP data area does not exist.

The END-ACCEPT explicit scope terminator serves to delimit the scope of the ACCEPT statement. END-ACCEPT permits a conditional ACCEPT statement to be nested in another conditional statement. END-ACCEPT may also be used with an imperative ACCEPT statement. For more information, see Delimited Scope Statements.

Note that you cannot update the PIP data area using COBOL. For more information about the PIP data area, see the IBM Rational Development Studio for i: ILE COBOL Programmer's Guide and the CL Programming book.

End of IBM Extension