PARM TERMINAL
##  SMITE.XEQ - ABORT THE SESSION ON THE SPECIFIED TERMINAL
##  TIM ERICSON
SETJCW CIERROR,0
CONTINUE
SHOWDEV !TERMINAL > SDFILE
IF CIERROR <> 0
  ECHO "!TERMINAL" IS NOT A VALID TERMINAL!
  RETURN
ENDIF
PRINT SDFILE;START=2 > PRFILE
INPUT SDREC < PRFILE
SETVAR AVAIL,STR(SDREC,11,8)
IF "!AVAIL" = "SPOOLED " &
OR "!AVAIL" = "DISC    "
  ECHO "!TERMINAL" IS NOT A VALID TERMINAL!
  RETURN
ENDIF
IF "!AVAIL" = "AVAIL" &
OR STR(SDREC,25,3) = "SYS"
  ABORTIO !TERMINAL > $NULL
  ECHO TERMINAL !TERMINAL SMOTE!
  RETURN
ENDIF
SETVAR SESSION,STR(SDREC,25,POS(":",SDREC)-25)
ABORTJOB !SESSION
ECHO TERMINAL !TERMINAL SMOTE! (SESSION !SESSION)