/* REXX  */                                                                     
/* ---------------------------------------------------------  */                
/* Auflisten aller Dateien des Patterns an parm1              */                
/*   call dlist(pattern)                                      */                
/* Die gefundenen Dateien werden zurückgegeben.               */                
/*                                                            */                
/* ---------------------------------------------------------- */                
                                                                                
   Version     = "Version 0.50 vom 23.12.2002"                                  
   Autor       = "JD"                                                           
   Redakteur1  = "NN"                                                           
                                                                                
   /* Parameter untersuchen */                                                  
   arg parm1                                                                    
   if parm1 = '?' then do                                                       
      call help                                                                 
      exit                                                                      
   end                                                                          
                                                                                
                                                                                
   /* Ermitteln von Dateiinformationen */                                       
   x=outtrap('ot.',,'concat')                                                   
   address tso                                                                  
   parm1="'"parm1"'"                                                            
   'listcat entries('parm1')'                                                   
   rc_list=rc                                                                   
   j=0                                                                          
   mt.=0                                                                        
   if rc_list = 0 then do                                                       
      do i=1 to ot.0                                                            
       if substr(ot.i,1,7)='NONVSAM' then do                                    
          j=j+1                                                                 
          mt.0=j                                                                
          mt.j=substr(ot.i,17)                                                  
       end                                                                      
      end                                                                       
   end                                                                          
   do i=1 to mt.0                                                               
      if mt.i > "" then                                                         
         push mt.i                                                              
   end                                                                          
/*                                                            */                
   exit(rc_list)                                                                
                                                                                
help:                                                                           
say '                                                                '          
say 'ISPF/PDF edit macro to list the datasets given by a             '          
say 'pattern (only one wildcard) in parm1                            '          
say '                                                                '          
say 'parm 1:                                                         '          
say '   The dataset, which also can contain wildcards.               '          
say '                                                                '          
say '   If you have questions about this command,                    '          
say '   contact Hamburg -4244.                                       '          
return