Re: Embedded SQL

[Peter Levy <plevy@xxxxxxxxxxxx>]

Don't know about an array. If I was coding this I'd add:

     D HoststrNull       s            5I 0

      /free

      exec sql
         fetch CSR into :Hoststr:HoststrNull;


After the FETCH if HoststrNull is less than zero then Hoststr is null.

Thomas Pheister wrote:
> Hello:
>
> I am just starting to use embedded SQL in my RPG Ile programs.  Most of my
> physical files have null capable fields in them.  I am using an externally
> defined Data Structure as the host variable for the Fetch into.  I get an
> error on the fetch (-305) which indicates that I need to include an
> indicator array for the null indication.  How do I define the null indicator
> array?  When I define a second Data Structure, the SQL preprocessor says
> that the variable is undefined or unusable.  The code I am trying to compile
> is shown below:
>
>     H/Title  Test of Embedded Sql
>
>     D Hoststr       E DS                  extname(ordrfile)
>
>     D Indarr          DS
>     D   nlind                        4B 0 dim(65)
>       /Free
>
>        exec sql
>           declare CSR cursor for
>              select * from ordrfile
>              where status not in('S','C','D')
>              order by ordrno desc;
>        exec sql
>              open CSR;
>        exec sql
>           fetch CSR into :Hoststr :Indarr;
>
>        Return;
>       /end-free
>
> Thomas H. Pheister
> VP-Administration
> Johnson Centrifugal
>
>
>