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"