SQL Want run.

["Srinivas Boggula" <Srinivas.Boggula@xxxxxxxxx>]

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