Returns information for a named program, or a program in the current call stack.
Restriction: Functions 8 and 10 of this routine (return number of arguments) are supported for native COBOL only.
Syntax:
call "CBL_GET_PROGRAM_INFO" using by value function
by reference param-block
by reference return-buf
by reference return-buf-len
returning status-code
Parameters
-
function
- Call prototype (see
Key): cblt-x4-comp5
- Picture: pic x(4) comp-5.
-
param-block
- Group predefined as
cblt-prog-info-params containing
01 cblt-prog-info-params typedef.
03 cblte-gpi-size cblt-x4-comp5. *> pic x(4) comp-5.
03 cblte-gpi-flags cblt-x4-comp5. *> pic x(4) comp-5.2.
03 cblte-gpi-handle cblt-pointer. *> usage pointer.
03 cblte-gpi-prog-id cblt-pointer. *> usage pointer.
03 cblte-gpi-attrs cblt-x4-comp5. *> pic x(4) comp-5.
-
return-buf
- Call prototype (see
Key): cblt-prog-info-arg-info
- Picture: pic x(n).
-
return-buf-len
- Call prototype (see
Key): cblt-x4-comp5
- Picture: pic x(4) comp-5.
-
status-code
- See
Library Routines - Key.
On Entry:
-
function
- Specifies the function to be performed: