PARM &
  AUTO="", LIST="", DICT="", INFO="", VERS="", &
  CC="", OWNER="", PROCLOC="", SEARCH="", &
  SHIFT="", STATS="", MODULELOC="", PRI="ES", &
  LIBRARY="", DEBUG="NO", FORM="NO"

##  QDESIGN.XEQ - RUNS POWERHOUSE SCREEN COMPILER
##  TIM ERICSON - BASED ON VERSION FOUND IN PHNMUDC

SETJCW CIERROR 0
CONTINUE
PHSET !VERS
IF CIERROR = 0
  SETVAR PHINFO,"!INFO"
  IF "!LIBRARY" <> ""
    SETVAR PHINFO,PHINFO+" LIBRARY=!LIBRARY"
  ENDIF
  IF UPS("!DEBUG") <> "NO"
     SETVAR PHINFO,PHINFO+" DEBUG"
  ENDIF
  IF UPS("!FORM") <> "NO"
     SETVAR PHINFO,PHINFO+" FORM"
  ENDIF
  CONTINUE
  PHRUN QDESIGN, !VERS, &
    "!PHINFO", !AUTO, !CC, !DICT, !LIST, &
    !OWNER, !PROCLOC, !SEARCH, !SHIFT, &
    !STATS, "", !MODULELOC, !PRI
  IF BOUND(PHINFO)
    DELETEVAR PHINFO
  ENDIF
ENDIF
PHRESET