Results under TSO/ISPF:
3 *-* address TSO
4 *-* Myrc = LISTDSI("'TSOUSER.EXEC'")
>L> "'TSOUSER.EXEC'"
>F> "0"
5 *-* Say 'RC='Myrc',reason='SYSREASON
>L> "RC="
>V> "0"
>O> "RC=0"
>L> ",reason="
>O> "RC=0,reason="
>V> "0000"
>O> "RC=0,reason=0000"
RC=0,reason=0000
Results under Unix shell:
/u/tsouser > cat test.rex
/* REXX */
trace "I"
address TSO
Myrc = LISTDSI("'TSOUSER.EXEC'")
say "Myrc="Myrc",reason="SYSREASON
/u/tsouser > ls -la test.rex
-rwxr-xr-x 1 'TSOUSER IPGROUP 100 Aug 25 13:17 test.rex
/u/tsouser > test.rex
3 *-* address TSO
4 *-* Myrc = LISTDSI("'TSOUSER.EXEC'")
>L> "'TSOUSER.EXEC'"
4 +++ Myrc = LISTDSI("'TSOUSER.EXEC'")
IRX0043I Error running ./test.rex, line 4: Routine not found
/u/tsouser >
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Seymour J Metz
Sent: Thursday, August 25, 2022 10:27 AM
To: [email protected]
Subject: Re: How to use LISTDSI from Rexx under Unix shell?
EXTERNAL EMAIL
The current environment shouldn't matter, What is the output from Sample code
to get LISTDSI information on 'profilename.EXEC':
/* Rexx */
trace i
Myrc = LISTDSI('EXEC')
Say 'RC='Myrc',reason='SYSREASON
Do the results change if you fully qualify the name?
--
Shmuel (Seymour J.) Metz
https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!PklzQNpdawcFoesdvpTMIAxVFV0YwB_wzbMOiqhtRUydn0TkPM5kN2sOFZL7gnoPboy6U6-8YX_XX-K26lo4PA$
________________________________________
From: IBM Mainframe Discussion List [[email protected]] on behalf of
Farley, Peter x23353 [[email protected]]
Sent: Wednesday, August 24, 2022 11:44 PM
To: [email protected]
Subject: How to use LISTDSI from Rexx under Unix shell?
Posted earlier today on MVS-OE but got no responses there.
I know this has probably been discussed previously but I can't seem to get the
Marist MVS-OE archive search to work for me.
Is there any way to use the LISTDSI TSO external function from "address tso" in
a Rexx program run under the Unix shell?
I can only get it to return RC = -3, "routine not found". Sample code below.
RTFM seems to indicate that "address tso" in a REXX program run under the Unix
shell will run a TSO TMP in a separate address space, which is OK, I can
capture the output from that as needed, but I am not getting any execution of
LISTDSI at all.
Peter
Sample code to get LISTDSI information on 'profilename.EXEC':
/* Rexx */
Address tso
Myrc = LISTDSI('EXEC')
Say 'RC='Myrc',reason='SYSREASON
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
