PARM &
  AUTO="", LIST="", DICT="", INFO="", VERS="", &
  CC="", OWNER="", PROCLOC="", SEARCH="", &
  SHIFT="", STATS="", MODULELOC="", PRI="ES", &
  CREATEBASE="", CREATEFILE="", DELETEBASE="", DELETEFILE=""

##  QUTIL.XEQ - RUNS POWERHOUSE DATABASE UTILITY TOOL
##  TIM ERICSON - BASED ON VERSION FOUND IN PHNMUDC

SETJCW CIERROR 0
CONTINUE
PHSET !VERS
IF CIERROR = 0
  SETVAR PHINFO,"!INFO"
  IF "!CREATEBASE"<>""
    SETVAR PHINFO,PHINFO+" CREATEBASE=!CREATEBASE"
  ENDIF
  IF "!CREATEFILE"<>""
    SETVAR PHINFO,PHINFO+" CREATEFILE=!CREATEFILE"
  ENDIF
  IF "!DELETEBASE"<>""
    SETVAR PHINFO,PHINFO+" DELETEBASE=!DELETEBASE"
  ENDIF
  IF "!DELETEFILE"<>""
    SETVAR PHINFO,PHINFO+" DELETEFILE=!DELETEFILE"
  ENDIF
  CONTINUE
  PHRUN QUTIL, !VERS, &
    "!PHINFO", !AUTO, !CC, !DICT, !LIST, &
    !OWNER, !PROCLOC, !SEARCH, !SHIFT, &
    !STATS, "", !MODULELOC, !PRI
ENDIF
IF BOUND(PHINFO)
  DELETEVAR PHINFO
ENDIF
PHRESET