Guardian Programmer's Guide

Table Of Contents
Communicating With Devices
Guardian Programmer’s Guide 421922-014
9 - 7
Getting Device Information
STRUCT PATH2; !substructure for path 2
BEGIN
INT FLAGS;
INT CHANNEL;
INT CONTROLLER;
INT UNIT;
INT STATE;
END;
STRUCT PATH3; !substructure for path 3
BEGIN
INT FLAGS;
INT CHANNEL;
INT CONTROLLER;
INT UNIT;
INT STATE;
END;
END;
!Variables for DEVICE_GETINFOBYLDEV_ procedure:
INT ERROR,
LOGICAL^DEVICE, !logical device number
.L^INFO[0:9], !logical device information
L^INFO^MAXLEN, !length of output buffer
L^INFO^LEN, !length in bytes of returned data
.P^INFO[0:23], !primary IOP information
P^INFO^MAXLEN, !length of output buffer
P^INFO^LEN, !length in bytes of returned data
.B^INFO[0:23], !backup IOP information
B^INFO^MAXLEN, !length of output buffer
B^INFO^LEN, !length in bytes of returned data
OPTIONS; !options parameter
!Data structure for returned physical device information
!related to primary IOP:
STRUCT .PHYSICAL^PRIMARY^INFO (PHYSICAL^INFO);
!Data structure for returned physical device information
!related to backup IOP:
STRUCT .PHYSICAL^BACKUP^INFO (PHYSICAL^INFO);
.
.
!Set the maximum lengths of the logical, primary, and backup
!buffers for returned information
L^INFO^MAXLEN := $LEN(LOGICAL^INFO);
P^INFO^MAXLEN := $LEN(PHYSICAL^PRIMARY^INFO);
B^INFO^MAXLEN := $LEN(PHYSICAL^BACKUP^INFO);