RE: SQLCODE -305

["Peter Colpaert" <Peter.Colpaert@xxxxxxxxxxxx>]

Andy,

almost the same as what I also did, except that I inserted the indicators
between the fields, and not as a separate area.

Anyway, thanks for the help, also to the others who responded.

Regards,

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




"Andrew Goade" <agoade@hubgroup.com>@midrange.com on 24/09/2002 21:24:35
Please respond to rpg400-l@midrange.com
Sent by:  rpg400-l-admin@midrange.com

To:   rpg400-l@midrange.com

cc:

Subject:  RE: SQLCODE -305



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




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