IBM Mainframe Forum

member = 'IHASDWA'                              
 fds=''                                          
 do until fds<>''                                
   say 'Enter libname'                            
   pull ds                                        
   if ds='X' then exit 0                          
   if sysdsn("'"ds"("member")'")='OK' then fds=ds
   say member 'not found in' ds                  
   iterate                                        
 end                                              
 say member 'is in' fds

stem of items to find
stem of places to look
Do to_find_index = 1 to max items to find
   Do places_index = 1 To max places to look
      If item in place
      Then Do
         Say found
         set places_index to max places to look
      End
   End
End