RE: Dnamic SQL question

Ali,

I am not familiar with graphics or DBCS data, nor with pointer arithmetic.
Barbara Morris already gave an answer on that.

I have done this

Every data type has a seperate subfield in my array Resultset, CharValue is the 
character subfield in this array
SQLDATA is subfield of SQLVAR
SQL_VAR is array subfield in SQLDA
SQLDA is data structure passed to SQL processor.
SQLIx reference the column number in the SQL resultset

First "link" my Resultset to the SQLDA. Every array element in Resultset 
represents one column of the SQL result set. The same applies to the SQL_VAR.

C                   Eval      SQLDATA = %addr(CharValue(SQLIx)) 
C                   Eval      SQL_VAR(SQLIx) = SQLVAR       

After a record fetch per column in recordset 

C                   Eval      SQLVAR = SQL_VAR(SQLIx)  
C                   Eval      Line = %trimr(Line) + %trim(CharValue(SQLIx)) 

So your substring might be:
c                   eval      
wChar=%char(%subst(VarGraph(SQLIx):3:DescribedLength(SQLIx)))    

I would use the actual length retrieved from the SQL function "describe", which 
I store in another array.

Hope this is helpful.

Regards,
Carel Teijgeler.

*********** REPLY SEPARATOR  ***********

On 20-8-03 at 13:02 Ali Ekinci wrote:

>I am now trying to figure out How to get the VarGraphic data out of SQLDATA. 
>I have tried the following, but didn't work out. Any idea what I am missing?
>
>P getVarGraph     B                                                   
>D getVarGraph     PI           256A                                   
>                                                                      
>d wChar           s            256A                                   
>d wLen            s              3S 0                                 
>d VarGraph        s            256C   based(ptr1) varying             
>                                                                      
>c                   eval      ptr1=SQLDATA+2                          
>c                   eval      wLen=%len(VarGraph)                     
>c                   eval      wChar=%char(%subst(VarGraph:1:wLen))    
>c                   return    wChar                                   
>                                                                      
>p getVarGraph     E