DECLARE
	    ((DIB$B_DEVCLASS, DIB$B_DEVTYPE, DIB$B_SECTORS,
	    DIB$B_TRACKS) FIXED BIN(7),
	    (DIB$C_LENGTH, DIB$K_LENGTH,
	    DIB$L_DEVCHAR, DIB$L_DEVDEPEND, DIB$L_MAXBLOCK,
	    DIB$L_OPCNT, DIB$L_OWNUIC, DIB$L_PID, DIB$T_DEVNAME) FIXED BIN(31),
	    (DIB$W_CYLINDERS, DIB$W_DEVBUFSIZ, DIB$W_DEVNAMOFF,
	    DIB$W_ERRCNT, DIB$W_RECSIZ, DIB$W_UNIT, DIB$W_VOLNAMOFF,
	    DIB$W_VPROT) FIXED BIN(15)) GLOBALREF VALUE;