RE: SQLCODE -305

["Andrew Goade" <agoade@xxxxxxxxxxxx>]

Peter,
Here's what I did:

d indary          s              4b 0 dim(8)
D P$SQLDS         DS
D dbILIB                        10a
D dbIFIL                        10a
D dbIPOS                         4b 0
D dbIFLD                        10a
D dbIITP                         1a
D dbIILN                         9b 0
D dbITYP                         8a
D dbINSC                         4b 0

C/EXEC SQL
C+ DECLARE S CURSOR FOR
C+ SELECT DBILIB,DBIFIL,DBIPOS,DBIFLD,DBIITP,DBIILN,DBITYP,DBINSC
C+ FROM QADBIFLD
C+ WHERE DBILIB = :DbLib and DBIFIL = :DbFil
C+ ORDER BY DBIPOS
C+ FOR FETCH ONLY
C/END-EXEC
C*
C/EXEC SQL
C+ OPEN S
C/END-EXEC
C/EXEC SQL
C+ FETCH S INTO :P$SQLDS:indary
C/END-EXEC
C*
C                   DOW       SQLCOD = *ZEROS

Other Code

C/EXEC SQL
C+ FETCH S INTO :P$SQLDS:indary
C/END-EXEC
C                   ENDDO
C/EXEC SQL
C+ CLOSE S
C/END-EXEC

Hope this Helps.

Andy









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