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

##  PDL.XEQ - RUNS POWERHOUSE DICTIONARY COMPILER
##  TIM ERICSON - BASED ON VERSION FOUND IN PHNMUDC

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