|
View previous topic :: View next topic
|
| Author |
Message |
tneelakandan
New User
Joined: 22 Nov 2019
Posts: 5
Location: Germany
|
|
|
|
Hi,
Could anyone help in providing the REXX to execute the command
/DIS ACT
which is used to get the IMS Message processing regions.
Thanks |
|
| Back to top |
|
 |
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2594
Location: Silicon Valley
|
|
|
|
This is the example that I put in the manuals when I worked for IBM:
| Code: |
Address LINK 'CSLULXSB'
Address IMSSPOC
/*-------------------------------------------------------------
| 'ims' defines the IMSplex that receives the commands |
| |
| 'route' defines which IMSplex members in the IMSplex |
| receives the commands. If ROUTE is not specified or if |
| ROUTE * is specified, commands are routed to all IMSplex |
| members. |
| |
| 'wait' provides a timeout value to OM. The time is in |
| mmm:ss format (or ssss if no colon is specified). |
| |
| 'cart' establishes the command response token for subsequent |
| commands. |
| |
| 'end' frees control blocks |
| |
--------------------------------------------------------------*/
"IMS IPLX4"
"ROUTE IMS1,IMSB"
"WAIT 5:00"
"CART DISTRAN"
"/DIS TRAN PART"
/*-------------------------------------------------------------
| The cslulgts function retrieves data associated with a |
| a specific token and fills in a REXX stem variable. In |
| this example, it waits 59 seconds. |
| |
| The XML statements returned are put in the stem variable |
| specified by the user. |
| |
--------------------------------------------------------------*/
spoc_rc = cslulgts('DISINFO.','DISTRAN',"59")
do z1 = 1 to DISINFO.0
/* display each line of XML information */
Say disinfo.z1
end
"END"
|
That assumes that you have set up the Common Service Layer, have permissions, etc...
See the Common Service Layer manual |
|
| Back to top |
|
|
tneelakandan
New User
Joined: 22 Nov 2019
Posts: 5
Location: Germany
|
|
|
|
Hi Pedra,
Thanks! I was referring to the same REXX from the manuals..
Glad to know and discussing with the owner of this.
I had two challenges but I had overcome it.
i. Knowing the IMSPlex name.
I didn't know how to find the IMSPlex name. I had to contact a person from operation team to find this information.
Is there a way to find the IMSPlex name?
ii. Executing the REXX in a system where the IMS system is not installed.
We have 3 systems running, I am running my REXX in TSO session in System 1 but the IMS is installed in System 3. So, my REXX was not working from TSO session in System 1. But if I login to TSO session in System 3, then the same REXX is working.
My question is, is there a possibility to run the REXX from TSO Session in System 1 itself?
Is there a equivalent in REXX to that of JCL syntax /*JOBPARM SYSAFF=? |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| Why not run it in batch on that system? |
|
| Back to top |
|
|
tneelakandan
New User
Joined: 22 Nov 2019
Posts: 5
Location: Germany
|
|
|
|
Hi,
It is possible. But I want to know how to make it possible in REXX if at all it is possible. |
|
| Back to top |
|
|
tneelakandan
New User
Joined: 22 Nov 2019
Posts: 5
Location: Germany
|
|
|
|
Also, I want to read the region number and issue stop region command.
DO Z1 = 1 TO DISINFO.0
REGION_NAME = SUBSTR(DISINFO.Z1,16,8)
REGION_NO = SUBSTR(DISINFO.Z1,13,2)
IF REGION_NAME = "The region I want to restart" THEN
DO
"/STO REG "REGION_NO""
END
END
Does it work as it is? Or Should there something more to be done to execute the STOP REGION command? |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| Run your rexx program as a batch job on that other system!!!!!!!!!!!!!!!!!!!!!!!!!! |
|
| Back to top |
|
|
tneelakandan
New User
Joined: 22 Nov 2019
Posts: 5
Location: Germany
|
|
|
|
OK.
How shall I execute this command in REXX?
"/STO REG "REGION_NO"" |
|
| Back to top |
|
|
|
|
