Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Diagnostic Screens
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
B-6
ELSE
IF DIAG^FORMAT.ROW = DIAG^ROW^DEVNAME AND
( DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^NOT^READY OR
DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^BUSY ) THEN
BEGIN
IF DIAG^FORMAT.TERM^PRINTER <> " " THEN
BEGIN
MESSAGE ':=' " PRINTER: " -> @S;
S ':=' DIAG^FORMAT.TERM^PRINTER FOR 36 -> S32;
! Compiler required INT(32) to hold address here. !
@S := $INT ( S32 );
RSCAN S[-1] WHILE " " -> @S;
MSGLEN:= @S[1] '-' @MESSAGE;
END;
END
ELSE
IF DIAG^FORMAT.ROW = DIAG^ROW^RETRYINFO AND
( DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^NOT^READY OR
DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^BUSY ) THEN
BEGIN
MESSAGE ':=' " PRESS " -> @S;
IF DIAG^FORMAT.CLASS = 0 THEN
S ':=' "PA1" -> @S
ELSE
S ':=' "F1" -> @S;
S ':=' " TO RETRY, " -> @S;
IF DIAG^FORMAT.CLASS = 0 THEN
S ':=' "PA2" -> @S
ELSE
S ':=' "F2" -> @S;
S ':=' " TO ABORT" -> @S;
MSGLEN:= @S '-' @MESSAGE;
END;
END;!DIAGNOSTIC^MESSAGE!
Example B-2. DIAGNOSTIC^MESSAGE Source Listing (page 3 of 3)