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

Data Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
5-94
LOGICAL-TERMINAL-NAME Special Register
LOGICAL-TERMINAL-NAME Special Register
The LOGICAL-TERMINAL-NAME special register contains the name of the terminal
executing the program unit. The name of the terminal is defined through PATHCOM in
the ADD TERM command. 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:
NEW-CURSOR Special Register
The NEW-CURSOR special register controls placement of the cursor in the next accept
operation. A single copy of this register is global to the program units.
If the register value is not a valid screen position when an accept operation begins, the
cursor is positioned to the first field of the ACCEPT statement. At the end of any accept
operation, the register is set to zero; this causes the default position for the next accept
operation to be the first field of that ACCEPT statement.
The register has the following implicit declaration:
OLD-CURSOR Special Register
The OLD-CURSOR special register indicates the row and column occupied by the
cursor at the last accept operation. A single copy of this register is global to the program
units. The register is set by each ACCEPT statement executed by a program unit; the
program unit can subsequently access the register.
The register has the following implicit declaration:
PW-INPUT-FIELDS-MISSING Special Register
The PW-INPUT-FIELDS-MISSING special register indicates whether the TCP found a
field to be absent as the field was mapped through the Message Section on input. You
would use this register to determine when special processing is needed to handle absent
field situations.
You might encounter absent fields when processing messages of delimited format or
messages that contain conditionally present fields. The TCP considers a field to be
absent when:
01 LOGICAL-TERMINAL-NAME PIC X(16).
01 NEW-CURSOR.
02 NEW-CURSOR-ROW PIC 9999 COMP.
02 NEW-CURSOR-COL PIC 9999 COMP.
01 OLD-CURSOR.
02 OLD-CURSOR-ROW PIC 9999 COMP.
02 OLD-CURSOR-COL PIC 9999 COMP.