Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Data Division

HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003

5-96

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 run 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.

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.