iTS 1.0+)

Data Division

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

5-97

PW-TERMINAL- ERROR-OCCURRED

Special Register

The PW-TCP-PROCESS-NAME and PW-TCP-SYSTEM-NAME special registers have

the following implicit declarations; note that the VALUE clauses are not necessary and

are for illustration only.

PW-TERMINAL- ERROR-OCCURRED Special Register

The PW-TERMINAL-ERROR-OCCURRED special register contains an error number

when an irrecoverable terminal I/O error occurs and the SCREEN COBOL program

contains a USE FOR TERMINAL-ERRORS statement.

The register has the following implicit declaration:

PW-UNSOLICITED-MESSAGE-QUEUED Special Register

The PW-UNSOLICITED-MESSAGE-QUEUED special register indicates whether any

unsolicited messages are currently queued for the SCREEN COBOL program.

The SCREEN COBOL program can test the value of this register or move the value to

another field at any time during execution. This register can be used to periodically test

for the presence of an unsolicited message as an alternative to issuing an ACCEPT or

SEND MESSAGE with the ESCAPE clause.

The value of this register is either YES or NO.

The register has the following implicit declaration:

Programs attempting to modify this special register will be flagged at compilation with

the message:

** ERROR 454 ** READ-ONLY SPECIAL REGISTER;

MAY NOT BE ALTERED

The following is an example of how to use this register:

IF PW-UNSOLICITED-MESSAGE-QUEUED EQUALS "YES"

PERFORM process-message

UNTIL PW-UNSOLICITED-MESSAGE-QUEUED EQUALS "NO".

01 PW-TCP-SYSTEM-NAME PIC X(8) VALUE "\STLOUIS".

01 PW-TCP-PROCESS-NAME PIC X(6) VALUE "$SWTCP".

01 PW-TERMINAL-ERROR-OCCURRED PIC 9999 COMP.

01 PW-UNSOLICITED-MESSAGE-QUEUED PIC AAA.