Select Code to Download

#!/usr/bin/perl

...
        EOF`;
        }

 output from query script:
send_email_yvs_kj_
create or replace procedure send_email (in node character(1), in sever
+ity integer, in subject character(1), in email character(1), in summa
+ry character(1), in hostname character(1)) executable '$OMNIHOME/util
+s/nco_mail' host hostname user 0 group 0 arguments '\''+node+'\'', se
+verity,'\''+subject+'\'','\''+email+'\'','\''+summary+'\'';_yvs_kj_
...
        set tec_severity = 10    
    end if;
END_yvs_kj_