PARM VERS="CURRENT" ## PHSET.XEQ - SETS POWERHOUSE FILE EQUATIONS AND VARIABLES ## TIM ERICSON - BASED ON SETPOWERHOUSE FOUND IN PHNMUDC IF NOT BOUND(COG_UDCLVL) THEN SETVAR COG_UDCLVL 1 SETVAR COG_VERS1 "!VERS" IF ( NOT FINFO ("*COGEDITR", 0) ) THEN SETVAR COG_SETEDIT !COG_UDCLVL FILE COGEDITR=QEDIT.PUB.ROBELLE ENDIF ELSE SETVAR COG_UDCLVL !COG_UDCLVL + 1 SETVAR COG_VERS!COG_UDCLVL "!VERS" ENDIF FILE ABDBA=ABDBA.!VERS.COGNOS FILE COGHELP=COGHELP.!VERS.COGNOS FILE COGHLIB=COGHLIB.!VERS.COGNOS FILE COGPAINT=PHPAINT.!VERS.COGNOS FILE DMDERMSG=DMDERMSG.!VERS.COGNOS FILE IBDBA=IBDBA.!VERS.COGNOS FILE PHLIBNS=PHLIBNS.!VERS.COGNOS FILE PHLIBODX=PHLIBODX.!VERS.COGNOS FILE PHLIBXL=PHLIBXLS.!VERS.COGNOS FILE PHLIC=PHLIC.!VERS.COGNOS FILE PHRS=PHRS.!VERS.COGNOS FILE PHTRMCAP=PHTRMCAP.!VERS.COGNOS FILE PTHELP=PTHELPE.!VERS.COGNOS FILE PTRES=PTRES.!VERS.COGNOS FILE QCOBLIB=QCOBLIB.!VERS.COGNOS FILE QKGOCTRL=QKGOCTRL.!VERS.COGNOS FILE QKGODEFB=QKGODEFB.!VERS.COGNOS FILE QKGODEFK=QKGODEFK.!VERS.COGNOS FILE QKGODEFT=QKGODEFT.!VERS.COGNOS FILE QKGOSCHC=QKGOSCHC.!VERS.COGNOS FILE QSHOW=QSHOW.!VERS.COGNOS FILE QUICK=QUICK.!VERS.COGNOS FILE SRVCMSGS=SRVMSGME.!VERS.COGNOS FILE STDPDL=STDPDL.!VERS.COGNOS