Re: No records in SQLRPG

If you debug and stop just after the open cursor statement then display the
job, u will see which file is opened ( option 14 on the menu). If u press
F11 u get the name of the format.

This is interesting for me. I just changed a RPGLE to SQLRPGLE and did a
complicated select on a file that was already defined in the F specs. My SQL
statement did 3 selects joined by UNION.

Now, when I display the job, when the cursor opens I see the file listed for
each of the 3 selects, with format names FORMAT0001 to FORMAT0003. So I now
have 3 more access paths than before.


----- Original Message -----
From: "Johan Vangilbergen" <jvg@xxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, October 23, 2007 8:20 PM
Subject: RE: No records in SQLRPG

No, there is only one file




Johan Vangilbergen

YUSE
Phone : +32 16 74 50 80
Fax : +32 16 74 50 89
Email : jvg@xxxxxxx
Web : WWW.Yuse.be
Address : Bondgenotenlaan 138, B-3000 Leuven, Belgium
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: dinsdag 23 oktober 2007 13:17
To: RPG programming on the AS400 / iSeries
Subject: Re: No records in SQLRPG

Do you have multiple copies of the file in your library list?

On 10/23/07, Johan Vangilbergen <jvg@xxxxxxx> wrote:

Dear list,



I'm having a SQLRPG program with the following structure :



/EXEC SQL

Declare A Cursor For Select ......

/END-EXEC



/EXEC SQL

Open A

/END-EXEC



/EXEC SQL

Fetch next from A into .....

/END-EXEC



Dow Sqlstt = '00000'

Do some stuff ...

/EXEC SQL

Fetch next from A into ....

/END-EXEC

Enddo



When I debug this program, I always get Sqlstt = '02000' and SQLCOD =
100, which means no records. However, if I run my select statement in
interactive SQL (via STRSQL) I do get some records.



Can anyone tell me what I'm doing wrong in my SQLRPG ?







Johan Vangilbergen



YUSE

Phone : +32 16 74 50 80

Fax : +32 16 74 50 89

Email : jvg@xxxxxxx <mailto:jvg@xxxxxxx>

Web : WWW.Yuse.be <http://www.Yuse.be>

Address : Bondgenotenlaan 138, B-3000 Leuven, Belgium



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


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