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.

Syntax:

call x"91" using result
                 function-code
                 parameter

Parameters:

  Using call prototype (see Key) Picture
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.