Re: PCO's Name Resolution List and PCO's QTEMP position in *LIBL, on V5R1 and above

Matías Centeno Lozada wrote:

Hi Folks.
The following piece of code works perfect on V4R5 (from Gene's example
available at (http://archive.midrange.com/mi400/199912/msg00025.html):

DCL DD QTEMPPOS BASPCO POS(H'4FF') BIN(2);
DCL SYSPTR .LIBL(25) BASPCO POS(H'511');

Those offsets aren't the same on V5R1 and above:

(.LIBL = Name Resolution List)

.LIBL - V4R5 - H'510'
QTEMPPOS - H'4FF'

.LIBL - V5R1 - H'1D80'
QTEMPPOS - V5R1 - ???

.LIBL - V5R2 - H'1E00'
QTEMPPOS - V5R2 - ???

.LIBL - V5R3 - H'1E00'
QTEMPPOS - V5R3 - ???

.LIBL - V5R4 - H'21A0'
QTEMPPOS - V5R4 - ???

I'm still having no success to find the QTEMPPOS at V5R1, V5R2, V5R3, V5R4.

Any ideas ?

Hi Matías,

You're so close. You managed to figure out where the library list
starts (actually, it's a list of system pointers). I assume you used
DMPSYSOBJ OBJ(*PCS) to find them.

If you look at your *PCS dump and find the library offset, the qtemp
position number will be in the position 17 bytes (H'11') back (less).
You could calculate the position or use these values.

Rel. Libl QTEMPPOS
V5R1 H'1D80' H'1D6F'
V5R2 H'1E00' H'1DEF'
V5R3 H'1E00' H'1DEF'
V5R4 H'21A0' H'218F'

Easy to confirm. Just move qtemp to another library list position and
compare dumps.


Keith