IFS-Command(s)

[kitvb1]

1. Scott Klement wrote an article (SystemiNetwork) with the code included in which he described how to create an SQL UDTF which returns all the objects in a directory. This means that one can just run an sql statement and voila!, you have a list. As is usual with Mr. Klements' stuff, it's brilliant. I've tested this and it works very well. I've also modded it a bit in that the directory can be passed as a parameter. But it is slow, due to a) It's IFS and b) you have to continually open and close the SQL cursor for each directories/sub-directory.

2. This article and the subsequent testing made me think more about this and came up with the following. What you can also use is the QSH commands and list the contents of a directory (and optionally all sub-directories) to STDOUT. Now you could parse through the output but that's tiresome. Again using SQL (and views), you can now display your list. But the drawback on this way is that it's not real-time. You must refresh the list continually. On the upside, you are not continually opening & closing the SQL cursor for each directory.

Hope this helps.

[malzusrex]

Hatte da mal ein kleine RPG gemacht

H Option( *SrcStmt ) DftActGrp( *No ) BndDir( 'QC2LE' )                    
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes)     
 *                                                                         
 * CHK_IFS-  Testen ob die Datei im IFS schon da ist                       
 *                                                                         
                                                                           
                                                                           
d File            s               *                                        
d                                                                          
d PM_File         s            255                                         
d PM_Return       s               n                                        
d                                                                          
d True            c                   *On                                  
d False           c                   *Off                                 
d                                                                          
 *-- IFS stream file functions: -----------------------------------**      
d open            Pr              *   ExtProc( '_C_IFS_fopen' )            
d                                 *    Value Options( *String )            
d                                 *    Value Options( *String )            
                                                                           
c     *Entry        PList                                                  
c                   Parm                    PM_File                        
c                   Parm                    PM_Return                      
c                                                                          
C                   Eval      File   = Open( %Trim( PM_File )              
C                                          : 'r'                )          
**                                                                         
C                   If        File   = *Null                               
C                   Eval      PM_Return   = False                          
C                   Else                                                   
C                   Eval      PM_Return   = True                           
c                   EndIf                                                  
c                                                                          
c                   Eval      *InLr = True 

Gruß Ronald

[Fuerchau]

Das Problem beim Open ist, dass Zugriffszeiten aktualisiert werden.

Ausserdem solltest du den Close nicht vergessen, da hier die Ressourcen nicht automatisch freigegeben werden!
Wenn du das häufiger in einem Job machst, gehen dir die Ressourcen irgendwann aus.
"Access()" ist da besser.

[malzusrex]

Okay, Danke
Wieder was dazu gelernt!