I'm a student currently working on a mainframe. I have following Problem: i need to get access to a DB2 via Rexx for CICS. It works with Rexx using DSNREXX. This is not supported in Rexx for CICS. How do i get something out of my DB there?
I tried this:
Code: Select all
000001 "EXECSQL SELECT * FROM PRAK405.ANGESTELLTE "
000002 If rc <> 0 then
000003 do
000004 Say ' '
000005 Say 'Error accessing EMPLOYEE table'
000006 Say 'RC =' rc
000007 Say 'SQLCODE =' SQLCODE
000008 Exit rc
000009 end
000010 EXIT
Code: Select all
Error accessing EMPLOYEE table
RC = -4
SQLCODE = SQLCODE