my($dbh) = @_;
    my @datamodels;
    my %filenames;
    my %dbids;
    my $sql = "select DATAMODEL_CD, DB_ID, FILENAME from PRDRELEASE where RELEASE_FG = 1";
    my $sth = $$dbh->prepare($sql)
           or $app->error($FATAL, "Can't do SQL statement [ $sql ] :: $DBI::errstr");
    $sth->execute();

    while (my @values = $sth->fetchrow_array()){
    push (@datamodels, $values[0]);
    $dbids{$values[0]} = $values[1];
    $filenames{$values[0]} = $values[2];
    }#end while loop

    printf("@datamodels\n");
    my $numelements = @datamodels;
    return (\@datamodels, $numelements, \%dbids, \%filenames);