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

Advisory Messages
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
A-7
Modifying or Replacing the Advisory Message
Routine
LAST^ERR= 19; ! LAST ERR # IN TABLE
INT MSGOFFSET = 'P' := [
0, OFF^01, OFF^02, OFF^03, OFF^04,
OFF^05, OFF^06, OFF^07, OFF^08, OFF^09,
OFF^10, OFF^11, OFF^12, OFF^13, OFF^14,
OFF^15, OFF^16, OFF^17, OFF^18, OFF^19, OFF^LAST ];
IF ERRNUM <= LAST^ERR THEN
BEGIN
OFFSET:= MSGOFFSET[ ERRNUM ];
LEN := MSGOFFSET[ ERRNUM+1 ] - OFFSET;
END
ELSE
LEN:= 0;
IF LEN THEN
BUF ':=' MSGTEXT[ OFFSET ] FOR LEN
ELSE
BEGIN
BUF ':=' "-ERROR ######-";
CALL NUMOUT( BUF[7], ERRNUM, 10, 6 );
LEN:= 14
END;
MESSLEN:= LEN;
END; !ADVISORY^MESSAGE!
Example A-1. ADVISORY^MESSAGE Source Listing (page 2 of 2)