Re: Embedded SQL -- RPG400-L

Hi Michael,

indicators to retrieve information about returned NULL values must bedefined as Small Integer.

The equivalent for small integers in RPG is either 4B 0 or better 5I 0.
If a Null-Value is returned  the appropriate indicator field is set to -1.

If the value for the result column causes a data mapping error, SQL sets theindicator variable to -2.

Otherwise 0 is returned.

For more information about how to handle NULL-Values in embedded SQL look atthe following Redbook Chapter 9:Modernizing IBM eServer iSeries Application Data Access - A RoadmapCornerstone

http://www.redbooks.ibm.com/abstracts/sg246393.html?Open

Mit freunlichen Gruessen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (LesBrown)

"If you think education is expensive, try ignorance." (Derek Bok)

----- Original Message -----From: <Michael_Schutte@xxxxxxxxxxxx>

To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, October 18, 2006 15:02
Subject: 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.


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