How do i run my Rexx Programm in CICS



Support for CICS/ESA, CICS/TS & Transaction Gateway, CICS Configuration Manager and CICS Performance Analyzer

How do i run my Rexx Programm in CICS

Postby buzzd » Sun Mar 29, 2015 3:47 am

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 ?
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

Postby 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.
Robert Sample
Global moderator
 
Posts: 3719
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

Postby 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?
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

Postby 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 :mrgreen:

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-sorichetti
Global moderator
 
Posts: 2994
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

Postby 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

Postby 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 :evil:

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-sorichetti
Global moderator
 
Posts: 2994
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

Postby 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:
 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   


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                               


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                                             


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


Return to CICS

 


  • Related topics
    Replies
    Views
    Last post