A slightly more complicated way to zap users:
 
comment -------------------------------------------------------
comment ZAPALL.OPER.SYS:  Abort all but selected users
comment Requires QUAD
comment -------------------------------------------------------
setvar xmsg,hpmsgfence
setvar hpmsgfence,1
purge  XLS
purge  XLS2
purge  XLS,temp
purge  XLS2,temp
setvar hpmsgfence,xmsg
deletevar xmsg
build  XLS;rec=-80,,f,ascii;disc=1000;nocctl;temp
file   XLS,oldtemp; Acc=APPEND
showjob job=@S          ;*XLS
file   XLS,oldtemp
quad  "C 8/20 '' <*XLS>;C '#S' '**' <*XLS> i'OPERATOR.SYS';E"   >$NULL
quad  "C '#S' '**' <*XLS> i'PRINT.NETJOBS';E" >$NULL
quad  "C '#S' 'abortjob #S' <*XLS>;E" >$NULL
quad  "C 17/80 '' <*XLS>;E" >$NULL
build  XLS2;rec=-80,,f,ascii;disc=1000;temp
file   XLS2,oldtemp
run    fcopy.pub.sys; stdlist=$null; info=      &
'from=*XLS;to=*XLS2;subset="ab",1'
if finfo('XLS2','EOF')>0
setvar hpautocont,TRUE
xeq    *XLS2
setvar hpautocont,FALSE
endif