For your TIOT loop, I think it is correct, although the more interesting
part for me would be how to get to the TIOT pointer at the beginning ...
The other question:
I had this problem when trying to translate addresses in a dump to
module names, and I did this by searching the CDE chain and the
XTLST entries which are chained to the major CDEs. The major CDEs
contain the module name, and the XTLSTs chained to them contain
the module start address and the length. So: if the address given
falls into this range, the address is within this module. So you have
a module name and an offset within this module.
The first CDE entry is chained to the TCB, IIRC.
BTW: the DB2 interface DSNALI (CAF batch) had a performance
problem, because it tested on every call (every DB2 fetch), if it was
already loaded by searching the CDE chain sequentially. With long
CDE chains, this was a real nightmare. Only solution for us was:
to get rid of DSNALI in favor of DSNRLI (that is: RRSAF).
Kind regards
Bernd
Am 07.03.2014 05:18, schrieb Donald Russell:
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
