V3R6 APIs Turn ILE *SRVPGMs into DLLs

[Neil Palmer <neil@xxxxxxxxxxxxxx>]

The following is an excerpt from today's NEWSWire/400


V3R6 APIs TURN ILE *SRVPGMs INTO DLLs
V3R6 has two new APIs that turn ordinary ILE service programs 
(*SRVPGMs) into AS/400 dynamic link libraries (DLLs). DLLs let 
you skip activating code you rarely need or delay activating code 
until later, says Scott Gerard, an AS/400 Division senior 
programmer. Rather than hard-coding *SRVPGM and procedure names 
at compile time, you can use the two new DLL APIs -- QleActBndPgm 
(Activate Bound Program) and QleGetExp (Get Export) -- to compute 
the names at runtime. Postponing these decisions from compile 
time to runtime gives your ILE programs more control and 
flexibility.

To see how powerful the DLL APIs can be, consider the following 
example: A main program starts up and displays a screen that has 
three input fields. The first two fields are the library name and 
object name of a *SRVPGM; the third field is a procedure name. 
The application dynamically activates the *SRVPGM, looks up the 
procedure by name in the *SRVPGM, and then calls it. This 
application would be impossible to write without the DLL APIs, 
Gerard notes.

The APIs let you 1) dynamically activate or load a *SRVPGM and 2) 
get pointers to procedures and data items in the activated 
*SRVPGM. Calling procedures in a DLL is the same as calling 
producedures using a procedure pointer. API QleActBndPgm 
activates the appropriate service program and all service 
programs that are bound to it. The API does this by returning a 
value called an activation mark, which is an integer that 
uniquely identifies the *SRVPGM's activation. The second DLL API, 
QleGetExp, finds an exported symbol in a *SRVPGM. The API returns 
a value that indicates whether the symbol was found, whether the 
symbol is a procedure or a variable, and a procedure pointer or 
space pointer. The two DLL APIs are fully described in OS/400 
Program and CL Command APIs (SC41-4870-00).



********************** ABOUT NEWSWIRE/400 **********************
NEWSWire/400, a weekly e-mail newsletter from the NEWS/400 
Newswatch staff, delivers the latest news right to your monitor. 
Every Wednesday afternoon, we deliver NEWSWire/400 *FREE OF 
CHARGE*! If you don't want to continue receiving NEWSWire/400, 
simply reply to this message with the word <unsubscribe> in the 
Subject Line. For new subscriptions, call (800) 621-1544, fax (970) 663-
3285, or fill out the subscription form in the Newswatch Weekly 
section of NEWS/400's Web site 
(http://www.news400.com/nww/wire-sub.htm). If you have questions 
or comments about an item covered in NEWSWire/400, contact Chris 
Miller, industry reporter, at cmiller@news400.com. Please send 
any technical questions to techcorner@news400.com.
_______________________________
Copyright 1997, NEWS/400
http://www.news400.com





-- 
...Neil Palmer                                      AS/400~~~~~      
...Technical Specialist             ____________          ___  ~     
...NxTrend Technology - Canada      |OOOOOOOOOO| ________  o|__||=   
...Markham, Ontario, Canada         |__________|_|______|_|______)   
...Phone: (905) 731-9000  x238       oo      oo   oo  oo   OOOo=o\   
...e-mail: neil@systemetrix.ca    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *