##  NETUSERS.XEQ - LIST SHOWCONN INFO FOR ALL REMOTE USERS
##  TIM ERICSON (WITH INSPIRATION FROM
##     DOUG WERTH AND DAVID HUTCHINSON)

setvar holdmsgfence, hpmsgfence
setvar hpmsgfence, 2
setvar first_line, " "

ECHO JOBNUM  INTRO DATE AND TIME    LDEV   USERNAME
ECHO  REMOTE ADDRESS  RPORT  LPORT  FLAGS   PIN(PROGRAM)

purge SCWork, temp > $null
build SCWork; temp; rec=-78,,f,ascii; msg
file out=SCWork,oldtemp
sc.pub.sys "system=on" > *out
reset out

while finfo("SCWork","EOF") > 0
   input input_record < SCWork
   if lft(input_record,1) = "#" 
      setvar first_line, input_record
   endif
   if lft(first_line,1) = "#" and &
      ( str(input_record,25,2) = "vt" or &
        str(input_record,25,6) = "telnet" )
      echo !first_line
      echo !input_record
   endif
endwhile

purge SCWork, temp
setvar hpmsgfence, holdmsgfence
deletevar holdmsgfence, input_record, first_line