PARM PROG, VERS="CURRENT", & INFO="", AUTO="", CC="()", DICT="", LIST="YES", & OWNER="", PROCLOC="", SEARCH="FIRST", SHIFT="UP", & STATS="YES", XL="", MODULELOC="", PRI="CS" ## PHRUN.XEQ - RUNS POWERHOUSE COMPONENTS ## TIM ERICSON - BASED ON PHRUNPROG FOUND IN PHNMUDC SETVAR PHARGS,"" IF "!INFO" <> "" SETVAR PHARGS,PHARGS+"!INFO " ENDIF IF "!AUTO" <> "" SETVAR PHARGS,PHARGS+"AUTO=!AUTO " ENDIF IF "!CC" <> "" AND "!CC" <> "()" SETVAR PHARGS,PHARGS+"CC=!CC " ENDIF IF "!DICT" <> "" SETVAR PHARGS,PHARGS+"DICT=!DICT " ELSEIF UPS("!VERS") <> "CURRENT" AND FINFO("!VERS.DICT.COGACCT", 0) SETVAR PHARGS,PHARGS+"DICT=!VERS.DICT.COGACCT " ENDIF IF UPS("!LIST") = "NO" OR UPS("!LIST") = "NOLIST" SETVAR PHARGS,PHARGS+"NOLIST " ENDIF IF "!OWNER" <> "" SETVAR PHARGS,PHARGS+"OWNER=!OWNER " ENDIF IF "!PROCLOC" <> "" SETVAR PHARGS,PHARGS+"PROCLOC=!PROCLOC " ENDIF IF UPS("!SEARCH") <> "FIRST" SETVAR PHARGS,PHARGS+"SEARCH=!SEARCH " ENDIF IF UPS("!SHIFT") <> "UP" SETVAR PHARGS,PHARGS+"!SHIFT"+"SHIFT " ENDIF IF UPS("!STATS") <> "YES" SETVAR PHARGS,PHARGS+"!STATS"+"STATISTICS " ENDIF IF "!MODULELOC" <> "" SETVAR PHARGS,PHARGS+"MODULELOC=!MODULELOC " ENDIF SETVAR PHLIBS, "" IF FINFO("*PHLIBNS", 0) SETVAR PHLIBS,PHLIBS+"*PHLIBNS " ENDIF IF FINFO("*PHLIBODX", 0) SETVAR PHLIBS,PHLIBS+"*PHLIBODX " ENDIF IF FINFO("*PHLIBXL", 0) SETVAR PHLIBS,PHLIBS+"*PHLIBXL " ENDIF IF BOUND(PHDEBUG) SHOWVAR PHARGS SHOWVAR PHLIBS ENDIF CONTINUE RUN !PROG.!VERS.COGNOS; INFO="!PHARGS"; XL="!XL !PHLIBS"; PRI=!PRI IF BOUND(PHARGS) DELETEVAR PHARGS ENDIF IF BOUND(PHLIBS) DELETEVAR PHLIBS ENDIF