AW: reading different files according to user input

Sorry,

you have to change DOW 1=0 in either DOU 1=0 or DOW 1=1 in my previous
example.
Select;
when Condition = 1;
     Chain(e) Key1 FileF1;
when Condition = 2;
     Chain(e) Key2 FileF2;
....
EndSL;

If %Found;
   DoW 1=1;
       exsr ForEachRecord;
       Select;
       when Condition = 1;
            reade(e) Key1 FileF1;
       when Condition = 2;
            reade(e) Key2 FileF2;
       ....
       EndSL;
       If %EOF;
          leave;
       EndIf;
   enddo;
EndIf;

Birgitta