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

Enabling High Performance View Passing

Enabling the High Performance View Passing feature causes a change in the way that External Action Blocks are generated. The parameters that are passed in order include:

• IEF-RUNTIME-PARM1
• IEF-RUNTIME-PARM2
• GLOBDATA
• List of individually matched views (using the names that are provided in the action diagram), for example:
  • IMPORT-NON-REPEATING-GR-0005GV
  • EXPORT_CUSTOMER

The PSMGR-EAB-DATA (null array) is not passed directly as in normal view passing, because it is part of the GLOBDATA. There is a change in the order of the parameters passed. In addition, multiple views are passed with unique names rather than a single import/export view named W-IA or
W-OA.

The following two excerpts from External Action Block stubs illustrate some of the differences in the generated stubs when High Performance View Passing is in use.

External Action Block Stub Without High Performance View Passing

*
    PROCEDURE DIVISION USING IEF-RUNTIME-PARM1, IEF-RUNTIME-PARM2,
     W-IA, W-OA, PSMGR-EAB-DATA.

MAIN-0013697045.

    *
    * PERFORM PARA-0013697045-INIT THRU PARA-0013697045-INIT-EXIT
    * PERFORM PARA-0013697045 THRU PARA-0013697045-EXIT
    * GO BACK.

PARA-0013697045.
    MOVE 'N' TO FUNC-0013697045-ESC-FLAG

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

PARA-0013697045-EXIT
EXIT.

External Action Block with High Performance View Passing

*
     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
    * GO BACK.

PARA-0013631509.
     MOVE 'N' TO FUNC-0013631509-ESC-FLAG

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

PARA-0013631509-EXIT.
EXIT.