%META:TOPICINFO{author="ChrisBartram" date="1149894352" format="1.1" version="1.1"}%
%META:TOPICPARENT{name="Hp3000MpexXeqs"}%
<pre>
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
</pre>




-- Main.ChrisBartram - 09 Jun 2006