iTS 1.0+)

Data Division

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

5-101

TERMINAL-FILENAME Special Register

The TERMINAL-FILENAME special register contains the internal form of the file

name for the terminal executing the program unit. The name of the terminal is defined

through PATHCOM in the SET TERM FILE parameter.

A single copy of this register is global to the program units. The register is initialized

when the terminal is first started.

The register has the following implicit declaration:

TERMINAL-PRINTER Special Register

The TERMINAL-PRINTER special register contains the external form of the file name

for the printer that is associated with the terminal executing the program unit. If no

associated printer is defined in PATHCOM, this register contains blanks. A single copy

of this register is global to the program units. The register is initialized when the

terminal is first started.

The register has the following implicit declaration:

TERMINATION-STATUS Special Register

The TERMINATION-STATUS special register communicates the completion status of

the following statements: ACCEPT, BEGIN-TRANSACTION, RECEIVE

UNSOLICITED MESSAGE, SEND, or SEND MESSAGE. A copy of this register is

available to each program unit. The register is initialized to zero each time the program

unit is called.

This special register also communicates an error number when the ON ERROR branch

of one of the following statements is taken: CALL, RECEIVE UNSOLICITED

MESSAGE, REPLY TO UNSOLICITED MESSAGE, SEND, SEND MESSAGE, or

TRANSFORM.

The register has the following implicit declaration:

01 TERMINAL-FILENAME PIC X(24).

Note. Because the TERMINAL-FILENAME special register is in internal form, it should not be

displayed on a terminal screen without first being converted to external form (which should be

done in a server). Displaying TERMINAL-FILENAME directly on a terminal screen might

cause unpredictable results and cause the terminal to return an I/O error.

01 TERMINAL-PRINTER PIC X(36).

01 TERMINATION-STATUS PIC 9999 COMP.