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

##  QSHOW.XEQ - RUNS POWERHOUSE DATA DICTIONARY REPORTING TOOL
##  TIM ERICSON - BASED ON VERSION FOUND IN PHNMUDC

SETJCW CIERROR 0
CONTINUE
PHSET !VERS
IF CIERROR = 0
  CONTINUE
  PHRUN QSHOW, !VERS, &
    !INFO, !AUTO, !CC, !DICT, !LIST, &
    !OWNER, !PROCLOC, !SEARCH, !SHIFT, &
    !STATS, "", !MODULELOC, !PRI
ENDIF
PHRESET