CBL_RUNTIME_ERROR

Forces the application to terminate with a run-time error condition.

Syntax:

CALL “CBL_RUNTIME_ERROR”  using by value error-flags 
                                by reference error-message

Parameters:

  Using call prototype (see Key) Picture
error-flags cblt-x4-comp5 pic x(4) comp-5.
error-message pic x(n) pic x(n).

On Entry:

error-flags Must be zero.
error-message An optional null-terminated error message to be outputted after a run-time message. To produce no additional message, pass the reserved word OMITTED instead.

On Exit:

None.

Comments:

The call will terminate the application with a run-time error COBRT150 Program abandoned at user request, with the error-message text appended, if supplied.

Note: The error message is processed using the ASCII character set; if your program is running under CHARSET"ECBDIC", do not attempt to query it within your code.