An simple example SDSF REXX exec that might be useful.
Note that the ISFMSG2 stem can be used to trace what variables are being set by
the SDSF command sent to ISFEXEC.
This might help diagnose unexpected results, however be aware that depending on
the number of returned rows you might get a LOT of ISF146I messages in the
verbose stem which will have non-trivial demands on your above the line private
area. In the example, I set the OWNER to the caller userid to hopefully reduce
the size of the result set.
rc = ISFCALLS("ON")
rc = isfquery("ALL")
if rc = 0 then do
say "Rexx invoked from SDSF NP"
end
else do
isfprefix = "*"
isfowner = "*"
address SDSF "ISFEXEC WHO"
say "Rexx invoked from outside SDSF"
say "Contents of WHO response follow :"
do i = 1 to ISFRESP.0
say ISFRESP.i
end
end
say "Prefix = "isfprefix " Owner="isfowner
say "Setting owner to userid"
isfowner = sysvar(sysuid)
address SDSF "ISFEXEC ST (VERBOSE"
say "Contents of VERBOSE messages for ST follow :"
do i = 1 to ISFMSG2.0
say ISFMSG2.i
end
x = ISFCALLS("OFF")
Rob Scott
Rocket Software
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Phil Smith III
Sent: 05 May 2022 01:12
To: [email protected]
Subject: Re: SDSF - ISPF questions (wishes?)
EXTERNAL EMAIL
Shmuel wrote:
>From z/OS 2.5 TSO/E REXX Reference, SA32-0972-50:
>"You can use the SUBCOM command in REXX execs that run in any address
space, TSO/E or non-TSO/E.
>That is, SUBCOM is available from the TSO and MVS host command
environments."
Oh. Well, Rob had written:
>When invoked outside of SDSF, as your example shows, it returns a
>non-zero
return code to indicate that it is not been invoked from SDSF NP %.
>The reason for this is that users can code rexx that can be called from
both environments and can take decisions based on the RC.
So I guess I'm suggesting that this is not the correct way to determine whether
you're "in" SDSF.
But it sounds like his original, well-meant suggestion to add the ISFQUERY call
is just plain not useful for this case, alas. Darn. I was hoping to be able to
find out what the settings were, and for Lionel's utility to be able to display
them. So it's a big "nevermind"!
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support:
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
