c  VMS record common
c     so random routines can write to badrecord file.

	character*512 vmsrecord	! VMS accounting file record
	integer*4 vmsreclen	! length of current record
	common /vmsrec/vmsreclen,vmsrecord