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

Procedure Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
6-88
SET Statement
SET Statement
The SET statement stores the position of the indicated screen field into the special
register NEW-CURSOR. This value, which could be further modified by the program,
is used at the beginning of the next ACCEPT statement to establish the position of the
cursor on the screen. This value also can be examined by the program for some specific
purpose.
The SET statement cannot be used by programs communicating with intelligent devices.
screen-identifier
specifies the screen fields whose positions are to be stored; maximum of 127 per SET
statement. Each screen-identifier can name an entire screen, a screen group, or
Table 6-6. TERMINATION-SUBSTATUS Values for SEND MESSAGE Statement
TERMINATION-
SUBSTATUS Meaning
With UNSOLICITED
MESSAGE Clause With TIMEOUT Clause
187 No data Front-end process in
quiescent state.
The SCREEN COBOL
program unit processes
the message, can resume
the session, or take other
action depending on the
message.
Front-end process in
quiescent state.
The SCREEN COBOL
program unit performs
TIMEOUT processing
and resumes the session.
188 Data lost Data or context lost.
After processing the
unsolicited message, the
SCREEN COBOL
program unit must
terminate the session with
the front-end process and
then try to start a new one.
Data or context lost.
The SCREEN COBOL
program unit must
terminate the session with
the front-end process and
then try to start a new one.
189 Data
forthcoming
Operation in progress.
Front-end process cannot
be put into quiescent state.
Front-end process cannot
be put into quiescent state.
Note. On completion of a SEND MESSAGE statement for an ESCAPE ON UNSOLICITED
MESSAGE or a TIMEOUT, the values of 187, 188, or 189 appear in TERMINATION-
SUBSTATUS with one exception: for TIMEOUT, the "no data" code appears in
TERMINATION-SUBSTATUS as 40, for compatibility purposes.
SET NEW-CURSOR AT { screen-identifier } ,...
[ DEPENDING [ ON ] identifier ]
[ SHADOWED ]