/* Versuch, alle bei ISPF allokierten Dateien zu finden  */                     
/* von ISP16200 bis ISP18299                             */                     
      say "searching for dataset..."                                            
      pvsname=''                                                                
      do i=16200 to 18299                                                       
         ddname="isp"i                                                          
         rc_d=listdsi(ddname "FILE")                                            
         if rc_d = 0 then do                                                    
            nam=sysdsname                                                       
            dso=sysdsorg                                                        
            if substr(nam,1,3)='PVS' & sysdsorg='PS' then do                    
               say "Print "sysdsname " ?"                                       
               pvsname=sysdsname                                                
               leave                                                            
            end                                                                 
         end                                                                    
      end                                                                       
      parm1="'"pvsname"'"