PARM FILESET

# QTPX - Mass compile QTP files 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
SETVAR HPMSGFENCE 2
IF (BOUND (MPEXPREFIXDEF39) = TRUE) THEN
  DELETEVAR MPEXPREFIXDEF39
ENDIF
PURGE F1,TEMP
PURGE F2,TEMP
PURGE F3,TEMP
SETVAR HPMSGFENCE 0
FILE X=F1,NEW;REC=-64,,F,ASCII;DISC=5000;NOCCTL
FILE Y=F2,NEW;REC=-64,,F,ASCII;DISC=5000;NOCCTL
FILE Z=F3,NEW;REC=-64,,F,ASCII;DISC=5000;NOCCTL

LISTF !FILESET((CODE = "" OR CODE = "42" OR CODE = "QEDIT") AND &
  FSEARCHEXP("CL'build';MAX=1;START=-20") > 0),FILENAME;*X

LISTF ^F1(FSEARCHEXP("CL'access *';MAX=1") = 0 AND &
  FSEARCHEXP("CL'of *';MAX=1") = 0),FILENAME;*Y

LISTF ^F2(FSEARCHEXP("CL'/q/qtp';MAX=1") > 0 OR &
  FSEARCHEXP("CL'$lng=qtp';MAX=1") > 0),FILENAME;*Z

RUNCREATE QTP.!PHGROUPX.COGNOS
RUNINPUT SET NOLIST NOWARNINGS NOVERIFY
REPEAT
  RUNINPUT USE !MPEXCURRENTFILE
  RUNINPUT CANCEL CLEAR
  RUNINPUT SET DEFAULT
  RUNINPUT SET NOLIST NOWARNINGS NOVERIFY
FORFILES ^F3
RUNINPUT EXIT
RUNACTIVATE