# files - common area for file defaults and names
  common /files/ lfile,
		 node, dev, uic, name, ext,
      	         cnode, cdev, cuic, cname, cext, cver

  # current output file spec
    string lfile(FILENAMESIZE) ""

  # defaults constructed from input file spec on command line
    string node(NODESIZE) "", uic(UICSIZE) "", name(NAMESIZE) "",
	   dev(DEVSIZE) DEFAULT$DISK, ext(EXTSIZE) DEFAULT$EXT

  # current open input file spec fields
    string cnode(NODESIZE) "", cdev(DEVSIZE) "", cuic(UICSIZE) "",
	   cname(NAMESIZE) "", cext(EXTSIZE) "", cver(VERSIZE) ""