RE: QSRLSAVF format SAVF0100

[Thomas Bardinas <tbardina@xxxxxxxxx>]

Thanks Bob and Carsten for your help. I really
appreciate it. 


Tommy 



--- Bob Cozzi <cozzi@xxxxxxxxx> wrote:

> Oh, and you might want to try to avoid using the "B"
> data types for the
> subfields, that's a little like using conditioning
> indicators. Use "I" data
> types instead and try to use length notation instead
> of from-to columns.
> -Bob
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
>
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx]
> On Behalf Of Bob
> Cozzi
> Sent: Friday, January 21, 2005 10:11 AM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: QSRLSAVF format SAVF0100
> 
> The RPG xTools do this, but as with all "List" APIs
> you have to take into
> account the generic list header, the API-specific
> header and then loop
> through the list of entries. Even if there's only
> one item on the list you
> still treat it like a list.
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Thomas Bardinas
> Sent: Friday, January 21, 2005 9:37 AM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: QSRLSAVF format SAVF0100
> 
>  
> 
> Has anyone successfully mapped out the format
> SAVF0100
> using the API QSRLSAVF in RPGILE? I am able to
> access
> the character fields however, the binary fields are
> not representing the data. 
> 
>  
> 
> Current attempt to map data. 
> 
>  
> 
> D SAVF0100        ds                  
> 
> D  SAVLIB               371    380    
> 
> D  SAVCMD               381    390    
> 
> d  SAVDT                391    398    
> 
> D  SAVAUX               399    402B 0 
> 
> D  SAVREC               403    406b 0 
> 
> D  SAVOBJ               417    420B 0 
> 
> D  SAVACC               421    424B 0
> 
>  
> 
>  
> 
> Result in SavRec field
> 
> 077952576
> 
>  
> 
>  
> 
> Space Values
> 
>  
> 
>                               Evaluate Expression   
>  
>                          
> 
>                                                     
>  
>                          
> 
>  Previous debug expressions                         
>  
>                          
> 
>                                                     
>  
>                          
> 
>  > EVAL allspace                                    
>  
>                          
> 
>    ALLSPACE =                                       
>  
>                          
> 
>             
>
....5...10...15...20...25...30...35...40...45...50...55...60
>       
> 
>         1   '                                       
>  
>                   '      
> 
>        61   '     X0100SAVF0100QSRLSAVF 
> 1050121103643C   F   {   G      '      
> 
>       121   ' <   H   j       j                     
>  
>                   '      
> 
>       181   '          SAV001US  QTEMP    
> SAVF0100GLPSAVE1  *LIBL     *A'      
> 
>       241   'LL      *ALL                           
>  
>             SAV001'      
> 
>       301   'US  QTEMP     GLPSAVE1  QGPL           
>  
>                   '      
> 
>       361   '          QTEMP     SAVOBJ    i ^bs-^Z 
>  
>   d:   c    *NO   '      
> 
>       421   '    V5R2M01 102669C   *SYSBAS          
>  
>                   '      
> 
>       481   '                                       
>  
>                   '      
> 
>       541   '                                       
>  
>                   '      
> 
>       601   '                                       
>  
>                   '      
> 
>                                                     
>  
>                  More... 
> 
>  Debug . . .                                        
>  
>                          
> 
>                                                     
>  
>                          
> 
>  
> 
>                                                     
>  
>                         
> 
>  
> 
> The necessity is to try to retrieve the Records and
> Objects saved for a save file. 
> 
> Any help would be appreciated. 
> 
> Thank you 
> 
> Tommy 
> 
>  
> 
>  
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam
> protection around 
> http://mail.yahoo.com 
> -- 
> 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.
> 
> 
> 
> 
> -- 
> 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.
> 
> 
> 
> 
> -- 
> 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.
> 
> 



                
__________________________________ 
Do you Yahoo!? 
Meet the all-new My Yahoo! - Try it today! 
http://my.yahoo.com