RE: Embedded SQL

Thanks for all of the tips.  I deleted the Indarr data structure and just
passed the nlind array.  The program compiled and ran successfully.  I have
the technique and have my first embedded SQL program in production.

Thanks to all.

Thomas H. Pheister
VP-Administration
Johnson Centrifugal

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Thomas Pheister
Sent: Wednesday, October 18, 2006 6:27 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Embedded SQL

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