AW: Problems with the SQLDA pointers in RPGIV

Just a quick shot try movea.

best regards
Avenum

Hannes Rosner
EDI Projekte
______________________________
eMail: Hannes.Rosner@Avenum.com
Tel: +43 (1) 92 101-113
Fax: +43 (1) 92 101-300

-----Ursprüngliche Nachricht-----
Von: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]
Gesendet: Mittwoch, 14. März 2001 10:56
An: 'RPG400-L@midrange.com'
Betreff: Problems with the SQLDA pointers in RPGIV

I have some problems to get the pointers from the sqlda (field: sqldata)
The results of the select statement are returned into the storage areas
pointed to by the SQLDATA and SQLIND fields of the SQLVAR elements.
To get the information i move the SQLVAR in a help-data-structure but
the pointers get lost.

Hope someone can help me ?

D VAR_HELP    DS                 
D  TYPE_hlp             1      2B 0
D  LEN_hlp              3      4B 0
D  RES_hlp              5     16A  
D  DATA_hlp                17     32*  
D  IND_hlp                   33     48*  
D  NAMELEN_hlp         49     50B 0
D  NAME_hlp                51     80A  

c/exec sql include sqlda                    
c/end-exec                                  
c/exec sql prepare s1 from :statement       
c/end-exec                                                                           
c                   eval      sqln = 100    
c/exec sql describe s1 into :sqlda          
c/end-exec                                  
c/exec sql declare c1 cursor for s1
c/end-exec                      
c/exec sql open c1                
c/end-exec                        
c/exec sql                            
c+  fetch c1 using descriptor :sqlda  
c/end-exec                            

c       move    sqlvar(1)       sqlvar_help