Leenaa
26th March 2003, 10:08
hi all,
i m facing a problem regarding selectempty


My Query is following ************
select tidel002.citt,tidel002.item,tidel002.aitc
from tidel002
where tidel002._index1 = {:tibom010.sitm}
selectdo
selectempty
tidel002.citt = ""
tidel002.aitc = ""
rprt_send()
endselect

Is this a right syntax,as it is not satisfactory,plz help me out where i m wrong !

shirodk
26th March 2003, 10:41
Put rprt_send() after endselect & try
Sanjay

morpheus
26th March 2003, 11:21
If you could specify what exactly you are trying to achieve...

Leenaa
26th March 2003, 12:03
My script ***

select tibom010.mitm,tibom010.sitm,tibom010.cwar
from tibom010
where tibom010.sitm = :bom.sitm| item
as set with 1 rows
selectdo
select tidel002.citt,tidel002.item,tidel002.aitc
from tidel002
where tidel002._index1 = {:tibom010.sitm}
order by tidel002.citt
selectdo
select tcmcs027.citt,tcmcs027.dsca
from tcmcs027
where tcmcs027._index1 = {:tidel002.citt}
selectdo
dsca = tcmcs027.dsca
selectempty
dsca = ""
endselect
selectempty
tidel002.citt = ""
tidel002.aitc = ""
rprt_send()
endselect
endselect

I want to print all the dsca of tibom010.sitm ,from this script It is giving only one dsca against one item,

morpheus
26th March 2003, 12:25
select tibom010.mitm,tibom010.sitm,tibom010.cwar
from tibom010
where tibom010.sitm = :bom.sitm
as set with 1 rows |will return ONLY 1 record
selectdo
select tidel002.citt,tidel002.item,tidel002.aitc
from tidel002
where tidel002._index1 = {:tibom010.sitm}
order by tidel002.citt
selectdo
select tcmcs027.citt,tcmcs027.dsca
from tcmcs027
where tcmcs027._index1 = {:tidel002.citt}
selectdo
rprt_send()
endselect
endselect
endselect



Good Luck

Leenaa
26th March 2003, 13:05
hi morphes !!!!
thanx for ur info,
i add something in this and it solves my problem !
select tibom010.mitm,tibom010.sitm,tibom010.cwar
from tibom010
where tibom010.sitm = :bom.sitm
as set with 1 rows
selectdo
select tidel002.citt,tidel002.item,tidel002.aitc
from tidel002
where tidel002._index1 = {:tibom010.sitm}
order by tidel002.citt
selectdo
select tcmcs027.citt,tcmcs027.dsca
from tcmcs027
where tcmcs027._index1 = {:tidel002.citt}
selectdo
rprt_send()
endselect
selectempty
tcmcs027.dsca=""
endselect
endselect