Re: opendir() in RPG IV

[Carsten Flensburg <novasol@xxxxxxxxxxxx>]

Buck Calabro/commsoft wrote:
> 
> Anybody get opendir() to work in RPG IV, or should I use the
> Qp0lProcessSubtree API?  It works great in C, but I get errno = 3025 (not
> found) when I try it in RPG IV.  I think it may be a bad mapping for the
> DIR struct.  I am hampered in using C because of shop standards.
> 
> My goal is to be able to read all the file names from an IFS directory,
> pass them one at a time to another RPG program, then delete them so they
> don't get re-processed.
> 
Buck,

This should work:

    Dopendir          PR              *   ExtProc( 'opendir' )       
    D                                 *   Value  Options( *String )
    Dreaddir          PR              *   ExtProc( 'readdir' )    
    D                                 *   Value                     
    D pDir            S               *      
    D DirEnt          DS                  Based( pDirEnt )       
    D  Res1                         16a                          
    D  GenId                        10u 0                        
    D  FileNo                       10u 0                        
    D  RecLen                       10u 0                        
    D  Res3                         10i 0                        
    D  Res4                          6a                          
    D  Res5                          2a                          
    D  NLSinfo                      12a                          
    D   CCSID                       10i 0 Overlay( NLSinfo:  1 )   
    D   CountryId                    2a   Overlay( NLSinfo:  5 )   
    D   LanguageId                   3a   Overlay( NLSinfo:  7 )   
    D   Res6                         3a   Overlay( NLSinfo: 10 )   
    D  Len                          10u 0                        
    D  FileName                   
640a                                    
**                                                  
    C                   Eval      pDir     =  opendir( %TrimR( DirName ) 
    C                   Eval      pDirEnt  =  readdir( pDir )          
    C                   DoW       pDirEnt  <> *Null                    
    **                                                                 
    C                   Eval      pDirEnt  =  readdir( pDir )          
    C                  
EndDo                                                                           
        
Best regards,
Carsten Flensburg

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---