Implementing External Action Blocks › Design › Create the Calling Procedure Step or Action Block › Enabling High Performance View Passing › External Action Block with High Performance View Passing

External Action Block with High Performance View Passing

The following excerpt shows a section of an External Action Block stub when High Performance View Passing is being used:

*

     PROCEDURE DIVISION USING IEF-RUNTIME-PARM1, IEF-RUNTIME-PARM2,
      GLOBDATA, IMPORT-0001EV, IO-0002EV,
      GROUP-IN-NONREPEATING-0001GV, GROUP-IN-REPEATING-0002RG,
      EXPORT-0006EV, OI-0007EV, GROUP-OUT-NONREPEATING-0003GV,
      GROUP-OUT-REPEATING-0004RG.
 
MAIN-0013631509.
 
    *
    * PERFORM PARA-0013631509-INIT THRU PARA-0013631509-INIT-EXIT
    * PERFORM PARA-0013631509 THRU PARA-0013631509-EXIT
    * GOBACK.
 
PARA-0013631509.
     MOVE ‘N’ TO FUNC-0013631509-ESC-FLAG

       * * * * * * * * * * * * * * * * * * * * * * * * * * *
       * USER-WRITTEN CODE SHOULD BE INSERTED HERE         *
       * * * * * * * * * * * * * * * * * * * * * * * * * * *

PARA-0013631509-EXIT.
     EXIT.