# vrec common - hold common variables for virtual record package
common /vrec/ tmark, cc, vbp, vsiz, vbuf
 
integer tmark(_arith(MARKSIZE,-,1))	# temporary buffer to mark records
integer cc				# carriagecontrol type of file
integer vbp				# pointer to next record in vbuf
integer vsiz				# size of record in vbuf
byte vbuf(BUFSIZ)			# holds physical record