iTS 1.0+)

ManualsBrandsHP ManualsServerHP NonStop G-Series

321

322

323

324

325

326

327

328

329

330

Diagnostic Screens

Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001

B-3

Modifying Diagnostic Messages

You can modify the source listing of the standard DIAGNOSTIC^MESSAGE

procedures for foreign language versions. An example of this source listing is shown in

Example B-2

Example B-1. DIAG^FORMAT Parameter for Diagnostic Message Generation

STRUCT DIAG^FORMAT^DEF( * );

BEGIN ! - ALL STRING ARRAYS ARE BLANK PADDED.

STRING CLASS; ! CLASS 0 = IBM3270, 1 = T16-6510,

! 2 = T16-6520.

STRING SUBCLASS; ! SUBCLASS FOR IBM-3270 (SCREEN SIZE).

! 0 = 24 X 80 (NOT IBM^3270),

! 1 = 12 X 40,

! 2 = 24 X 80,

! 3 = 24 X 80 - ALT 32 X 80,

! 4 = 24 X 80 - ALT 43 X 80,

! 4 = 24 X 80 - ALT 12 X 80,

INT ROW; ! ROW OF SCREEN FORMAT [1:NROWS].

! SEE DIAG^ROW^??? BELOW.

INT ERRTYPE; ! ERROR TYPE [1:4].

! SEE DIAG^ERRTYPE^??? BELOW.

STRING LOG^TERM^NAME[ 0:14 ]; ! TERMINAL PATHWAY NAME.

STRING TERM^PRINTER[ 0:35 ]; ! PRINTER NAME, EXTERNAL FORM.

INT ERRNUM; ! ERROR NUMBER OF SUSPENSION CAUSE.

INT ERRINFO; ! ADDITIONAL ERROR INFO.

STRING PUNAME[ 0:30 ]; ! PROGRAM-UNIT NAME.

INT PUVERSION; ! VERSION OF PROGRAM UNIT.

INT INSTR^ADDR; ! ADDRESS OF INSTRUCTION AT SUSP.

STRING INSTR^CODE[ 0:19 ]; ! INSTRUCTION AT SUSPENSION.

INT CONTEXT; ! ONE WORD OF USER CONTEXT.

END;

LITERAL ! PATHWAY DEFINED DIAGNOSTIC DISPLAY ROWS.

! 1 2 3 3

DIAG^ROW^NULL = 0, ! 1........0.........0.........0.......8

DIAG^ROW^HEADER = 1, ! HEADER - "PATHWAY(TM) ERROR REPORT ddMONyy,hh:mm"

DIAG^ROW^TERMNAME = 3, ! TERM - "TERM: term-name"

DIAG^ROW^ERRTYPE = 5, ! ERROR - "TERMINAL STOPPED BECAUSE OF ERROR".

DIAG^ROW^DEVNAME = 6, ! DEVNAME- " PRINTER: $LP".

DIAG^ROW^RETRYINFO = 7; ! RETRY - " PRESS F1 TO RETRY, F2 TO ABORT"

LITERAL ! DIAGNOSTIC DISPLAY ERROR TYPES.

DIAG^ERRTYPE^STOP^BY^PROG = 1, ! TERM STOPPED BY PROGRAM.

DIAG^ERRTYPE^STOP^BY^OP = 2, ! TERM STOPPED BY OPERATOR.

DIAG^ERRTYPE^ABRT^BY^OP = 3, ! TERM ABORTED BY OPERATOR.

DIAG^ERRTYPE^SUSP^BY^ERR = 4, ! TERM SUSPENDED BECAUSE OF ERROR.

DIAG^ERRTYPE^SUSP^BY^ERR^NRS = 5, ! TERM SUSPENDED BECAUSE OF ERROR, NOT

! RESUMABLE.

DIAG^ERRTYPE^SUSP^BY^OP = 6, ! TERM SUSPENDED BY OPERATOR.

DIAG^ERRTYPE^NOT^READY = 7, ! PRINTER NOT READY.

DIAG^ERRTYPE^BUSY = 8; ! PRINTER BUSY.