Select Code to Download

create_profile( $dbh, $profile_ref )

my $profile_ref ={
                        PROFILE_NAME => "test_profile",
...
    PRIVATE_SGA => "UNLIMITED",
    PASSWORD_LIFE_TIME => "90"
    };

sub create_profile()
{
    my ($dbh, $profile_specs_ref) = @_;
    my ($sql, $key, $value);
        my %profile_specs = %{$profile_specs_ref};