Thanks so much for pointing me to CSVQUERY .... Could it be any easier than
that to get what I needed? :-)
As for using IC/ICM... I opted to test the length at the top of my loop,
then just point to the next one at the bottom of the loop. I prefer exiting
the loop from one place, at the expense of an unnecessary Add-Register &
unconditional Branch-Relative.
Is it possible for the TIOT to have no entries?
If I knew the TIOT could never be empty, I'd change the code to test the
length only at the bottom as you suggest ...
using psa,0
l r2,psatold
using tcb,r2
l r2,tcbtio
using tiot1,r2
tiotLoop ds 0h
.... "process tiot entry"
sr rx,rx (if the register is changed in the loop)
icm rx,b'0001',tioelngh get offset to next tiot, set cc
la r2,0(rx,r2) point to next possible entry (no cc change)
jnz tiotLoop go if there is another entry
Thanks again. :-)
Donald Russell
On Fri, Mar 7, 2014 at 12:10 PM, Shmuel Metz (Seymour J.) <
shmuel+ibm-m...@patriot.net> wrote:
> In
> <cacdkjfqw0_gvm_oswhtacjfmgddvwdzxuxzjisqtpkjmf72...@mail.gmail.com>,
> on 03/06/2014
> at 08:18 PM, Donald Russell <russell....@gmail.com> said:
>
> >I'm writing some assembler code and need to get the name of the
> >currently running load module, but where is that?
>
> What do you mean by "currently running"? If someone did a LOAD and
> called you at the retruned entry point, is it the caller or the callee
> that is currently running? After you have answered that, use CSVQUERY.
>
> >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?
>
> Yes; there is a limit on the permitted size.
>
> >(I thought it was a fixed size, and then had some sort of extension
> >block as needed,
>
> No; don't confuse TIOT with XTIOT.
>
> >So, would this be correct?
>
> Yes, although I would use an ICM to test in order to get rid of the IC
> unless the intervening code altered R1.
>
> --
> Shmuel (Seymour J.) Metz, SysProg and JOAT
> ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
> We don't care. We don't have to care, we're Congress.
> (S877: The Shut up and Eat Your spam act of 2003)
>
> ----------------------------------------------------------------------
> 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
