.MACRO $VCBDEF,$GBL $DEFINI VCB,$GBL $EQU VCB$K_MRKLEN 11 $EQU VCB$C_MRKLEN 11 $EQU VCB$M_WRITE_IF <^X1> $EQU VCB$M_WRITE_SM <^X2> $EQU VCB$M_HOMBLKBAD <^X4> $EQU VCB$M_IDXHDRBAD <^X8> $EQU VCB$M_NOALLOC <^X10> $EQU VCB$M_EXTFID <^X20> $EQU VCB$M_GROUP <^X40> $EQU VCB$M_SYSTEM <^X80> $EQU VCB$M_HIGH_SIERRA <^X1> $EQU VCB$M_NOSWITCH <^X2> $EQU VCB$M_DSI <^X4> $EQU VCB$M_XAR <^X8> $EQU VCB$M_UNUSED_1 <^X10> $EQU VCB$M_UNUSED_2 <^X20> $EQU VCB$M_PARTFILE <^X1> $EQU VCB$M_LOGICEOVS <^X2> $EQU VCB$M_WAIMOUVOL <^X4> $EQU VCB$M_WAIREWIND <^X8> $EQU VCB$M_WAIUSRLBL <^X10> $EQU VCB$M_CANCELIO <^X20> $EQU VCB$M_MUSTCLOSE <^X40> $EQU VCB$M_NOWRITE <^X80> $EQU VCB$M_SHADMAST <^X1> $EQU VCB$M_FAILED <^X2> $EQU VCB$M_REBLDNG <^X8> $EQU VCB$M_BLKASTREC <^X10> $EQU VCB$M_MVBEGUN <^X20> $EQU VCB$M_ADDING <^X40> $EQU VCB$M_PACKACKED <^X80> $EQU VCB$K_COMLEN 40 $EQU VCB$C_COMLEN 40 $EQU VCB$S_VCBDEF_COMMON 40 $EQU VCB$M_SUBSYSTEM <^X1> $EQU VCB$K_LENGTH 304 $EQU VCB$C_LENGTH 304 $EQU VCB$S_VCBDEF_DISKS 304 $EQU VCB$M_FILE_ATTRIBUTES <^XF> $EQU VCB$M_FILE_CONTENTS <^XF0> $EQU VCB$C_DEFAULT 0 $EQU VCB$C_WRITETHROUGH 1 $EQU VCB$C_WRITEBEHIND 2 $EQU VCB$M_FLUSH_ON_CLOSE <^XF00> $EQU VCB$C_FLUSH 1 $EQU VCB$C_NOFLUSH 2 $EQU VCB$M_CACHING_OPTIONS_MBZ <^XFFFFF000> $EQU VCB$K_F64_LEN 304 $EQU VCB$C_F64_LEN 304 $EQU VCB$S_VCBDEF_F64 304 $EQU VCB$K_SHAD_LEN 76 $EQU VCB$S_VCBDEF_SHADOW 76 $EQU VCB$S_VCBDEF_CDROM 128 $EQU VCB$S_VCBDEF2 184 $EQU VCB$S_VCBDEF3 32 $EQU VCB$S_VCB 304 $EQU VCB$L_FCBFL 0 $EQU VCB$L_BLOCKFL 0 $EQU VCB$L_MEMQFL 0 $EQU VCB$L_FCBBL 4 $EQU VCB$L_BLOCKBL 4 $EQU VCB$L_MEMQBL 4 $EQU VCB$W_SIZE 8 $EQU VCB$B_TYPE 10 $EQU VCB$S_VCB_UNION 293 $EQU VCB$R_VCB_UNION 11 $EQU VCB$B_STATUS 11 $EQU VCB$V_WRITE_IF 0 $EQU VCB$V_WRITE_SM 1 $EQU VCB$V_HOMBLKBAD 2 $EQU VCB$V_IDXHDRBAD 3 $EQU VCB$V_NOALLOC 4 $EQU VCB$V_EXTFID 5 $EQU VCB$V_GROUP 6 $EQU VCB$V_SYSTEM 7 $EQU VCB$V_HIGH_SIERRA 0 $EQU VCB$V_NOSWITCH 1 $EQU VCB$V_DSI 2 $EQU VCB$V_XAR 3 ; GROUP bitfield mask ; SYSTEM bitfield mask $EQU VCB$V_PARTFILE 0 $EQU VCB$V_LOGICEOVS 1 $EQU VCB$V_WAIMOUVOL 2 $EQU VCB$V_WAIREWIND 3 $EQU VCB$V_WAIUSRLBL 4 $EQU VCB$V_CANCELIO 5 $EQU VCB$V_MUSTCLOSE 6 $EQU VCB$V_NOWRITE 7 $EQU VCB$V_SHADMAST 0 $EQU VCB$V_FAILED 1 $EQU VCB$V_REBLDNG 3 $EQU VCB$V_BLKASTREC 4 $EQU VCB$V_MVBEGUN 5 $EQU VCB$V_ADDING 6 $EQU VCB$V_PACKACKED 7 $EQU VCB$L_TRANS 12 $EQU VCB$L_RVN 16 $EQU VCB$L_AQB 20 $EQU VCB$S_VOLNAME 12 $EQU VCB$T_VOLNAME 24 $EQU VCB$L_RVT 36 $EQU VCB$S_VCB_EXTENSIONS 264 $EQU VCB$R_VCB_EXTENSIONS 40 $EQU VCB$S_VCB_DISKS 264 $EQU VCB$R_VCB_DISKS 40 $EQU VCB$L_HOMELBN 40 $EQU VCB$L_HOME2LBN 44 $EQU VCB$L_IXHDR2LBN 48 $EQU VCB$L_IBMAPLBN 52 $EQU VCB$L_SBMAPLBN 56 $EQU VCB$L_IBMAPSIZE 60 $EQU VCB$L_IBMAPVBN 64 $EQU VCB$L_SBMAPSIZE 68 $EQU VCB$L_SBMAPVBN 72 $EQU VCB$L_CLUSTER 76 $EQU VCB$L_EXTEND 80 $EQU VCB$L_FREE 84 $EQU VCB$L_MAXFILES 88 $EQU VCB$L_WINDOW 92 $EQU VCB$L_LRU_LIM 96 $EQU VCB$L_FILEPROT 100 $EQU VCB$L_MCOUNT 104 $EQU VCB$L_EOFDELTA 108 $EQU VCB$L_RESFILES 112 $EQU VCB$L_RECORDSZ 116 $EQU VCB$L_BLOCKFACT 120 $EQU VCB$B_STATUS2 124 $EQU VCB$V_WRITETHRU 0 $EQU VCB$V_NOCACHE 1 $EQU VCB$V_MOUNTVER 2 $EQU VCB$V_ERASE 3 $EQU VCB$V_NOHIGHWATER 4 $EQU VCB$V_NOSHARE 5 $EQU VCB$V_CLUSLOCK 6 $EQU VCB$V_SUBSET0 7 $EQU VCB$L_QUOTAFCB 128 $EQU VCB$L_CACHE 132 $EQU VCB$L_QUOCACHE 136 $EQU VCB$L_QUOSIZE 140 $EQU VCB$L_PENDERR 144 $EQU VCB$L_SERIALNUM 148 $EQU VCB$L_STATUS3 152 $EQU VCB$V_SUBSYSTEM 0 $EQU VCB$L_VOLLKID 156 $EQU VCB$S_VOLCKNAM 12 $EQU VCB$T_VOLCKNAM 160 $EQU VCB$L_BLOCKID 172 $EQU VCB$S_RETAINMIN 8 $EQU VCB$Q_RETAINMIN 176 $EQU VCB$S_RETAINMAX 8 $EQU VCB$Q_RETAINMAX 184 $EQU VCB$S_MOUNTTIME 8 $EQU VCB$Q_MOUNTTIME 192 $EQU VCB$L_MEMHDFL 200 $EQU VCB$L_MEMHDBL 204 $EQU VCB$B_SHAD_STS 211 $EQU VCB$L_ACTIVITY 212 $EQU VCB$L_SPL_CNT 216 $EQU VCB$L_SHAD_LKID 220 $EQU VCB$S_ACB 36 $EQU VCB$B_ACB 224 $EQU VCB$S_MIN_CLASS 20 $EQU VCB$R_MIN_CLASS 260 $EQU VCB$L_ORB 260 $EQU VCB$S_MAX_CLASS 20 $EQU VCB$R_MAX_CLASS 280 $EQU VCB$L_CACHING_OPTIONS 300 $EQU VCB$S_FILE_ATTRIBUTES 4 $EQU VCB$V_FILE_ATTRIBUTES 0 $EQU VCB$S_FILE_CONTENTS 4 $EQU VCB$V_FILE_CONTENTS 4 $EQU VCB$S_FLUSH_ON_CLOSE 4 $EQU VCB$V_FLUSH_ON_CLOSE 8 $EQU VCB$S_CACHING_OPTIONS_MBZ 20 $EQU VCB$V_CACHING_OPTIONS_MBZ 12 $EQU VCB$S_VCB_SHADOW 36 $EQU VCB$R_VCB_SHADOW 40 $EQU VCB$L_MEM_UCB 40 $EQU VCB$L_MAST_UCB 44 $EQU VCB$L_MAST_VCB 48 $EQU VCB$W_COPY_TYPE 52 $EQU VCB$W_CPYSEQNUM 54 $EQU VCB$S_WORK 8 $EQU VCB$Q_WORK 60 $EQU VCB$S_SHDM_RESV 8 $EQU VCB$Q_SHDM_RESV 68 $EQU VCB$S_VCB_CDROM 88 $EQU VCB$R_VCB_CDROM 40 $EQU VCB$L_VOLDESC 40 $EQU VCB$L_ORPHANED_VCB 44 $EQU VCB$L_PTVECTOR 48 $EQU VCB$L_LBNCACHE 52 $EQU VCB$L_PTINDEX 56 $EQU VCB$L_LBSIZE 60 $EQU VCB$L_MXDIRNM 64 $EQU VCB$L_LBBLOCKS 68 $EQU VCB$L_MINREAD 72 $EQU VCB$L_RDBYTES 76 $EQU VCB$L_LASTGRP 80 $EQU VCB$L_CD_FREE 84 $EQU VCB$L_CD_MAXFILES 88 $EQU VCB$L_CD_WINDOW 92 $EQU VCB$L_CD_LRU_LIM 96 $EQU VCB$L_PTRVN 100 $EQU VCB$L_CD_MCOUNT 104 $EQU VCB$L_FAT_RFM 108 $EQU VCB$L_FAT_RAT 112 $EQU VCB$L_FAT_MRS 116 $EQU VCB$L_SECTORS 120 $EQU VCB$B_CD_STATUS2 124 $EQU VCB$S_VCB_MTAACP 144 $EQU VCB$R_VCB_MTAACP 40 $EQU VCB$L_CUR_FID 40 $EQU VCB$W_CUR_NUM 40 $EQU VCB$W_CUR_SEQ 42 $EQU VCB$L_START_FID 44 $EQU VCB$W_START_NUM 44 $EQU VCB$W_START_SEQ 46 $EQU VCB$W_MODE 48 $EQU VCB$V_OVREXP 0 $EQU VCB$V_OVRACC 1 $EQU VCB$V_OVRLBL 2 $EQU VCB$V_OVRSETID 3 $EQU VCB$V_INTCHG 4 $EQU VCB$V_EBCDIC 5 $EQU VCB$V_NOVOL2 6 $EQU VCB$V_NOHDR3 7 $EQU VCB$V_STARFILE 8 $EQU VCB$V_ENUSEREOT 9 $EQU VCB$V_BLANK 10 $EQU VCB$V_INIT 11 $EQU VCB$V_NOAUTO 12 $EQU VCB$V_OVRVOLO 13 $EQU VCB$V_FIL_ACCESS 14 $EQU VCB$B_TM 50 $EQU VCB$B_CUR_RVN 51 $EQU VCB$L_ST_RECORD 52 $EQU VCB$L_MVL 56 $EQU VCB$L_WCB 60 $EQU VCB$L_VPFL 64 $EQU VCB$L_VPBL 68 $EQU VCB$L_USRLBLAST 72 $EQU VCB$B_LBLCNT 76 $EQU VCB$S_fill_5 99 $EQU VCB$t_fill_5 77 $EQU VCB$S_EXP_DATE 8 $EQU VCB$Q_EXP_DATE 176 $EQU VCB$S_VCB_JACP 21 $EQU VCB$R_VCB_JACP 11 $EQU VCB$B_QNAMECNT 11 $EQU VCB$S_QNAME 20 $EQU VCB$T_QNAME 12 $DEFEND VCB,$GBL,DEF .ENDM