I took this out of an ASSEMBLER macro which checks for the
existence of a DD Name. The macro belongs to a large application system
which has its origins in the early 1970 years - which makes 40 years -
and runs until today -
and will run until 2020, at least - the last plan to shut it down at end
2016 was cancelled,
because the follow-up system didn't meet the schedules so far. The old
system was
expanded and developed through the years, but the core engine stayed the
same.
I'm well aware of the short path to PSATOLD; I am using this at several
other places.
Maybe I should change this old macro - because I am the maintainer now,
I could
really do it.
Thank you, kind regards
Bernd
Am 20.11.2013 14:11, schrieb Peter Relson:
L R1,16 CVT POINTER
L R1,0(R1) TCB TABLE
L R1,4(R1) OWN TCB
FWIW, the above sequence hasn't been necessary for probably 25+ years (it
does still work). Instead
L R1,X'21C'(0,0) PSATOLD, address of this TCB
Similarly, PSAAOLD for the ASCB.
By the way, using the form that loads the CVT pointer (or TCB pointer,
etc) with "(0,0)" or "(,0)" will avoid a warning from the assembler's
"flag(page0)". We have found that option to be very useful.
Peter Relson
z/OS Core Technology Design
----------------------------------------------------------------------
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