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.