------------------------------------------------------------ Please SuggestHi, I am trying to print the values in perl while working with oracle my code is ---------------------------------------------------------------------- +------------------------ $sth = $dbh->prepare(q{ DECLARE user_id VARCHAR2(50); input_booking_seq VARCHAR2(50); fax_header VARCHAR2(50); file_no VARCHAR2(50); BEGIN select user_id,passkey, '//FAX(fax=' || passkey1, passkey2 into user_id,input_booking_seq,fax_header,file_no from edit_table where edit_table.tag = 'BOOKING' and edit_table.key = 'PRINT' and passkey = '1533805'; dbms_output.put_line('The values are '||input_booking_seq); END; }) or die $dbh->errstr; $dbh->func( 1000000, 'dbms_output_enable' ); $dbh->func( $values, 'dbms_output_put' ); $values = $dbh->func('dbms_output_get' ); $sth->execute; print "$values \n";
In reply to Re^3: Problem in Executing PL/SQL block with Perl
by denzil_cactus
in thread Problem in Executing PL/SQL block with Perl
by denzil_cactus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |