RE: Embedded SQL

I've run into some odd situations with the null value host data
structure.
Sometimes it lets me specify a null array (5i 0) in a data structure.
But sometimes it complains about that and I then create a data structure
of 5i 0 fields and it accepts that.
No specific examples, but since we were on the topic I thought I'd
mention it. 

Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Thomas Pheister
Sent: Wednesday, October 18, 2006 12:54 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: 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


--
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.