SQL Want run.

HI bob,
You need to create a cursor and fetch a record
Try this code

0130.00 addres = '%1811 CLEAR%';
0131.00 /End-Free
0132.00
C/EXEC SQL
C+ DECLARE xxx DYNAMIC SCROLL CURSOR FOR
0134.00 C+ select a.primary_no, a.pre_d00001, a.stree00001, a.suffix,
0135.00 C+ a.secon00001
0136.00 C+ INTO :crprimno:nullt1, :crpredir:nullt2,
0137.00 C+ :crstrnm:nullt3, :crsufix:nullt4,
0138.00 C+ :crqulf:nullt5
0139.00 C+ from "INNOPFLS"/"ADDRESS" a
0140.00 C+ where a.addr1 like :rtrim(addres)
0141.00 c+ order by a.stree00001
0142.00 C/END-EXEC

C/EXEC SQL
C+ OPEN XXX
C/END-EXEC
C/EXEC SQL
C+ FETCH XXX INTO
C/END-EXEC
C/EXEC SQL
C+ CLOSE xxx
C/END-EXEC

Regards,
Srinivas












-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Bledsoe
Sent: Thursday, August 09, 2007 9:36 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: SQL Want run.

This code doesn't run. It complies fine but if you step through it in
debug
it goes to the end with running the SQL. SQLCODE OF SQLCA = 1077952576
which
if I understand correctly is just garbage in the field before the SQL is
run. Can anyone tell me what I've done wrong?

0130.00 addres = '%1811 CLEAR%';
0131.00 /End-Free
0132.00
0133.00 C/EXEC SQL
0134.00 C+ select a.primary_no, a.pre_d00001, a.stree00001, a.suffix,
0135.00 C+ a.secon00001
0136.00 C+ INTO :crprimno:nullt1, :crpredir:nullt2,
0137.00 C+ :crstrnm:nullt3, :crsufix:nullt4,
0138.00 C+ :crqulf:nullt5
0139.00 C+ from "INNOPFLS"/"ADDRESS" a
0140.00 C+ where a.addr1 like :addres
0141.00 c+ order by a.stree00001
0142.00 C/END-EXEC