#!/usr/bin/perl


# Initialize Server Specific Variables
$server = <STDIN>;
$user = <STDIN>;
$password = <STDIN>;
$omnihome = "/app/netcool/omnibus";

# Initialize Variables that define SQL Login Commands
$sqsh_string = "${omnihome}/bin/nco_sql.sqsh -server $server -user $user -password $password";


#----------------------------------------------------------
# Script Body
#----------------------------------------------------------
#$running = `$test`;

# Initialize SQL Action Statements
$sql_select_Procedure = "select ProcedureName, SQLBlock from persist.procedures";

# Select ProcedureName and SQLBLock
&GetRawProcedureData;

my %pairs = split /_KJ_/, $raw_data;
for (keys %pairs) {
    open(my $out, '>>', $_)    or die "open(out): $!\n";
    print $out %pairs{$_};
}
#----------------------------------------------------------
# Subroutines
#----------------------------------------------------------
sub GetRawProcedureData
        {
        $raw_data = `$sqsh_string <<'EOF';
        $sql_select_Procedure
        go
        quit
        EOF`;
        }