COBOL Manual for TNS/E Programs (H06.03+)

Program Execution
HP COBOL Manual for TNS/E Programs—520347-003
12-12
PARAM Command
The EXECUTION-LOG parameter provides a means of redirecting such
unintentional input-output activity from the home terminal to another device, called
the execution log file.
The EXECUTION-LOG parameter can also redirect unintentional input-output
activity from #IN and #OUT to the execution log file.
In the absence of an EXECUTION-LOG parameter, the execution log file is the
home terminal.
If the EXECUTION-LOG parameter specifies asterisk (*), such output is discarded.
In this case, whenever the program attempts to engage the operator in dialog,
such as for:
°
Tape mount
°
Device not ready
°
No write ring
°
Printer is out of paper
The run-time routines return I-O status code “30” to the program. The special
register GUARDIAN-ERR then contains a code indicating what action is expected.
If a program has its EXECUTION-LOG parameter set to asterisk (*), and the
program attempts to execute an ACCEPT statement that defaults to the home
terminal, the run unit terminates abnormally.
If the EXECUTION-LOG parameter specifies a file name, the processing of the
designated file depends on the device-type assigned to the file:
The file is opened the first time the run unit attempts to write a message. This
means that it will not be opened at all for most jobs. If the open operation fails, no
messages can be written anywhere and run unit execution terminates abnormally.
Once opened, the file remains open for the duration of the run unit.
If any error occurs during a write or read operation on the execution log file, no
messages can report this problem and the run unit terminates abnormally.
If the access mode is read/write, the run-time routines use the WRITEREAD
system routine to send messages requiring a response and WRITE for messages
not requiring a response.
Device Type Exclusion Access
0 (process) Exclusive Read/write
1 (operator console) Shared Write
3 (disk) Exclusive Write
4 (magnetic tape) Exclusive Write
5 (line printer) Exclusive Write
6 (terminal) Shared Read/write