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-33
DEVICEINFO Statement
DEVICEINFO Statement
The DEVICEINFO statement obtains information about the intelligent device to which
the SCREEN COBOL program is currently sending messages. This statement performs
the same function as the DEVICEINFO procedure.
deviceinfo-rec
is an 01 group defined as follows:
01 deviceinfo-rec.
02 file-name PIC X(16).
02 device-type PIC 9(4) comp.
02 device-subtype PIC 9(4) comp.
02 physical-record-length PIC 9(4) comp.
The SCREEN COBOL compiler does not check the data types in the
deviceinfo-rec group item. It assumes that you have defined it correctly.
DEVICEINFO returns the file name in internal network format. Refer to the Guardian
Programmer's Guide for a description of this format.
This statement could be used as follows:
MOVE TERMINAL-FILENAME TO file-name OF deviceinfo-rec.
DEVICEINFO USING deviceinfo-rec.
DISPLAY BASE Statement
The DISPLAY BASE statement formats the specified screen from the screen definition
in the Screen Section. The statement selects the screen description for subsequent
operations but does not display the screen.
The DISPLAY BASE DYNAMIC statement performs the same function as the two-
statement sequence DISPLAY BASE and DISPLAY. (DISPLAY follows DISPLAY
BASE.)
The DISPLAY BASE statement operates differently for terminals in block mode from
terminals in conversational mode. It cannot be used for communication with intelligent
devices.
For terminals in block mode, DISPLAY BASE formats data for screen literals, VALUE
clauses, null characters, and fill characters, and establishes attributes for screen fields.
DISPLAY BASE also clears the current screen display. DISPLAY BASE does not
cause current values from Working-Storage items to appear in output fields of the
screen; DISPLAY formats these values.
For terminals in both block and conversational mode, DISPLAY BASE establishes the
current screen, which serves as the foundation for all other screen operations.
Therefore, this statement must execute before other display operations execute. A
DEVICEINFO USING deviceinfo-rec