RE: SQLCODE -305 -- RPG400-L

Peter,
        I would suggest that you use the system views for this processing.
No guarantee that IBM will not change the underlying table that the views
are built over.  Plus, they are segmented into specific information that is
relevant to the type of data they return.  You will need SYSCOLUMNS.  The
format of the SYS* views is (I believe) a SQL standard, but QADBIFLD is not.
Since there is no way to dynamically create a null bit map structure (that I
came up with) you are going to need to define it based on the view as it is
today.


Thank you,
Matt Tyler
Mattt@wincofoods.com

-----Original Message-----
From: Peter Colpaert [mailto:Peter.Colpaert@honda-eu.com]
Sent: Tuesday, September 24, 2002 03:55
To: RPG400-L@midrange.com
Subject: SQLCODE -305

Hi group,

I have a strange SQLRPGLE problem.

When I try to get a list of files using a certain field on screen using an
embedded SQL RPGLE program, I get no info on the screen, but when I execute
the SQL statment in interactive SQL, I do get a number of records.

These are the relevant program specs:

 *
d  DsQaDbiFld   e ds                  extname(qadbifld)

c/exec sql
c+ Declare CR1 cursor for
c+  Select *
c+  From qadbifld
c+  Where dbifld = :k1fld
c+  Order by dbilib, dbifil, dbifmt
c/end-exec
 *
c/exec sql
c+ open CR1
c/end-exec
 *
c                   Dou       SqlCod <> *zeros
 *
c/exec sql
c+ fetch CR1 into :DsQaDbiFld
c/end-exec
 *
c                   If        SqlCod = *zeros
 .... some processing
c                   Endif
c                   Enddo

The SQLCOD is -305.

According to the IBM site this means that an indicator variable is
required.

The archives indicate that you have to provide an additional field for
every field that is null-capable.

Does this mean that I have to manually specify all fields in DsQaDbiFld,
adding additional fields for every field that is null-capable, or is there
an easy way to tell
the program to substitute null numeric fields by *zero and null alpha
fields by *blanks, while still retaining the easy EXTNAME keyword?

Thanks for any help with this.

Peter Colpaert
Application Developer

Honda Europe NV
Langerbruggestraat 104
B-9000 GENT
Belgium
Peter.Colpaert@honda-eu.com
Tel: +32 9 2501 334
Fax: +32 9 2501 231
----------
Yoda of Borg are we: Futile is resistance. Assimilate you, we will.
----------




______________________________________________________________________
The information contained in this communication is confidential and may be
legally privileged. It is intended solely for the use of the individual or
the entity to whom it is addressed and others authorised to receive it. If
you have received it by mistake, please let the sender know by e-mail reply
and delete it from your system.
If you are not the intended recipient you are hereby notified that any
disclosure, copying, distribution or taking any action in reliance of the
contents of this information is strictly prohibited and may be unlawful.
Honda Europe NV is neither liable for the proper and complete transmission
of the information contained in this communication nor for any delay in its
receipt.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.