my $D = new bpoStub;
.
.
.
$sql = "select DBCompNum from FieldMap where 
     DBTable=\"$DBTable\" and 
     FormID = $FormID 
     group by DBCompNum";
@rowscomp = $D->select($sql);
for $countc ( 1 .. $#rowscomp ) {
    .
    .
    .
}