Re: Embedded SQL

Personally, I would change the line


D   nlind                        4B 0 dim(65)
to
D   nlind                         n   dim(65)

The "n" data type is indicator.  But I don't know if it will solve your
problem, has I've never used the null indication.  Just find out about it
yesterday.  Kinda odd that you would be asking about it today.  LOL.

Ciao!
Michael Schutte
Classic Italian dishes with a Bob Evans Twist - Enjoy our new Homestyle
Pastas!


rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/18/2006 07:26:43 AM:

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


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.