! To use SWCTL it is necessary to have a comand like $swctl:==$swctl swctl
! in effect
MODULE SWCTL_CLD
! CLD FILE FOR SWCTL.C
DEFINE VERB SWCTL
  PARAMETER P1,PROMPT="SWAn:",VALUE(REQUIRED,TYPE=$DEVICE),LABEL=SWUNIT
  PARAMETER P2,PROMPT="Device:",VALUE(TYPE=$INFILE,default="NLA0:"),LABEL=UNIT
  QUALIFIER SETUP
  QUALIFIER ADD
  QUALIFIER SECOND
  QUALIFIER DEASSIGN
  QUALIFIER REPORT
  QUALIFIER SWITCH
  QUALIFIER IDLE
  QUALIFIER UNIDLE
  QUALIFIER HOOK
  QUALIFIER UNHOOK
  QUALIFIER REPORT
  QUALIFIER PATHCHANGE