Thanks so much Dave, That sounds like what I had done before, in a previous life.... that will be perfect for my needs.
I'm glad I learned about ISRDDN though... that's very cool. Cheers, On Fri, Oct 7, 2011 at 11:58, Dave Kreiss <davekre...@gmail.com> wrote: > Donald, > > If you want to write some assembler you can do the following: > Get TCBJLB which points to the joblib DCB. > Make a copy of the DCB and add an exit (exit 19) to its EXLST (DCBEXLSA) to > fetch the ARL and do a RDJFCB. You now have all the datasets ARAs pointed > to by the ARL. > The DCBTIOT field points to the TIOT entry which will be steplib or joblib > (if no steplib) or zero which is linklist (neither joblib or steplib > present). > You can do a BLDL for your program against TCBJLB and field PDSCNCT (see > IHAPDS) contains the concatenation number zero based. Use this to look at > the nth ARA returned to determine the dataset name. > By the way PSATOLD->TCB and that TCBJSCB->job step TCB and its TCBJSCB > points to the JSCB and JSCBPGMN is your EXEC PGM=. > I have written such a program (though I never tested with that program in > linklist). > > Dave > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On > Behalf Of Donald Russell > Sent: Friday, October 07, 2011 9:41 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: "whereis" command for TSO. > > I had a quick look at ISRDDN.... that is very cool, but I'm not sure now > how > to use it in my application: > > From a rexx program running in a batch job, I call module "mymodule". > Prior to that, I want to write some information about that module to a new > DD. At the very least I want the DSN that "mymodule" will run from when I > do > address linkmvs 'MYMODULE' > > If I included those other attributes, that would be cool, but not a > requirement. > > Thanks > > > On Fri, Oct 7, 2011 at 08:43, Elardus Engelbrecht < > elardus.engelbre...@sita.co.za> wrote: > > > Donald Russell wrote: > > > > >Many years ago, at a job far far away, I wrote a TSO WHEREIS command for > > finding load modules. > > >i.e. I could say TSO %WHEREIS mymodule and it would tell me the DSN, or > > perhaps just "linklist". > > > > Why not use TSO ISRDDN? This will do all and more you want. > > > > TSO ISRDDN > > then type on command line LPA > > then MEM IEFBR14 > > > > or MEM IEFBR14 LINKLIST (search in LNKLST) > > or MEM xxxx LPALIB (search in LPALIB) > > or MEM xxx STEPLIB (search your own TSO Steplib) > > > > >I've been away from MVS programming for a long, long time. > > > > IBM has re-invented that wheel (ISRDDN) many moons ago. :-D > > > > Groete / Greetings > > Elardus Engelbrecht > > > > ---------------------------------------------------------------------- > > 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
