Hey, i want to run my Rexx Programm in CICS but i cant find any simple Tutorial.
Let's say i want to display a simple "Hello world" using Rexx instead of COBOL as business logic. Is this possible ?
How do i run my Rexx Programm in CICS
Previous topic • Next topic • 7 posts
• Page 1 of 1
How do i run my Rexx Programm in CICS
by buzzd » Sun Mar 29, 2015 3:47 am
- buzzd
- Posts: 4
- Joined: Fri Mar 13, 2015 1:59 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: How do i run my Rexx Programm in CICS
by Robert Sample » Sun Mar 29, 2015 4:32 am
Is your CICS region set up for REXX? If not, then what you want to do will not be possible -- PERIOD.
If your CICS region is set up for REXX, you need to consult your site support group for instructions on how to execute REXX for CICS at your site. Your site may have done customization that requires special instructions, and nobody at this forum works for your site (most likely) and hence we have no idea about whether or not your site has REXX for CICS installed nor any customizations that have been done at your site.
If your CICS region is set up for REXX, you need to consult your site support group for instructions on how to execute REXX for CICS at your site. Your site may have done customization that requires special instructions, and nobody at this forum works for your site (most likely) and hence we have no idea about whether or not your site has REXX for CICS installed nor any customizations that have been done at your site.
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: How do i run my Rexx Programm in CICS
by buzzd » Wed Apr 29, 2015 8:02 pm
Rexx is now set up for CICS. But when i try to run my program it says DSNREXX is not available.
Enter a REXX command or EXIT to quit
CALL CICIVP1
2 *-* ADDRESS TSO "SUBCOM DSNREXX"
+++ RC(-3) +++
When i exec my program in ispf everything works fine. What do i do wrong?
Enter a REXX command or EXIT to quit
CALL CICIVP1
2 *-* ADDRESS TSO "SUBCOM DSNREXX"
+++ RC(-3) +++
When i exec my program in ispf everything works fine. What do i do wrong?
- buzzd
- Posts: 4
- Joined: Fri Mar 13, 2015 1:59 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: How do i run my Rexx Programm in CICS
by enrico-sorichetti » Wed Apr 29, 2015 10:24 pm
did You care to look at
at least at
http://publibfp.dhe.ibm.com/cgi-bin/boo ... /CCONTENTS
pretty old but better than nothing
and ...
SPEAK TO YOUR SUPPORT
running under CICS the TSO environment is NOT supported
as per the above manual the supported environments are
at least at
http://publibfp.dhe.ibm.com/cgi-bin/boo ... /CCONTENTS
pretty old but better than nothing
and ...
SPEAK TO YOUR SUPPORT
running under CICS the TSO environment is NOT supported
as per the above manual the supported environments are
REXX command environments that are currently available (to use with the
REXX ADDRESS command) are REXXCICS, CICS, EXECSQL, EXECDB2, EDITSVR,
FLSTSVR, RFS and RLS.
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3003
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 164 times
Re: How do i run my Rexx Programm in CICS
by buzzd » Tue Jun 23, 2015 8:35 pm
I still don't manage to get something out of my DB2 with rexx for cics? Does anyone have an working example?
- buzzd
- Posts: 4
- Joined: Fri Mar 13, 2015 1:59 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: How do i run my Rexx Programm in CICS
by enrico-sorichetti » Tue Jun 23, 2015 8:47 pm
I still don't manage to get something out of my DB2 with rexx for cics
our hearts are broken, and we all hope that You will succeed sooner or later
how in heaven do You expect to get any help if the only info You are providing is ...
that something is not working according to Your desires ?
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3003
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 164 times
Re: How do i run my Rexx Programm in CICS
by buzzd » Sat Jun 27, 2015 7:22 pm
I'm sorry if I overstrain your patience but I literally don't have any support and im a young student new in mainframe environment. 
I have done folling REXX program:
Now I wanted to do the same thing under REXX FOR CICS but DSNREXX isn't available.
So I tried to mimic the SQL example of this http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/CICA1A01/2.12.2.3?DT=19940726164308
This is in CICIVP1 DFH310.REXX.SCICUSER,I executed it in REXX FOR CICS "call CICIVP1"
Now i guessed that this isn't working.
I managed to get DB2 data out of a cobol program on cics if that is helpfull on this topic.
Please give me some hints...
I have done folling REXX program:
000100 ADDRESS TSO "SUBCOM DSNREXX"
000200 IF RC=0 THEN
000300 SAY 'DSNREXX IS AVAILABLE'
000400 ELSE
000500 DO
000600 SAY 'DSNREXX IS NOT AVAILABLE'
000700 SAY 'SUBCOM RC:' RC
000800 END
000900 IF RC THEN
001000 DO
001100 S_RC=RXSUBCOM('ADD','DSNREXX','DSNREXX')
001200 SAY 'ADDING DSNREXX...............'
001300 PULL X
001400 END
001410 ADDRESS DSNREXX
001420 "CONNECT" D931
001430 "EXECSL SET CURRENT PACKAGESET ='DSNREXCS'"
001500 SQLSTMT = "SELECT * FROM PRAK405.ANGESTELLTE"
001800 "EXECSQL DECLARE C1 CURSOR FOR S1"
001900 "EXECSQL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTMT"
002000 "EXECSQL OPEN C1"
002100 "EXECSQL FETCH C1 USING DESCRIPTOR :OUTSQLDA"
002110 SAY "OUTPUT" OUTSQLDA
002200 IF SQLCODE = 0 THEN
002300 DO
002400 DO I=1 TO OUTSQLDA.SQLD
002510 SAY" COLUMN NAME: "OUTSQLDA.I.SQLNAME
002530 SAY" COLUMN VALUE: "OUTSQLDA.I.SQLDATA
002540 END
002550 END
002600 "EXECSQL EXECUTE S1 USING DESCRIPTOR :OUTSQLDA"
002700 SAY SQLCODE
002800 RETURN
000200 IF RC=0 THEN
000300 SAY 'DSNREXX IS AVAILABLE'
000400 ELSE
000500 DO
000600 SAY 'DSNREXX IS NOT AVAILABLE'
000700 SAY 'SUBCOM RC:' RC
000800 END
000900 IF RC THEN
001000 DO
001100 S_RC=RXSUBCOM('ADD','DSNREXX','DSNREXX')
001200 SAY 'ADDING DSNREXX...............'
001300 PULL X
001400 END
001410 ADDRESS DSNREXX
001420 "CONNECT" D931
001430 "EXECSL SET CURRENT PACKAGESET ='DSNREXCS'"
001500 SQLSTMT = "SELECT * FROM PRAK405.ANGESTELLTE"
001800 "EXECSQL DECLARE C1 CURSOR FOR S1"
001900 "EXECSQL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTMT"
002000 "EXECSQL OPEN C1"
002100 "EXECSQL FETCH C1 USING DESCRIPTOR :OUTSQLDA"
002110 SAY "OUTPUT" OUTSQLDA
002200 IF SQLCODE = 0 THEN
002300 DO
002400 DO I=1 TO OUTSQLDA.SQLD
002510 SAY" COLUMN NAME: "OUTSQLDA.I.SQLNAME
002530 SAY" COLUMN VALUE: "OUTSQLDA.I.SQLDATA
002540 END
002550 END
002600 "EXECSQL EXECUTE S1 USING DESCRIPTOR :OUTSQLDA"
002700 SAY SQLCODE
002800 RETURN
Now I wanted to do the same thing under REXX FOR CICS but DSNREXX isn't available.
So I tried to mimic the SQL example of this http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/CICA1A01/2.12.2.3?DT=19940726164308
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
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
This is in CICIVP1 DFH310.REXX.SCICUSER,I executed it in REXX FOR CICS "call CICIVP1"
Now i guessed that this isn't working.
Enter a REXX command or EXIT to quit
CALL CICIVP1
1 *-* "EXECSQL SELECT * FROM PRAK405.ANGESTELLTE "
+++ RC(-4) +++
Error accessing EMPLOYEE table
RC = -4
SQLCODE = SQLCODE
CALL CICIVP1
1 *-* "EXECSQL SELECT * FROM PRAK405.ANGESTELLTE "
+++ RC(-4) +++
Error accessing EMPLOYEE table
RC = -4
SQLCODE = SQLCODE
I managed to get DB2 data out of a cobol program on cics if that is helpfull on this topic.
Please give me some hints...
- buzzd
- Posts: 4
- Joined: Fri Mar 13, 2015 1:59 am
- Has thanked: 0 time
- Been thanked: 0 time
Previous topic • Next topic • 7 posts
• Page 1 of 1
-
- Related topics
- Replies
- Views
- Last post
-
- HOW TO COMPILE CICS PROGRAMS WIHTIN CICS
by RAGHAVENDRA » Mon Dec 24, 2007 11:32 pm - 6 Replies
- 8375 Views
- Last post by RAGHAVENDRA
Thu Dec 27, 2007 1:23 pm
- HOW TO COMPILE CICS PROGRAMS WIHTIN CICS
-
- Difference between CICS SIGIN and CICS LOGIN
by syamcs » Thu Oct 27, 2011 10:03 pm - 3 Replies
- 5625 Views
- Last post by syamcs
Fri Oct 28, 2011 5:34 pm
- Difference between CICS SIGIN and CICS LOGIN
-
- I need support for cics BMS language or cics sdf tool
by onox » Sun Sep 04, 2022 10:04 pm - 1 Replies
- 1517 Views
- Last post by prino
Mon Sep 05, 2022 2:12 am
- I need support for cics BMS language or cics sdf tool
-
- CICS developer vs CICS admin
by parthiban » Mon Aug 30, 2010 4:06 pm - 1 Replies
- 4262 Views
- Last post by Robert Sample
Mon Aug 30, 2010 4:58 pm
- CICS developer vs CICS admin
-
- CICS TS 2.3 to CICS TS 3.4 Migration
by adurthisridhar » Thu Mar 04, 2010 11:24 pm - 5 Replies
- 4243 Views
- Last post by Robert Sample
Wed Mar 17, 2010 7:03 pm
- CICS TS 2.3 to CICS TS 3.4 Migration