! Set up JT open/extend/delete daemon
DEFINE VERB JTEXEMPT
   IMAGE gcy$sys:jtexempt
     parameter p1,prompt="JTn:",value(required,type=$device),label=UNIT
     parameter p2,label=FNAM,prompt="file",value(type=$infile)
     qualifier NORMAL
!sets or resets "exempt from eacf" process status
!should need only p1 arg and /normal if resetting exempt status to NOT exempt