PARM & AUTO="", LIST="", DICT="", INFO="", VERS="CURRENT", & CC="", OWNER="", PROCLOC="", SEARCH="", & SHIFT="", STATS="", MODULELOC="", PRI="DS", & TERM="", LINEREAD="NO", READ="", XL="" ## SETQKGO.XEQ - RUNS POWERHOUSE SCREEN PARAMETER TOOL ## TIM ERICSON - BASED ON VERSION FOUND IN PHNMUDC SETJCW CIERROR 0 CONTINUE PHSET !VERS IF CIERROR = 0 THEN SETVAR HPMSGFENCE 2 PURGE QKGMAP,TEMP PURGE QKGTIC,TEMP SETVAR HPMSGFENCE 0 BUILD QKGTIC;REC=-14,,F,ASCII;DISC=2046;KSAMXL; & KEY=(INTEGER,9,2,DUP; BYTE,1,8); TEMP BUILD QKGMAP;REC=-47,,F,ASCII;DISC=1023;KSAMXL; & KEY=(BYTE,1,12,DUP; BYTE,17,4,DUP; & BYTE,22,4,DUP; BYTE,27,4,DUP); REUSE; TEMP FILE QKGKEY=QKGKEY.!VERS.COGNOS FILE QKGKEYK=QKGKEYK.!VERS.COGNOS FILE QKGCMD=QKGCMD.!VERS.COGNOS FILE QKGCMDK=QKGCMDK.!VERS.COGNOS FILE QKGODEF=QKGODEF.!VERS.COGNOS SETVAR PHINFO,"!INFO" IF "!TERM" <> "" THEN SETVAR PHINFO,PHINFO+" TERM=!TERM" ENDIF IF UPS("!LINEREAD") <> "NO" & OR (HPINTERACTIVE AND NOT HPTYPEAHEAD) THEN SETVAR PHINFO,PHINFO+" READ=LINE" ELSEIF ( UPS("!READ") = "LINE") THEN SETVAR PHINFO,PHINFO+" READ=LINE" ELSEIF ( UPS("!READ") = "CHAR") THEN SETVAR PHINFO,PHINFO+" READ=CHAR" ENDIF CONTINUE PHRUN QUICK, !VERS, & "!PHINFO", QKGOQKGO.!VERS.COGNOS, !CC, & QKGOPDL.!VERS.COGNOS, !LIST, & !OWNER, .!VERS.COGNOS, !SEARCH, !SHIFT, & !STATS, !XL, !MODULELOC, !PRI IF BOUND(PHINFO) THEN DELETEVAR PHINFO ENDIF PURGE QKGMAP,TEMP PURGE QKGTIC,TEMP RESET QKGKEY RESET QKGKEYK RESET QKGCMD RESET QKGCMDK RESET QKGODEF ENDIF PHRESET