%META:TOPICINFO{author="ChrisBartram" date="1149893579" format="1.1" version="1.1"}%
%META:TOPICPARENT{name="Hp3000MpexXeqs"}%
<pre>
PARM FILESET="@",MODE="DBX",DEV="TERM",PRI=8,COP=1

##  DBX.XEQ - MPEX LISTF WITH CUSTOM LISTF FILE
##           REQUIRES MPEX AND DBX.LISTF.VESOFT FILE
##  TIM ERICSON

SETVAR DEVICE,"!DEV"
IF DEVICE = "TERM" THEN
  RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;&
    INFO="LISTF !FILESET,!MODE";PRI=ES
ELSE
  IF DEVICE = "DISC" THEN
    IF FINFO("LISTF",0) THEN
      ECHO FILE "LISTF" ALREADY EXISTS -
      ECHO CHECK ITS CONTENTS AND PURGE IT TO CONTINUE.
      RETURN
    ENDIF
    FILE LISTF,NEW;REC=-80,16,F,ASCII;DISC=10000,32,1;SAVE;NOCCTL
  ELSE
    FILE LISTF;DEV=!DEV,!PRI,!COP
  ENDIF
  RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;&
    INFO="LISTF !FILESET,!MODE;*LISTF";PRI=ES
  RESET LISTF
ENDIF

</pre>



-- Main.ChrisBartram - 09 Jun 2006