Report with List.

Hai,

I have two report in that i want generate a new report for equal refdes values i used some codes they were attached below.

procedure( compare()

out=outfile("report.rpt")

in1=infile("report1.rpt")

in2=infile("report2.rpt")

while(gets (str, in1)

if(str != nil then

inList = parseString(str ",")

a=car(inList)

)

)

while(gets (str1, in2)

if(str1 != nil then

inList = parseString(str1 ",")

b=car(inList)

(foreach x a

(foreach y b

if(x == y then

fprintf(out,"\n%L",x)

)

)

)

)

)

close(out)

close(in1)

close(in2)

)

For this it comes error; E-*Error* foreach: second argumentt must be a list

For example

Report1:                       Report2:

abc                                abc

bsd                                bcd

ccc                                 ccc

Result:

abc

ccc

Please anybody knows  share me the skill code i dont know how to do this.