We replaced the DSNHLI entries provided by IBM by a homegrown CSECT
(with ALIAS DSNHLI) which does the following:
- check if connection is already established by examining a statically
stored address
(which was initialized to zero)
- if not zero, this is the address of the IBM interface, call it
- if zero, load dynamically a "connection management routine", this routine:
- checks the environment (IMS, TSO, BATCH/CAF, BATCH/RRSAF in our case)
- checks, if connection is already established, if not, it does the
approriate CONNECT
- loads the appropriate IBM interface
- stores its address at the location mentioned above
- calls it
The subsequent calls call the right IBM interface with almost no
additional overhead.
There are also calls from outside to the "connection management routine"
to do
explicit connections and disconnections. Of course, when disconnecting,
the stored
address must be reset to zero.
The whole thing can be called from PL/1, ASSEMBLER or C programs (other
languages
maybe, too),
Kind regards
Bernd
Am 03.02.2012 04:05, schrieb John Gilmore:
Check out the DLLINIT compiler option, and be aware that PL/I has a
FETCH statement. Much that is implicit in other SLPLs can be explicit
in PL/I.
On 2/2/12, Binyamin Dissen wrote:
In COBOL, the DYNAM compiler option will do the job.
ASM, a DSNHLI stub.
How about PLI?
I don't see an obvious option that causes CALL to do a LINK (or CEELOAD) in
place of a statically linked subroutine.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar& Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
