QSRLSAVF format SAVF0100 -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

 

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   '     Ø0100SAVF0100QSRLSAVF 
1050121103643C   F   {   Ç      '      

      121   ' <   È   ê       ê                       
                  '      

      181   '          SAV001US  QTEMP    
SAVF0100GLPSAVE1  *LIBL     *A'      

      241   'LL      *ALL                             
            SAV001'      

      301   'US  QTEMP     GLPSAVE1  QGPL             
                  '      

      361   '          QTEMP     SAVOBJ    i ^âóÞÚ   
  äº   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 mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.