At 12:31 AM -0400 4/19/00, [log in to unmask] wrote:
>Watch out for side-effects - such as downstream sections in the job
>expecting the CIERROR to be zero. It won't be after a failed LISTF. I
>would do this.
>
>   %SETJCW OLDCI,CIERROR
>   %LISTF FILESET;$NULL
>   %IF MPEXNUMSUCCEEDED = 0 THEN
>   %   SETJCW CIERROR,OLDCI
>   %ELSE
>   %   REPEAT
>       .
>       .
>   %   FORFILES FILESET
>   %ENDIF
>


A different approach might be to do something like

  %setvar hpmsgfence 2
  %listf fileset,6 > tmpfil
  %if finfo('tmpfil','eof') > 0
  %  repeat
     ...
  %  forfiles fileset
  %endif