Documentation Update: Handling Console Messages when Running an Application under ETSO. Using the DIVERT command.
Messages normally seen on the master console may not be seen when an application runs under Advantage CA-Roscoe Interactive ETSO Environment. An application may appear as if it is hung, when it is really waiting for a tape mount or an operator's response from a message that an operator cannot see.
To avoid this problem, the user should divert WTP's to the master console using the Advantage CA-Roscoe DIVERT command. The following RPF can be used as a sample RPF to divert WTP and to initiate an application.
<<SARROS>>
: THIS RPF WILL DESTROY THE AWS - SAVE THE AWS IF REQUIRED
PUSH
SET ATTACH NOPAUSE
SET BOUNDS AWS 1 3
Q DIVERT AWS
FIND /WTP/
READ AWS * L1 10 12
DIVERT WTP CONSOLE
TRAP ON
+CALL SARROS /+A1+/
TRAP OFF
IF INDEX(L1 '.') EQ 0
+DIVERT WTP +L1+
ELSE
+DIVERT WTP MEM +L1+
ENDIF
IF (TC EQ 0)
RESPONSE 'SARROS ENDED, RC IS '|RC
ELSE
RESPONSE 'SARROS ENDED, RC IS '|RC|', TC IS '|TC
WRITE AWS B LASTERR
A
ENDIF
POP
RETURN