! ----- FABDEF.INC -----

	! ----- VAX BASIC RMS FAB DEFINITION -----

	! ----- (EDITED FROM SYS$LIBRARY:FORSYSDEF.TLB/EXTRACT=$FABDEF) -----
	!
	! ----- Last Change 05/01/89 by Brian Lomasky -----
	!
	! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA  02111 -----
	! ----- (617) 482-2706, x3259 -----
	!
	! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or -----
	! ----- explicitly implies this program is usable in any way. -----
	! ----- This program is released to the public domain in an -----
	! ----- "AS-IS" condition. -----
	!
	! ----- Restrictions: -----
	! -----   1) Requires VAX BASIC V2.4 or later. -----
	!
	DECLARE BYTE CONSTANT FAB$C_BID = X"00000003"B	!  code for fab
	DECLARE BYTE CONSTANT FAB$C_BLN = X"00000050"B	!  length of fab

	RECORD FABDEF
		BYTE	FAB$B_BID		! block id
		BYTE	FAB$B_BLN		! block len
		WORD	FAB$W_IFI		! internal file index
		LONG	FAB$L_FOP		! file options
		LONG	FAB$L_STS		! status
		LONG	FAB$L_STV		! status value
		LONG	FAB$L_ALQ		! allocation quantity
		WORD	FAB$W_DEQ		! default allocation quantity
		BYTE	FAB$B_FAC		! file access
		BYTE	FAB$B_SHR		! file sharing
		LONG	FAB$L_CTX		! user context
		BYTE	FAB$B_RTV		! retrieval window size
		BYTE	FAB$B_ORG		! file organization
		BYTE	FAB$B_RAT		! record format
		BYTE	FAB$B_RFM		! record format
		BYTE	FAB$B_JOURNAL		! journaling options
		BYTE	FAB$B_RU_FACILITY	! recoverable facility id number
		WORD	FABDEF$$_FILL_7		! (spare)
		LONG	FAB$L_XAB		! xab address
		LONG	FAB$L_NAM		! nam block address
		LONG	FAB$L_FNA		! file name string address
		LONG	FAB$L_DNA		! default file name string addr
		BYTE	FAB$B_FNS		! file name string size
		BYTE	FAB$B_DNS		! default name string size
		WORD	FAB$W_MRS		! maximum record size
		LONG	FAB$L_MRN		! maximum record number
		WORD	FAB$W_BLS		! blocksize for tape
		BYTE	FAB$B_BKS		! bucket size
		BYTE	FAB$B_FSZ		! fixed header size
		LONG	FAB$L_DEV		! device characteristics
		LONG	FAB$L_SDC		! spooling device characteristic
		WORD	FAB$W_GBC		! Global buffer count
		BYTE	FAB$B_ACMODES		! agent access modes
		BYTE	FAB$B_RCF		! (only for use by RMS Recovery)
		LONG	FABDEF$$_FILL_9		! (spare)
	END RECORD FABDEF