Re: Dnamic SQL question

[Barbara Morris <bmorris@xxxxxxxxxx>]

Ali Ekinci wrote:
> ...
> 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
> 

Ali, I don't think you should set the pointer +2.  That moves the
pointer past the length part to the data part, and the %len will try to
interpret the first two bytes of the data as the length.  I think this
will work:

 d wChar           s            256A
 d VarGraph        s            256C   based(ptr1) varying
 
 c                   eval      ptr1=SQLDATA
 c                   return    %char(VarGraph)

(This will only work for CCSID 13488 though - other graphic types would
have to be defined as the RPG G type, and the character value would have
to be 514 bytes.)