01 ID-PARM-2.
05 FILLER PIC X(08)
05 PLA-RUN-SYSTEM PIC X(03).
05 PLA-RUN-PROGRAM PIC X(08).
05 PLA-SUB-SYSTEM PIC X(03).
05 PLA-SUB-PROGRAM PIC X(08).
05 PLA-SUB-TYPE PIC X(01).
05 PLA-SET-PLAN PIC X(08).
05 PLA-DB2-PLAN-NAME PIC X(08).
05 FILLER PIC X(16)
The sample plan name exit programs contain 88-level names with appropriate values for fields containing CA Ideal's internal codes.
Type of exit invoked for this command. A 3 indicates that a plan exit is invoked.
Reserved.
CA Ideal Release level (for example 1400 for Version 14.0).
One- to three-character CA Ideal user short ID defined for the user who is executing the command.
Name of the CA Ideal user who is executing the command.
In CICS- VTAM LU name. If the terminal is VTAM, the system ID and terminal ID of the Terminal Owning Region (TOR). If the terminal is MRO but not VTAM, low values under any other circumstances.
System of the main program (named in the RUN command).
Name of the main program (named in the RUN command).
System of the current subprogram.
Name of the current subprogram.
An indicator of the subprogram type:
Value of the most recent SET $PLAN statement. It is set initially to the value of the SET RUN PLAN command or to the default plan name established at installation. (This is the plan that supports CA Ideal's development environment.)
Value returned to CA Ideal. CA Ideal passes this value to DB2 as the actual plan name. If SPACES or LOW-VALUES is returned to CA Ideal, the installation default plan is selected. The exit is free to return any value in the PLA‑DB2‑PLAN-NAME field. However, invalid plan names can result in runtime errors.
Note: Non‑ideal subprograms can use a plan name with up to eight characters. CA Ideal application plans are a maximum of seven characters long.
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|