PARM ACCTPARM=NONE
#  VTUSER.XEQ - LISTS SESSIONS USING A VT3K
#               CONNECT OPTIONALLY BY ACCOUNT
#  John Hornberger - General Signal Services
SETVAR ACCTIN "!ACCTPARM"
IF ACCTIN="NONE" THEN
  PURGE TMPVTLOG
  FILE TMPVTLOG;REC=-80,,F,ASCII;DEV=DISC;DISC=2500;SAVE
  LISTFILE /SYS/PUB/CI,8>*TMPVTLOG
  ECHO
  MPEX.PUB.VESOFT;INFO="PRINT TMPVTLOG;SEARCH=CL'REM :'"
  ECHO
ELSE
  PURGE TMPVTLOG
  FILE TMPVTLOG;REC=-80,,F,ASCII;DEV=DISC;DISC=2500;SAVE
  LISTFILE /!ACCTPARM,8>*TMPVTLOG
  ECHO
  MPEX.PUB.VESOFT;INFO="PRINT TMPVTLOG;SEARCH=CL'REM :'"
  ECHO
ENDIF