define type options
  keyword append
  keyword extract
  keyword list, syntax=syntax_tar_list
  keyword write

define type maps
  keyword prefix, default
  keyword absolute
  keyword root

Define Verb TAR
  Image kaos_public:tar
  Parameter P1, Label = option, prompt="Option (Append,Extract,List,Write)",
	value(required,type=options)
  Parameter P2, Label = filespec, prompt="Filespec to select for/from TAR",
	value(required,type=$file)
  Qualifier ARCHIVE, value(type=$file,default="TAR_ARCHIVE"), default
  Qualifier confirm
  Qualifier MAP_MODE, value (type=maps), default
  Qualifier OUTPUT, Value(type=$file,default="SYS$OUTPUT"), default
  qualifier scan, negatable
  qualifier full


  disallow  map_mode and option.extract

  disallow  scan and option.extract

  disallow  full and option.append
  disallow  full and option.extract
  disallow  full and option.write


Define syntax syntax_tar_list
  Image kaos_public:tar
  Parameter P1, Label = option,
	value(type=options)
  Parameter P2, Label = filespec,
	value(type=$file,default="*"), default
  Qualifier ARCHIVE, value(type=$file,default="TAR_ARCHIVE"), default
  qualifier FULL, negatable, default
  Qualifier OUTPUT, Value(type=$file,default="SYS$OUTPUT"), default
  Qualifier confirm
  Qualifier MAP_MODE, value (type=maps)
  qualifier scan, negatable

  disallow  confirm and option.list

  disallow  map_mode and option.list

  disallow  scan and option.list