PARM FILESET

# QUIZX - Mass compile QUIZ 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
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
IF MPEXNUMSUCCEEDED > 0 THEN
LISTF ^F1(FSEARCHEXP("CL'access *';MAX=1") = 0 AND &
  FSEARCHEXP("CL'of *';MAX=1") = 0),FILENAME;*Y
IF MPEXNUMSUCCEEDED > 0 THEN
LISTF ^F2(FSEARCHEXP("CL';/q/quiz';MAX=1") > 0 OR &
  FSEARCHEXP("CL'$lng=quiz';MAX=1") > 0 OR &
  FSEARCHEXP("CL'set rep dev';MAX=1") > 0 OR &
  FSEARCHEXP("CL'set report dev';MAX=1") > 0),FILENAME;*Z
IF MPEXNUMSUCCEEDED > 0 THEN
RUNCREATE QUIZ.!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
ELSE
  ECHO NO Compilable QUIZ source code found in !fileset
ENDIF
ELSE
  ECHO NO Compilable QUIZ source code found in !fileset
ENDIF
ELSE
  ECHO NO Compilable QUIZ source code found in !fileset
ENDIF