DEFINE VERB JGCTL
   IMAGE sys$system:JGCTL.EXE
     parameter p1,prompt="JGAn:",value(required,type=$device),label=UNIT
     parameter p2,label=FNAM,prompt="Disk",value(type=$infile)
	qualifier DEASSIGN
	qualifier VERIFY
! Usage: JFCTL JFAn: disk:
! Where JFAn: is a unit of JF: that is not otherwise in use and
! disk: is some disk to fragmentation-avoid on.
!
! switches:
! /DEASSIGN	Turns off dk err fixups
! /VERIFY turns on read/write retries