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

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-34
DEVICEINFO Statement
giveup.
EXIT PROGRAM WITH ERROR.
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. For a description of this
format, see the Guardian Programmer's Guide .
This statement could be used as follows:
MOVE TERMINAL-FILENAME TO file-name OF deviceinfo-rec.
DEVICEINFO USING deviceinfo-rec.
DIALOG-ABORT
The DIALOG-ABORT statement abends a dialog initiated by the previous DIALOG-
BEGIN statement. A call to DIALOG-BEGIN must be matched by a call to DIALOG-
END or DIALOG-ABORT at the end of the dialog. If the server process has opened
$RECEIVE for system-message handling and is using the Common Run-Time
Environment (CRE), abending the dialog will cause the server to receive a system
message -121, PATHSEND DIALOG ABORT. A DIALOG-ABORT statement should be
made only when the SCOBOL TERM is under an active dialog, that is, after a
successful call to DIALOG-BEGIN. If a DIALOG-ABORT statement is issued without
the term under active dialog, irrespective of whether ON ERROR clause is specified or
not, TCP abends the terminal after reporting an error to PATHMON .
DEVICEINFO USING deviceinfo-rec
DIALOG-ABORT
[ON ERROR imperative-statement ]