PARM FILESET

# QDESIGNX - Mass compile QUICK screens in FILESET (requires MPEX)
# Ron Tilby

:    SETVAR HPAUTOCONT TRUE

:IF (BOUND (PHGROUPX) = FALSE) THEN
  SETVAR PHGROUPX "CURRENT"
ENDIF
SETPOWERHOUSE !PHGROUPX
SETVAR HPAUTOCONT TRUE
SETVAR MPEXKEEPAMDATES TRUE
RUNCREATE QDESIGN.!PHGROUPX.COGNOS
RUNINPUT SET NOLIST NOLIST LAYOUT NOVERIFY
REPEAT
  RUNINPUT USE !MPEXCURRENTFILE
  RUNINPUT CANCEL CLEAR
  RUNINPUT SET NOLIST NOLIST LAYOUT NOVERIFY
FORFILES !FILESET((CODE="" OR CODE="41" OR INTCODE=111) AND &
FSEARCHEXP("CL'screen ';MAX=1") > 0 AND&
FSEARCHEXP("CL';/q/quiz';MAX=1")= 0 AND&
FSEARCHEXP("CL';/q/qtp';MAX=1")= 0 AND&
FSEARCHEXP("CL'exit';START=-1")= 0 AND&
FSEARCHEXP("CL'go';START=-1")= 0)
RUNINPUT EXIT
RUNACTIVATE