The following sample COBOL program calls an oracle PL/SQL procedure and demonstrates how PL/SQL can be used with LegacyJ:

PL/SQL with LegacyJ

The output from PL/SQL is illustrated as follows:

PLSQL starts at 5:46 pm
After connection: sqlcode=0000000000. sqlstate=00000. sqlerrmc=
After connection: sqlerrml=00000
call update_emp_job_out('oraclepro') sqlcode=0000000000. sqlstate=00000. sqlerrmc=
sql-my-message=COMMIT IS DONE by update_emp_job_out PL/SQL
select empno sqlcode=0000000000. sqlstate=00000. sqlerrmc=
content empno after update_emp_job_out:
7499 Bob oraclepro

call update_emp_job_out(Engineer) sqlcode=0000000000. sqlstate=00000. sqlerrmc=
sql-my-message=COMMIT IS DONE by update_emp_job_out PL/SQL
select empno sqlcode=0000000000. sqlstate=00000. sqlerrmc=
content empno after update_emp_job_out:
7499 Bob Engineer

call update_emp_job_out(software engineer) sqlcode=0000000000. sqlstate=00000. sqlerrmc=
sql-my-message=ROLLBACK IS DONE by update_emp_job_out PL/SQL
select empno sqlcode=0000000000. sqlstate=00000. sqlerrmc=
content empno after update_emp_job_out:
7499 Bob Engineer

DISCONNECT: sqlcode=0000000000. sqlstate=00000. sqlerrmc=

Last updated on December 28, 2009 by Daniel Myers