Works fine ! thank you ...
-----Message d'origine-----
De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de
Veilleux, Jon L
Envoyé : jeudi 9 septembre 2010 16:04
À : IBM-MAIN@bama.ua.edu
Objet : Re: REXX : how to determine the member name of a DD card
Here is some sample REXX code that will list the dataset allocated to ddname
DD1 using Listalc st.
/* rexx */
Z=OUTTRAP(SYSOUTLINE.,'*',"NOCONCAT")
ADDRESS TSO
INDEX=' '
"LISTALC STATUS"
Z=OUTTRAP(OFF)
I=1
DO i=1 to SYSOUTLINE.0
test=word(sysoutline.i,1)
if test='DD1' then do
x=i-1
say sysoutline.x
i=sysoutline.0
end
end
exit
Jon L. Veilleux
veilleu...@aetna.com
(860) 636-9179
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Veilleux, Jon L
Sent: Thursday, September 09, 2010 9:28 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX : how to determine the member name of a DD card
Can you use ISRDDN and parse the output?
Jon L. Veilleux
veilleu...@aetna.com
(860) 636-9179
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Dana Mitchell
Sent: Thursday, September 09, 2010 9:13 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX : how to determine the member name of a DD card
On Wed, 8 Sep 2010 10:58:14 +0200, CUNY Yann <yc...@externe.generali.fr> wrote:
>
>//IN DD DSN=P3CUN.YANN.JCL(TEST14),DISP=SHR
>
>I need, in my rexx, to retrieve the member name of the DD CARD IN.
>With
the LISTDSI, I just have the pds name.
>
>Any idea ?
>
You can use OUTTRAP function to trap the output from the 'LISTA STATUS'
TSO command. Then parse through and find the DD you are interested in.
Dana
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
This e-mail may contain confidential or privileged information. If you think
you have received this e-mail in error, please advise the sender by reply
e-mail and then delete this e-mail immediately.
Thank you. Aetna
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
