X"91" function 16

Note: This routine has been deprecated in Net Express 4.0 onwards: it is provided for backward compatibility only. You should instead use CBL_GET_PROGRAM_INFO using by value 8.

Shows how many of the parameters in the call statement of the calling program have been transferred to the called subprogram.

Syntax:
call x"91" using result
                 function-code
                 parameter
Parameters:
Using call prototype (see Library Routines - Key) Picture (32-bit systems)
result cblt-x1-compx pic x comp-x.
function-code cblt-x1-compx pic x comp-x.
parameter cblt-x1-compx pic x comp-x.
On Entry:
function-code Value 16
On Exit:
parameter The number of parameters.
result Set to zero if the call was successful, nonzero otherwise.
Comments:

This function is used in the called program; for the function to work in generated code, the program must be compiled with the PARAMCOUNTCHECK directive.

This function can only be used if the program is called from a COBOL program.

See Also: