COBOL Manual for TNS and TNS/R Programs

Executing and Debugging HP COBOL Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
25-6
Providing for an Unavailable Printer
This command specifies the default input-output device \AKRON.$SLB.MAJ.ERRMSG:
PARAM EXECUTION-LOG \AKRON.$SLB.MAJ.ERRMSG
This command specifies the DEFINE name =ERRORS as the default input-output
device. You must add the DEFINE name =ERRORS before you execute the program.
PARAM EXECUTION-LOG =ERRORS
ADD DEFINE =ERRORS, FILE \AKRON.$SLB.MAJ.ERRMSG
This command causes all run-time messages to be discarded:
PARAM EXECUTION-LOG *
Providing for an Unavailable Printer
If you want the operating environment to return control to your program if a certain
printer is unavailable or out of paper, you must execute a PARAM PRINTER-
CONTROL command before executing your program.
This command specifies that control is to return to the program if the printer assigned
to THE-PRINTER is unavailable or out of paper:
PARAM PRINTER-CONTROL THE-PRINTER
Turning On External Switches
If your program declares external switches in the SPECIAL-NAMES paragraph and
you want any of them to be in the ON position when your program begins to execute,
you must turn them on with PARAM SWITCH-nn commands before executing your
program. You can turn on several switches with a single PARAM SWITCH-nn
command or use multiple PARAM SWITCH-nn commands.
This command turns on SWITCH-1, SWITCH-4, and SWITCH-15:
PARAM SWITCH-1 ON, SWITCH-4 ON, SWITCH-15 ON
This series of commands is equivalent to the previous command:
PARAM SWITCH-1 ON
PARAM SWITCH-4 ON
PARAM SWITCH-15 ON
Requesting a Debugger Instead of ABEND
If you want your program to call a debugger, rather than ABEND, after printing any fatal
error messages, you must execute a PARAM INSPECT ON command before
executing your program. The PARAM INSPECT ON command is:
PARAM INSPECT ON