Define verb FDHOSTcry2
  Image sys$system:fdhostfil.exe
  Parameter p1,prompt="FDn:",value(required,type=$device),label=UNIT
  parameter p2,label=FNAM,prompt="file",value(type=$infile)
  Qualifier KEY,value(type=$quoted_string)
  qualifier WEAK
  qualifier CLEAR
! Note: CLEAR switch is for FDHOST.MAR only. It just zeroes the
! reference count of the FD: unit in case aborting control tasks
! left this nonzero.
!FD: disk on file somewhere.