### Remember to create a "new" function which defines 
### $query and also $dbh in $self. 
### Also, remember to have "use CGI;" in the perl module. 

sub Set_TABLENAME {
my $self = shift;
my %Args = @_;

$Args{'tablename'} = "TABLENAME";
$Args{'columns'} = [LISTCOLUMNS];
my $Result = $self->set_general(%Args);

return ($Result);
}