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-5
MSGLEN:= 0;
IF DIAG^FORMAT.ROW = DIAG^ROW^HEADER THEN
BEGIN
MESSAGE ':=' "PATHWAY ERROR REPORT: " -> @S;
CALL TIMESTAMP( TS );
@S:= @S[ ASCII^TIMESTAMP( TS, S ) ];
MSGLEN:= @S '-' @MESSAGE;
END
ELSE
IF DIAG^FORMAT.ROW = DIAG^ROW^TERMNAME THEN
BEGIN
MESSAGE ':=' "TERMINAL: " -> @S;
S ':=' DIAG^FORMAT.LOG^TERM^NAME FOR 15 -> S32;
! Compiler required INT(32) to hold address here. !
@S := $INT ( S32 );
RSCAN S[-1] WHILE " " -> @S;
MSGLEN:= @S[ 1 ] '-' @MESSAGE;
END
ELSE
IF DIAG^FORMAT.ROW = DIAG^ROW^ERRTYPE THEN
BEGIN ! 1 2 3 3
!1........0.........0.........0.......8
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^STOP^BY^PROG THEN
MESSAGE ':=' "TERMINAL STOPPED BY PROGRAM" -> @S
ELSE
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^STOP^BY^OP OR
DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^ABRT^BY^OP THEN
MESSAGE ':=' "TERMINAL STOPPED BY SYSTEM OPERATOR" -> @S
ELSE
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^SUSP^BY^ERR THEN
MESSAGE ':=' "TERMINAL SUSPENDED FOR SYSTEM ERROR" -> @S
ELSE
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^SUSP^BY^ERR^NRS THEN
MESSAGE ':=' "TERMINAL STOPPED FOR SYSTEM ERROR" -> @S
ELSE
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^SUSP^BY^OP THEN
MESSAGE ':=' "TERMINAL SUSPENDED BY SYSTEM OPERATOR" -> @S
ELSE
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^NOT^READY THEN
MESSAGE ':=' "PRINTER REQUIRES ATTENTION" -> @S
ELSE
IF DIAG^FORMAT.ERRTYPE = DIAG^ERRTYPE^BUSY THEN
MESSAGE ':=' "PRINTER BUSY" -> @S;
MSGLEN:= @S '-' @MESSAGE;
END
Example B-2. DIAGNOSTIC^MESSAGE Source Listing (page 2 of 3)