%META:TOPICINFO{author="ChrisBartram" date="1149894096" format="1.1" version="1.1"}%
%META:TOPICPARENT{name="Hp3000MpexXeqs"}%
<pre>
PARM FILESET, FOR

##  SEARCH - USES MPEX 'PRINT' COMMAND TO SEARCH FILESET
##  TIM ERICSON

IF ( NUMERIC ("!FILESET") ) &
OR ( LFT ("!FILESET", 1) = "O" AND &
     NUMERIC ( RHT ("!FILESET", LEN ("!FILESET")-1) ) ) THEN
  RUN MAIN.PUB.VESOFT, MPEX; NOCB; PARM=1; PRI=ES; INFO= &
    "PRINT O!FILESET.OUT.HPSPOOL; SEARCH=CL '!FOR'; NUM"
  RETURN
ENDIF
RUN MAIN.PUB.VESOFT, MPEX; NOCB; PARM=1; PRI=ES; INFO= &
  "PRINT !FILESET; SEARCH=CL '!FOR'; KEEPAMDATES; NUM"
</pre>



-- Main.ChrisBartram - 09 Jun 2006