With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated.
-----Message d'origine----- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak On Thu, Sep 9, 2010 at 5:35 PM, CUNY Yann <yc...@externe.generali.fr> wrote: > 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 > ---------------------------------------------------------------------- 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
