.MACRO	$FH2DEF,$GBL	; Header area

 	$DEFINI	FH2,$GBL


 $DEF	FH2$B_IDOFFSET	.BLKB
 $DEF	FH2$B_MPOFFSET	.BLKB
 $DEF	FH2$B_ACOFFSET	.BLKB
 $DEF	FH2$B_RSOFFSET	.BLKB
 $DEF	FH2$W_SEG_NUM	.BLKW
 $DEF	FH2$W_STRUCLEV
 $DEF	FH2$B_STRUCVER	.BLKB
 $EQU	FH2$C_LEVEL1	257
 $EQU	FH2$C_LEVEL2	512
 $DEF	FH2$B_STRUCLEV	.BLKB
 $EQU	FH2$S_FID	6
 $DEF	FH2$W_FID
 $DEF	FH2$W_FID_NUM	.BLKW
 $DEF	FH2$W_FID_SEQ	.BLKW
 $DEF	FH2$W_FID_RVN
 $DEF	FH2$B_FID_RVN	.BLKB
 $DEF	FH2$B_FID_NMX	.BLKB
 $EQU	FH2$S_EXT_FID	6
 $DEF	FH2$W_EXT_FID
 $DEF	FH2$W_EX_FIDNUM	.BLKW
 $DEF	FH2$W_EX_FIDSEQ	.BLKW
 $DEF	FH2$W_EX_FIDRVN
 $DEF	FH2$B_EX_FIDRVN	.BLKB
 $DEF	FH2$B_EX_FIDNMX	.BLKB
 $EQU	FH2$S_RECATTR	32
 $DEF	FH2$W_RECATTR	.BLKW	16
 $EQU	FH2$V_NOBACKUP	1
 $EQU	FH2$M_NOBACKUP	2
 $EQU	FH2$V_WRITEBACK	2
 $EQU	FH2$M_WRITEBACK	4
 $EQU	FH2$V_READCHECK	3
 $EQU	FH2$M_READCHECK	8
 $EQU	FH2$V_WRITCHECK	4
 $EQU	FH2$M_WRITCHECK	16
 $EQU	FH2$V_CONTIGB	5
 $EQU	FH2$M_CONTIGB	32
 $EQU	FH2$V_LOCKED	6
 $EQU	FH2$M_LOCKED	64
 $EQU	FH2$V_CONTIG	7
 $EQU	FH2$M_CONTIG	128
 $EQU	FH2$V_ACL	11
 $EQU	FH2$M_ACL	<^X800>
 $EQU	FH2$V_SPOOL	12
 $EQU	FH2$M_SPOOL	<^X1000>
 $EQU	FH2$V_DIRECTORY	13
 $EQU	FH2$M_DIRECTORY	<^X2000>
 $EQU	FH2$V_BADBLOCK	14
 $EQU	FH2$M_BADBLOCK	<^X4000>
 $EQU	FH2$V_MARKDEL	15
 $EQU	FH2$M_MARKDEL	<^X8000>
 $EQU	FH2$V_NOCHARGE	16
 $EQU	FH2$M_NOCHARGE	<^X10000>
 $EQU	FH2$V_ERASE	17
 $EQU	FH2$M_ERASE	<^X20000>
 $DEF	FH2$L_FILECHAR	.BLKL
 $DEF	FH2$W_RECPROT	.BLKW
 $DEF	FH2$B_MAP_INUSE	.BLKB
 $DEF	FH2$B_ACC_MODE	.BLKB
 $DEF	FH2$L_FILEOWNER
 $DEF	FH2$W_UICMEMBER	.BLKW
 $DEF	FH2$W_UICGROUP	.BLKW
 $DEF	FH2$W_FILEPROT	.BLKW
 $EQU	FH2$S_BACKLINK	6
 $DEF	FH2$W_BACKLINK
 $DEF	FH2$W_BK_FIDNUM	.BLKW
 $DEF	FH2$W_BK_FIDSEQ	.BLKW
 $DEF	FH2$W_BK_FIDRVN
 $DEF	FH2$B_BK_FIDRVN	.BLKB
 $DEF	FH2$B_BK_FIDNMX	.BLKB
 $EQU	FH2$V_AIJNL	0
 $EQU	FH2$M_AIJNL	1
 $EQU	FH2$V_BIJNL	1
 $EQU	FH2$M_BIJNL	2
 $EQU	FH2$V_ATJNL	2
 $EQU	FH2$M_ATJNL	4
 $EQU	FH2$V_RUACCESS	8
 $EQU	FH2$M_RUACCESS	256
 $EQU	FH2$V_NORUJNL	9
 $EQU	FH2$M_NORUJNL	<^X200>
 $DEF	FH2$W_JOURNAL	.BLKW
 			.BLKW	1
 $DEF	FH2$C_LENGTH
 $DEF	FH2$K_LENGTH	.BLKB	<^X1B2>
 $DEF	FH2$W_CHECKSUM	.BLKW

 	$DEFEND	FH2,$GBL,DEF

 	.ENDM	$FH2DEF

 	.MACRO	$FI2DEF,$GBL	; Ident area

 	$DEFINI	FI2,$GBL


 $EQU	FI2$S_FILENAME	20
 $DEF	FI2$T_FILENAME	.BLKB	20
 $DEF	FI2$W_REVISION	.BLKW
 $EQU	FI2$S_CREDATE	8
 $DEF	FI2$Q_CREDATE	.BLKQ
 $EQU	FI2$S_REVDATE	8
 $DEF	FI2$Q_REVDATE	.BLKQ
 $EQU	FI2$S_EXPDATE	8
 $DEF	FI2$Q_EXPDATE	.BLKQ
 $EQU	FI2$S_BAKDATE	8
 $DEF	FI2$Q_BAKDATE	.BLKQ
 $DEF	FI2$C_LENGTH
 $DEF	FI2$K_LENGTH
 $EQU	FI2$S_USERLABEL	80
 $DEF	FI2$T_USERLABEL	.BLKB	80

 	$DEFEND	FI2,$GBL,DEF

 	.ENDM	$FI2DEF

 	.MACRO	$HD2DEF,$GBL	;HDR2 LABEL FORMAT

 	$DEFINI	HD2,$GBL


 $DEF	HD2$L_HD2LID	.BLKL
 $DEF	HD2$B_RECFORMAT	.BLKB
 $EQU	HD2$S_BLOCKLEN	5
 $DEF	HD2$T_BLOCKLEN	.BLKB	5
 $EQU	HD2$S_RECLEN	5
 $DEF	HD2$T_RECLEN	.BLKB	5
 $EQU	HD2$S_RECATR1	20
 $DEF	HD2$T_RECATR1	.BLKB	20
 			.BLKB	1
 $DEF	HD2$B_FORMCNTRL	.BLKB
 $EQU	HD2$S_RECATR2	12
 $DEF	HD2$T_RECATR2	.BLKB	12
 			.BLKB	1
 $DEF	HD2$T_BUFOFF	.BLKB	2
 			.BLKB	20

 	$DEFEND	HD2,$GBL,DEF

 	.ENDM	$HD2DEF

 	.MACRO	$HM2DEF,$GBL	; Home block structure

 	$DEFINI	HM2,$GBL


 $DEF	HM2$L_HOMELBN	.BLKL
 $DEF	HM2$L_ALHOMELBN	.BLKL
 $DEF	HM2$L_ALTIDXLBN	.BLKL
 $DEF	HM2$W_STRUCLEV
 $DEF	HM2$B_STRUCVER	.BLKB
 $EQU	HM2$C_LEVEL1	257
 $EQU	HM2$C_LEVEL2	512
 $DEF	HM2$B_STRUCLEV	.BLKB
 $DEF	HM2$W_CLUSTER	.BLKW
 $DEF	HM2$W_HOMEVBN	.BLKW
 $DEF	HM2$W_ALHOMEVBN	.BLKW
 $DEF	HM2$W_ALTIDXVBN	.BLKW
 $DEF	HM2$W_IBMAPVBN	.BLKW
 $DEF	HM2$L_IBMAPLBN	.BLKL
 $DEF	HM2$L_MAXFILES	.BLKL
 $DEF	HM2$W_IBMAPSIZE	.BLKW
 $DEF	HM2$W_RESFILES	.BLKW
 $DEF	HM2$W_DEVTYPE	.BLKW
 $DEF	HM2$W_RVN	.BLKW
 $DEF	HM2$W_SETCOUNT	.BLKW
 $EQU	HM2$V_READCHECK	0
 $EQU	HM2$M_READCHECK	1
 $EQU	HM2$V_WRITCHECK	1
 $EQU	HM2$M_WRITCHECK	2
 $EQU	HM2$V_ERASE	2
 $EQU	HM2$M_ERASE	4
 $DEF	HM2$W_VOLCHAR	.BLKW
 $DEF	HM2$L_VOLOWNER	.BLKL
 $DEF	HM2$L_SEC_MASK	.BLKL
 $DEF	HM2$W_PROTECT	.BLKW
 $DEF	HM2$W_FILEPROT	.BLKW
 $DEF	HM2$W_RECPROT	.BLKW
 $DEF	HM2$W_CHECKSUM1	.BLKW
 $EQU	HM2$S_CREDATE	8
 $DEF	HM2$Q_CREDATE	.BLKQ
 $DEF	HM2$B_WINDOW	.BLKB
 $DEF	HM2$B_LRU_LIM	.BLKB
 $DEF	HM2$W_EXTEND	.BLKW
 $EQU	HM2$S_RETAINMIN	8
 $DEF	HM2$Q_RETAINMIN	.BLKQ
 $EQU	HM2$S_RETAINMAX	8
 $DEF	HM2$Q_RETAINMAX	.BLKQ
 			.BLKB	368
 $DEF	HM2$L_SERIALNUM	.BLKL
 $EQU	HM2$S_STRUCNAME	12
 $DEF	HM2$T_STRUCNAME	.BLKB	12
 $EQU	HM2$S_VOLNAME	12
 $DEF	HM2$T_VOLNAME	.BLKB	12
 $EQU	HM2$S_OWNERNAME	12
 $DEF	HM2$T_OWNERNAME	.BLKB	12
 $EQU	HM2$S_FORMAT	12
 $DEF	HM2$T_FORMAT	.BLKB	12
 			.BLKB	2
 $DEF	HM2$W_CHECKSUM2	.BLKW

 	$DEFEND	HM2,$GBL,DEF

 	.ENDM	$HM2DEF