Re: FW: IBM's RPG Strategy (was: Long Procedure Names)

[Steve Richter <stephenrichter@xxxxxxxxx>]

On Thu, 24 Mar 2005 09:30:51 -0800, Tony Carolla <carolla@xxxxxxxxx> wrote:
> <snip>
> > I dont use F
> > specs anymore, I use the recio function calls instead. So there are
> > plenty of features that can be left behind.
> </snip>
> 
> One can use a 'recio' function rather than declare files?  This is
> interesting!  I searched the API list, and I don't see any reference
> to 'recio'.  Where might I find info on this?
> 

Tony,

( you learn something new every day, right? )

One of my database files is named "acgloc1" Here is a procedure I call
to open the file.  It returns a handle ( a pointer ) that is used on
all subsequent record i/o calls

-Steve

 ** ----------------- AcgLoc1_Open -----------------------
 ** open the AcgLoc1 file                                 
 pAcgLoc1_Open     b                   export             
 dAcgLoc1_Open     pi              *                      
                                                          
 d File            ds                  likeds(fObject)    
 d hFile           s               *                      
 d sFile           s             40a   varying            
  /free                                                   
       file.name   = 'ACGLOC1' ;                          
       file.lib    = '*LIBL' ;                            
       if          File.Lib = ' ' ;                       
         FIle.Lib  = '*LIBL' ;                            
       endif ;                                            
       sFile       = %trimr(File.Lib) + '/' +             
                     %trimr(File.Name) ;                  
       hFile       = ropen( sFile: 'rr+' ) ;              
       return      hFile ;                                
  /end-free                                               
 p                 e                                      


> --
> "Enter any 11-digit prime number to continue..."
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>