Concatenate Problem

Ken:

There's many ways to do this. Hopefully, this is what you have in mind:

Regards,

Ed

##("12", "13", "14&quot

main

define scratch CHAR(80),
s1 CHAR(4),
s2 CHAR(4),
s3 CHAR(4),
quote CHAR(4),
comma CHAR(4)

let s1= "12"
let s2= "13"
let s3= "14"
let quote = "\""
let comma = ", "

LET scratch = "(", quote clipped, s1 clipped, quote clipped, comma clipped,
quote clipped, s2 clipped, quote clipped, comma clipped,
quote clipped, s3 clipped, quote clipped,&quot"
end main

What does the ## in front of ("12", "13", "14&quot mean? I want to use it with the result from the parse routine you gave me yesterday. The above would the the final result for my SQL "IN" statement.

Ken

Ken:

This:


##("12", "13", "14&quot

is just a quoted-out string. Sorry if it confused you. I read your question, and I see what you're trying to do.

I'll try to answer your question tonight...

Regards,

Ed

Hi,

Hope the following routine meets your requirement.

Regards,
Shriyan


database testdb
main
call test()
end main

function test()

define i,l_nos smallint, l_string varchar(64)

-- create a temp table and dump sample patterns
create temp table t_x (nos smallint) with no log
for i=10 to 13
insert into t_x values (i)
end for

-- declare a cursor for gathering rows from temp table
declare t_x_cur cursor for select nos from t_x

let l_string='('

open t_x_cur
while (1)
fetch t_x_cur into l_nos
if status=notfound then exit while end if

-- fetched variables are concatenated.
let l_string=l_string clipped, '&quot;', l_nos using &quot;<<<<<&quot;, '&quot;,'
end while

-- cut-off the trailing extra character (,)
let i=length(l_string clipped)
let l_string=l_string[1,i-1], ')'

-- show the result
display l_string

end function

olded....

Here's what I'm getting.

This is the scratch variable
SFDlopro00.4gl:input_form.scratch = &quot;(&quot;TJ&quot;,&quot;ED&quot

When I set m_rpt.prodclass_id = scratch I get the following

SFDlopro00.4gl:m_rpt.prodclass_id = &quot;(&quot;TJ&quot;,&quot;E&quot;

Ken

I figured out the proble why m_rpt.prodclass_id wasn't getting filled in.

Thanks,
Ken