Re: where is SQLDATA?

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 10/13/2017 01:56:56
PM:

given the following scenario, how do I extract the values from SQLDATA?

exec sql
prepare s1_select from :g_sqlstmt;

exec sql
declare c1 scroll cursor for s1_select;

exec sql open c1;

exec sql fetch first from c1;


My attempt is...


exec sql include sqlda;
exec sql describe s1_select into :sqlda;

for i = 1 to sql_num;

sqlvar = sql_var(i);
if sqlname = ' ';
leave;
endif;

SQLDATA???? contains null when the fetch did indeed fetch a record.

I don't know what is in g_sqlstmt, but the following statements
don't retrieve data into the SQLDA.

exec sql include sqlda;
exec sql describe s1_select into :sqlda;

They only retrieve column information. To retrieve data into the
SQLDA you have to execute SQL statements utilizing the USING DESCRIPTOR
clause or something similar. For example:

exec sql execute ACLKUPBRSM_Lookup_Stmt
using descriptor :pTblDesc;

Sincerely,

Dave Clark