COBOL/400 Language Help

Format 5 (PIP Data Area)

Description
Format 5 of the ACCEPT statement transfers data from the PIP (Program Initialization Parameters) data area into the identifier.

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

Format 5 (PIP Data Area)
 
->->--ACCEPT identifier FROM mnemonic-name-------------------->
 
->---*-------------------------------------------*----------->
    *-*----*-EXCEPTION imperative-statement-1---*
      *-ON-*
 
->---*-----------------------------------------------*------->
    *-NOT-*----*-EXCEPTION imperative-statement-2---*
          *-ON-*
 
->---*------------*------------------------------------------><-
    *-END-ACCEPT-*
 

mnemonic-name

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

EXCEPTION imperative-statement-1

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).

In the absence of the ON EXCEPTION phrase, a run-time message is issued if the PIP data area does not exist.

EXCEPTION imperative-statement-2 or NOT

Any imperative statement specified in the NOT ON EXCEPTION phrase is processed if the PIP data area exists (the job is a prestart job).


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