Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

MQ Connectivity in REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries
View previous topic :: :: View next topic  
Author Message
dsivapradeep

New User


Joined: 06 Jul 2012
Posts: 43
Location: INDIA

PostPosted: Thu Jan 31, 2013 7:22 pm    Post subject: MQ Connectivity in REXX
Reply with quote

Hi all,
Till now i worked on MQ connectivity using COBOL. Now as part of some small tool i want to do the MQ connectivity using REXX.
First of all i would like to know whether its possible to connect MQ using REXX or not.
If so can someone provide me pointers for these. Also there is no support PAC for this operation i guess in our Z10 Mainframe. I want to know the suitable support PAC for this MQ connectivity in REXX.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Jan 31, 2013 7:46 pm    Post subject: Reply to: MQ Connectivity in REXX
Reply with quote

Quote:
If so can someone provide me pointers for these. Also there is no support PAC for this operation i guess in our Z10 Mainframe. I want to know the suitable support PAC for this MQ connectivity in REXX.


support PAC as in
http://www-01.ibm.com/support/docview.wss?uid=swg24021549
???

Quote:
Also there is no support PAC for this operation i guess in our Z10 Mainframe.

a support PAC is ... software and i related ONLY to the software present On Your system .

Quote:
Also there is no support PAC for this operation


Your statement is completely wrong ...
most probably You used the wrong search buzzwords ...

googling with a simple mqseries rexx
lead to
http://www-01.ibm.com/support/docview.wss?uid=swg24021549

Your just flunked Your homework icon_biggrin.gif
Back to top
View user's profile Send private message
dsivapradeep

New User


Joined: 06 Jul 2012
Posts: 43
Location: INDIA

PostPosted: Sun Feb 03, 2013 4:44 pm    Post subject:
Reply with quote

I need REXX MQ programming reference manual to learn how to work on MQ using REXX. But i haven't found anything after googling.

Only the Support Pac results i'm getting. Kindly guide me where i can get this reference manual.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Sun Feb 03, 2013 5:49 pm    Post subject: Reply to: MQ Connectivity in REXX
Reply with quote

Quote:
Kindly guide me where i can get this reference manual.


did You care to click on the link I posted ( repeated here for clarity )
http://www-01.ibm.com/support/docview.wss?uid=swg24021549
and read it thoroughly ???

loks like not... if You had You would have found ...


Quote:
Installation Instructions
To install the SupportPac:
1. Download ma95.zip to a temporary directory.
2. Uncompress using InfoZip's Unzip. If you use other unzip programs, ensure you specify the option to re-create stored directories.
3. This will create the necessary files and directories.
4. Follow the instructions provided in the ma95.pdf file.
URL LANGUAGE SIZE(Bytes)
ma95.pdf US English 329896

Download package

Download RELEASE DATE LANGUAGE SIZE(Bytes) Download Options
ma95.zip 18/03/2010 US English 1196688 HTTP


and if You had clicked on the ma95.pdf link and scrolled down a couple of pages
You would have found ... verbatim

Quote:
Take Note!
Before using this User's Guide and the product it supports, be sure to read the general information under
“Notices”.


which implies that this is the document You are looking for icon_cool.gif

the same document/manual is contained in the ma95.zip full package
( I downloaded it and checked to be sure to provide complete an exact info )

for a good insight on the MQ/REXX workings You might want to meditate on the source code
Back to top
View user's profile Send private message
dsivapradeep

New User


Joined: 06 Jul 2012
Posts: 43
Location: INDIA

PostPosted: Tue Feb 05, 2013 10:12 am    Post subject:
Reply with quote

Hi Enrico.. sorry for not going through the document completely. Required programming reference is available in the link provided by you. Thanks for the help.

I'm trying to do the same functions in REXX but getting abend while calling RXMQINIT. The snapshot is shown below.

REXX code for initialization is
Code:
SAY 'HELLO WORLD'       
RXMQTRACE = ''         
RCC = RXMQINIT()       
RXMQTRACE = ''         
RCC = RXMQCONN('CSQ1') 


Error snapshot is
Code:

READY                                                                   
  PROFILE PREFIX(EXXXXXX)                                               
READY                                                                   
  ISPSTART CMD(REXX)                                                   
ISPF system data set allocation error - press Enter to continue.       
Log file allocation error - ISPF will operate without a log data set.   
Data set 'EXXXXXX.SPFLOG1.LIST' in use by another user, try later.     
HELLO WORLD                                                             
IRX0250E System abend code 002, reason code 00000192.                   
IRX0253E Abend in external function RXMQINIT.                           
IRX0410E Unable to delete the specified REXX exec. It cannot be found. 
     4 +++ RCC = RXMQINIT()                                             
IRX0040I Error running REXX, line 4: Incorrect call to routine         
ISPD117                                                                 
The initially invoked CLIST ended with a return code = 20040           
READY                                                                   
END                                                                     


I'm using JCL to submit this REXX.
Code:

//EXXXXXXJ JOB ,,NOTIFY=&SYSUID,CLASS=D,MSGLEVEL=(1,1),MSGCLASS=X 
//STEP1 EXEC PGM=IEBCOPY                                           
//SYSUT1 DD DSN=EXXXXXX.ISPF.ISPPROF,DISP=SHR                     
//SYSUT2 DD DSN=EXXXXXX.ISPF.ISPPROF.TEMP,SPACE=(TRK,(5,5,8)),     
//          DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),DISP=(MOD,CATLG) 
//SYSPRINT DD SYSOUT=*                                             
//SYSIN DD *                                                       
  COPY INDD=SYSUT1,OUTDD=SYSUT2                                   
/*                                                                 
//STEP2 EXEC PGM=IKJEFT01                                                         
//STEPLIB DD DSN='SYS1.LPALIB',DISP=SHR                           
//ISPPROF  DD DSN=EXXXXXX.ISPF.ISPPROF.TEMP,DISP=SHR               
//ISPPLIB DD DSN='ISP.SISPPENU',DISP=SHR                           
//ISPMLIB  DD DSN='ISP.SISPMENU',DISP=SHR                         
//ISPSLIB  DD DSN='ISP.SISPSENU',DISP=SHR                         
//         DD DSN='ISP.SISPSLIB',DISP=SHR                         
//ISPTLIB  DD DSN=EXXXXXX.ISPF.ISPPROF,DISP=SHR                   
//         DD DSN='ISP.SISPTENU',DISP=SHR                         
//*        DD DSN='ISP.SISPTLIB',DISP=SHR                         
//ISPTABL  DD DSN=EXXXXXX.ISPF.ISPPROF,DISP=SHR                   
//SYSEXEC DD DSN=EXXXXXX.TOOLS.DLVSAM.PDS,DISP=SHR                 
//        DD DSN='MQ.MA95.LOAD',DISP=SHR                           
//SYSTSPRT DD SYSOUT=*                                             
//SYSPRINT DD SYSOUT=*                                             
 //SYSTSIN DD *               
  PROFILE PREFIX(EXXXXXX)   
  ISPSTART CMD(REXX)         
/*                         


RXMQINIT and other modules are available in 'MQ.MA95.LOAD'

Why am i getting the abend in Initialization function ?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Tue Feb 05, 2013 12:56 pm    Post subject: Reply to: MQ Connectivity in REXX
Reply with quote

because You did not care to follow the installation instructions.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us