Please help me for peculiar error in Dbms_sql.

Question

Hi im using form 6i
Send query and display output that is my work
sqltext = 'Select a.vendcode,vendname,ap_documentno,ap_documentdate,b.grinno,sum(nvl(landed_cost,0))+sum(nvl(net_rate,0))+sum(nvl(c.cessamount,0))+sum(nvl(vatamount,0)) apGrinval
from billmain a,Billitem b,grinitem c,vendmast d
where a.unitid = :Unit_id
and ap_documentdate between :From_dt and :To_dt
and a.unitid = b.unitid
and a.documentno = b.documentno
and substr(ap_documentno,1,1) <> substr(b.grinno,1,1)
and b.unitid = c.unitid
and b.grinno = c.grinno
and a.vendcode = d.vendcode
and b.partnumber = c.partnumber
group by a.vendcode,ap_documentno,ap_documentdate,b.grinno,vendname';
and i have procedure
PROCEDURE Display_Records(BlockName Varchar2,Sqltext Varchar2) IS
c integer := dbms_sql.open_cursor;
cnt integer;
desctab dbms_sql.desc_tab;
colval varchar(4000);
stat integer;
pitem varchar2(100);
BEGIN
dbms_sql.parse(c,sqltext,1);
Go_Block('Param');
next_item;
Loop
Exit When Upper(Get_item_property(:System.Current_Item,Prompt_Text)) like 'PARAMETER%';      
If Substr(:System.Current_value,-5,1) in ('/','.','-') Then
     dbms_sql.bind_variable(c,RTrim(Get_item_property(:System.Current_Item,Prompt_Text)),To_date(:System.Current_Value,'dd/mm/yyyy'));      
Else
     dbms_sql.bind_variable(c,RTrim(Get_item_property(:System.Current_Item,Prompt_Text)),Rtrim(:System.Current_Value));
     End If;
     next_item;
End Loop;
dbms_sql.describe_columns(c,cnt,desctab);
Go_Block('Data');
First_Record;
For i in 1..cnt Loop
     dbms_sql.define_column(c,i,colval,4000);
End Loop;
stat:=dbms_sql.execute(c);
While (dbms_sql.Fetch_rows(c)>0) Loop
     pitem := Get_block_property(:System.Current_block,First_item);
For i in 1..cnt Loop
     dbms_sql.column_value(c,i,colval);
     If colval = '0' Then
          colval := null;
     End If;
     copy(colval,pitem);
     Next_Item;
     Pitem := :System.Current_Item;
End Loop;
Next_Record;
pause;
End Loop;
Delete_Record;
END;
all th queries r working perfectly but the above query. why i dont know, even the same query without the bold area
its working but result working so I want to include bold creteria.
Nothing error displayed, it is hanging on the area while (dbms_sql.Fetch_rows(c)>0)
but with the same query when i tried in isql*plus it display 70 rows, but here it is hanging.
Please help me what is the error.
kanish

Answer 1

Who told dbms_sql only for database. I had send lot of queries using this coding that is working perfectly except which i post.
Yes, I solved it myself just i changed
rtrim(b.partnumber) = rtrim(c.partnumber)
Thank to all
kanish
Edited by: Kanish on May 1, 2009 11:03 PM