× 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.


  • Subject: AW: Problems with the SQLDA pointers in RPGIV
  • From: "Hannes Rosner \(Avenum\)" <Hannes.Rosner@xxxxxxxxxx>
  • Date: Wed, 14 Mar 2001 12:01:17 +0100
  • Importance: Normal

Title: 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

 


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.