|
View previous topic :: View next topic
|
| Author |
Message |
dsivapradeep
New User
Joined: 06 Jul 2012
Posts: 43
Location: INDIA
|
|
|
|
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 |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| 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
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
www-01.ibm.com/support/docview.wss?uid=swg24021549
Your just flunked Your homework  |
|
| Back to top |
|
|
dsivapradeep
New User
Joined: 06 Jul 2012
Posts: 43
Location: INDIA
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| 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 )
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 
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 |
|
|
dsivapradeep
New User
Joined: 06 Jul 2012
Posts: 43
Location: INDIA
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| because You did not care to follow the installation instructions. |
|
| Back to top |
|
|
|
|
