Re: Floating Point Question

["Nelson C. Smith" <ncsmith@xxxxxxxx>]

-----Original Message-----
From: Colin Williams <Williamsc@technocrats.co.uk>
To: 'MIDRANGE-L@midrange.com' <MIDRANGE-L@midrange.com>
Date: Monday, August 16, 1999 6:03 AM
Subject: RE: Floating Point Question


>Yes, sounds interesting. Yes, those API names would be handy.


QleActBndPgm to activate the service program, and
QleGetExp to get the pointer to an Export in that service program.

You do need to know the name of the procedure and service program you are
looking for before calling the above API's to get it's address.  I get mine
out of a control file.

Once you have the pointer, you can call the procedure dynamically without
having known it's name at compile time.  Just define a procedure prototype
and use the keyword EXTPROC like:

D SomeProcedure     PR            EXTPROC(somepointer)

D    SomePointer        S                *    PROCPTR

Then, in your code:

C                EVAL      SomePointer    =    (call a procedure here that
uses the two API's above and returns a pointer)
C                CALLP    SomeProcedure


NOTE: be sure to define the pointer as a procedure pointer.  That was
Barbara's little trick that made it all work.

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---