PARM FILESET, FROMSTRING, TOSTRING, INCLUDING=" "

##  EDITQUAD - RUNS QUAD ON A FILESET - REQUIRES MPEX
##  TIM ERICSON

IF "!INCLUDING" = " "
  RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;PRI=DS;&
    INFO="EDITQUAD !FILESET(FCONTAINS('!FROMSTRING'));&
          C'!FROMSTRING''!TOSTRING'A S"
ELSE
  RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;PRI=DS;&
    INFO="EDITQUAD !FILESET(FCONTAINS('!INCLUDING'));&
          C'!FROMSTRING''!TOSTRING'A I'!INCLUDING' S"
ENDIF