View previous topic :: View next topic
|
Author |
Message |
Renato Zangerolami
New User
Joined: 06 Dec 2019 Posts: 28 Location: Brazil
|
|
|
|
I'm trying to display the class of a particular ims transaction via rexx, does anyone have any suggestions on how to do it? |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1337 Location: Bamberg, Germany
|
|
|
|
What have you tried so far? |
|
Back to top |
|
|
Renato Zangerolami
New User
Joined: 06 Dec 2019 Posts: 28 Location: Brazil
|
|
|
|
Code: |
/* rexx */
"CART XXXX" /* XXXX= TRANSACTION */
"QRY TRAN NAME(XXXX) SHOW(STATUS)"
RESULTS = CSLULGTS("RESP.","XXXX","3:15")
DO IDX = 1 TO RESP.O
PARSE VAR RESP.IDM . "TRAN(XXXX" . ,
"MBR(" IMSNAME ") . ,
"LSII("STATUS")" .
END |
I also tried to use this command
Code: |
IMFEXEC CMD '/DIS TRAN XXXX |
**
if it is possible to save the class in a variable it also helps.
Coded for you - please do it yourself next time |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2454 Location: Hampshire, UK
|
|
|
|
What was the problem with that code?
Have youtried using OUTTRAP to capture the output? |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1337 Location: Bamberg, Germany
|
|
|
|
Code: |
DO IDX = 1 TO RESP.O
PARSE VAR RESP.IDM . "TRAN(XXXX" . ,
"MBR(" IMSNAME ") . ,
"LSII("STATUS")" . |
I would try parsing RESP.IDX first rather than RESP.IDM. Minor issues can have consequences too. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2594 Location: Silicon Valley
|
|
|
|
If you want the class value, you have to ask for it in the SHOW() parameter:
Code: |
"QRY TRAN NAME(XXXX) SHOW(STATUS,CLASS)" |
FYI: I created the REXX SPOC API of IMS when I worked for IBM! I consider it one of the most important contributions of my career. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2594 Location: Silicon Valley
|
|
Back to top |
|
|
Renato Zangerolami
New User
Joined: 06 Dec 2019 Posts: 28 Location: Brazil
|
|
|
|
Thank you guys for answer!
I was able to execute the command using sdsf to display the class follows the code:
Code: |
RC=ISFCALLS('ON')
ADDRESS SDSF "ISFEXEC /IMSTDIS TRAN XXXX"
DO IX=1 TO ISFULOG.0
SAY ISFULOG.IX
END |
|
|
Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
Pedro wrote: |
If you want the class value, you have to ask for it in the SHOW() parameter:
Code: |
"QRY TRAN NAME(XXXX) SHOW(STATUS,CLASS)" |
FYI: I created the REXX SPOC API of IMS when I worked for IBM! I consider it one of the most important contributions of my career. |
Great work, Pedro! I use the SPOC Rexx interface a lot in my work. Thanks especially for the cslulgtp functionality that stores the response in stem variables. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2594 Location: Silicon Valley
|
|
|
|
Quote: |
Great work, Pedro! I use the SPOC Rexx interface a lot in my work. |
You are welcome! |
|
Back to top |
|
|
Renato Zangerolami
New User
Joined: 06 Dec 2019 Posts: 28 Location: Brazil
|
|
|
|
Pedro, I'm sorry for my lack of sensitivity in failing to recognize your great work done.I believe that I will use the CSLULGTP function a lot. Thank you.
I have another question, regarding IMS, we access transactions through the terminal using logon applid = imst and logon applid = ms2d, in my test, I need to change the transaction class in both accesses. So far I was able to change only in imst, in ms2d the command is not recognized. Can you explain the difference between them and how do I change the class via ms2d?
* Through the terminal it is possible to change the class via ms2d and imst. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2454 Location: Hampshire, UK
|
|
|
|
One question per topic. Locked. |
|
Back to top |
|
|
|