products/Sources/formale Sprachen/JAVA/openjdk-20-36_src/test/jdk/sun/nio/cs/mapping image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei:   Sprache: Unknown

/* REXX  */                                                                     
/* ---------------------------------------------------------  */                
/* Auflisten aller Dateien die allokiert sind                 */                
/*   call alist                                               */                
/* Die gefundenen Dateien werden im stack 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"'"                                                            
   'listalc status'                                                             
   rc_list=rc                                                                   
   j=0                                                                          
   mt.=0                                                                        
   if rc_list = 0 then do                                                       
      do i=1 to ot.0                                                            
       if substr(ot.i,1,1) > ' ' then do                                        
          if pos('.',ot.i) > 0  then do                                         
             j=j+1                                                              
             mt.0=j                                                             
             mt.j=ot.i                                                          
          end                                                                   
       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 which are '          
say 'currently allocated '          
say ' '          
say ' If you have questions about this command, '          
say ' contact Hamburg -4244. '          
return                                                                          

[ Original von:0.62Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen. Man kann per Verzeichnistruktur darin navigieren. Der Code wird farblich markiert angezeigt.  Datei übertragen  ]