c	VEDIT.OWN
c	*********
c
c	VEDIT field types and common storage area
c
	integer
     1   		vft$,		!field is text (not used)
     1   		vfr$,		!read only
     1   		vfrw$,		!read/write
     1   		vfrwm$,		!read/write/mandatory
     1   		vfw$,		!write only (not used)
     1   		vfwm$		!write/mandatory (not used)
c
	parameter	( vft$ = 1, vfr$ = 2, vfrw$ = 3, vfrwm$ = 4,
     1   		  vfw$ = 5, vfwm$ = 6 )
c
c	field type = 0 should be considered as read/write for compatibility
c
	character*1
     1   		vedend,		!global ending character
     1   		vedpad,		!       padding character
     1   		vedrng		!       ringing character
c
	integer
     1   		vedbli,		!global display characteristics
     1                  vedchn		!input i/o channel
c
c	Check all items ?
c	-----------------
c
	logical
     1			rechl(d$f),	!(re)check this line
     1			vedchl(d$f)	!editor local copy
c
c	To do with d.b. fields
c	----------------------
c
	integer
     1   	db$bas(d$f),		!"other data base"'s
     1          db$fld(d$f),		!master field
     1          db$rec			!and rec# allowed or 0 (edit, updx...)
c
c	Make everything common
c
	common/d$vedini/
     1   		vedend, vedpad, vedrng, vedbli, vedchn, rechl, vedchl,
     1                  db$bas, db$fld, db$rec
c
c
c
c