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.
call x"91" using result function-code parameter
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. |
function-code | Value 16 |
parameter | The number of parameters. |
result | Set to zero if the call was successful, nonzero otherwise. |
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.