Thanks Chris, Great info.... :-) In my case I'm looking at the TIOT before any DCBs have been opened, so even if FREE=CLOSE is specified, I'm still interested in the DD name....
Cheers, Donald Russell On Fri, Mar 7, 2014 at 6:57 AM, Blaicher, Christopher Y. < cblaic...@syncsort.com> wrote: > To get to the current TCB use: > PSATOLD->TCBRBP->RBCDE->CDENAME > The other gets you to the first task. > > To get to the TIOT use: > PSATOLD->TCBTIO > > A TIOELNGH of zero indicates end of list. If you use FREE=CLOSE, entries > in the TIOT may be marked as inactive. See TIOESTTA/TIOSLTYP bit in > IEFTIOT1 macro. > > Chris Blaicher > Principal Software Engineer, Software Development > Syncsort Incorporated > 50 Tice Boulevard, Woodcliff Lake, NJ 07677 > P: 201-930-8260 | M: 512-627-3803 > E: cblaic...@syncsort.com > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Micheal Butz > Sent: Thursday, March 06, 2014 11:28 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: where to get current module name and scanning tiot > > ASCBXTCB->TCBJSTCB->TCBRBP->RBCDE->CDENAME > > Sent from my iPhone > > > On Mar 6, 2014, at 11:18 PM, Donald Russell <russell....@gmail.com> > wrote: > > > > I'm writing some assembler code and need to get the name of the > > currently running load module, but where is that? I thought it may > > have been in the tcb, but I don't see anything in ikjtcb that looks > > like a module name. :-( Maybe some other block pointed to from the tcb? > > > > I have no idea which control block has that, so I need some clues how > > to find my way to it.... > > > > and... I also need to look in the tiot to check which dd names are in > > the job step > > > > Am I reading the tiot macro correctly? There's a 1 byte length of each > > entry, and the tiot is as large as needed for all DD names in the job > step? > > (I thought it was a fixed size, and then had some sort of extension > > block as needed, but I may be getting mixed up with JFCB or something) > > > > So, would this be correct? > > > > > > lrl r2,@tiot > > using tiot1,r2 > > tiotLoop ds 0h > > cli tioelngh,0 any more tiot entries? > > je endTiotScan go if none > > ... > > sr r1,r1 > > ic r1,tioelngh > > ar r2,r1 point to next item > > j tiotLoop > > endTiotScan ds 0h > > > > > > Thanks very much..... it's been a good number of years since I did mvs > > programming at this level. > > > > Donald Russell > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ________________________________ > > > > ATTENTION: ----- > > The information contained in this message (including any files transmitted > with this message) may contain proprietary, trade secret or other > confidential and/or legally privileged information. Any pricing information > contained in this message or in any files transmitted with this message is > always confidential and cannot be shared with any third parties without > prior written approval from Syncsort. This message is intended to be read > only by the individual or entity to whom it is addressed or by their > designee. If the reader of this message is not the intended recipient, you > are on notice that any use, disclosure, copying or distribution of this > message, in any form, is strictly prohibited. If you have received this > message in error, please immediately notify the sender and/or Syncsort and > destroy all copies of this message in your possession, custody or control. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN