TACL Programming Guide

Monitoring Job Status: ENQUIRY
Initiating and Communicating With Processes
5–36 107365 Tandem Computers Incorporated
To run this routine, load the associated file and enter:
enquiry TACL-process-name
Figure 5-14. Retrieving TACL Output (Page 1 of 2)
?SECTION enquiry ROUTINE
#FRAME
[#PUSH
last_line last_char max_chars
status r_error r_rec prompt
process_name
next last record length
]
#SET max_chars 80 == Truncate display at this position
#SET last_line 21
#SET last_char [#COMPUTE [max_chars] - 1]
[#DEF enquiry_message
STRUCT
BEGIN
INT message_code VALUE -22;
END;
]
[#DEF enquiry_reply
STRUCT
BEGIN
INT next;
STRUCT line (0:[last_line]);
BEGIN
INT length;
CHAR text (0:[last_char]);
END;
END;
]
== Get the name of the TACL process
SINK [#ARGUMENT /TEXT process_name/ PROCESSNAME]
==
== Open the TACL process.
#SET status &
[#REQUESTER/WAIT 5000/READ [process_name] r_error
r_rec prompt]
== If unsuccessful process open, display an error and exit.
[#IF [status] <> 0 |THEN|
#OUTPUT Error opening the process: [status]
#UNFRAME
#RETURN
]