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-95
PW-QUEUE-FKEY-UMP Special Register
•
The message specifies that field delimiters are enabled and optionally that message
delimiters are enabled. The TCP finds:
°
Two consecutive delimiters: two field delimiters or a field delimiter followed
by a message delimiter
°
A field delimiter as the last character of the message and the associated field as
the last field of the message
•
The message specifies that a field is conditionally present and the condition is not
met so that the TCP finds the field to be absent.
This register is relevant with any statement that uses the Message Section on inbound
data, such as: RECEIVE UNSOLICITED MESSAGE, SEND MESSAGE,
TRANSFORM. The register contains a YES if one or more fields are absent; otherwise,
the register contains a NO. The register is initialized to NO at program startup time.
Inbound messages containing absent fields can cause the register's value to change. You
can test the register at any place in the program. Testing is usually most meaningful just
after an operation that could cause the register to change.
This is a read-only register. 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 register has the following implicit declaration:
PW-QUEUE-FKEY-UMP Special Register
The PW-QUEUE-FKEY-UMP special register controls the behavior of the
ACCEPT...ESCAPE ON UNSOLICITED MESSAGE statement. This register can be
altered freely throughout the SCREEN COBOL application and is global to all program
units.
The register has the following implicit declaration:
The value of this register is either YES or NO. The default value for the register is YES.
If the PW-QUEUE-FKEY-UMP special register equals YES and an unsolicited message
arrives during an ACCEPT...ESCAPE ON UNSOLICITED MESSAGE statement, the
keyboard remains unlocked during execution of the unsolicited message logic. If the
operator presses a function key during this time, the function key value is internally
queued in the 6530 terminal. The function key value is read upon execution of the next
ACCEPT statement.
If the PW-QUEUE-FKEY-UMP special register equals NO and an unsolicited message
arrives during an ACCEPT...ESCAPE ON UNSOLICITED MESSAGE statement, the
TCP issues a command to the terminal to lock the keyboard before executing the
01 PW-INPUT-FIELDS-MISSING PIC AAA.
01 PW-QUEUE-FKEY-UMP PIC AAA.