Re: How NOT to use an API on a previous release

This probably isn't a good idea that I am about to convey, but it is a way
to get around the issue. At install time of your software you could check
to see what version of the OS they are on, and if it is before V5R3 you
could create a dummy program named QPMLPMGT in your library so it can
resolve appropriately at runtime. Obviously this could get messy because
you just created a program with the name of an IBM object in a newer OS
release.

One of the very cool features in V6R1 is that service programs have lazy
loading of objects (i.e. it is only loaded into memory upon usage instead of
loading all of them at the on-set of the call).

HTH,
Aaron Bartell
http://mowyourlawn.com

On Tue, Apr 29, 2008 at 10:31 AM, Doug Davie <dougdavie@xxxxxxxxx> wrote:

In one of my RPG *MODULEs, I am using the API dlpar_get_info from the
service program QPMLPMGT to retrieve LPAR information.
This *MODULE is bound together with 5 other *MODULEs into my *PGM.
I display the LPAR information retrieved on the screen.

QPMLPMGT became available in V5R3, yet I must still support customers
on releases prior to that.
When my customer on V5R2 attempts to run this program, they receive:
CPD0192: Service program QPMLPMGT not found.

It seems that when the program is initialized, it recognizes right off
that QPMLPMGT is not available.
Is there a way to get it to not check until I need it?
For example, I thought of something like this:


D GetLparInfo PR 10I 0 EXTPROC('dlpar_get_info')
D Receiver 344
D Format 10I 0 Value
D RcvrLen 10I 0 Value

MONITOR;
RtnValue = GetLparInfo(Receiver:Format:RcvrLen);
ON-ERROR;
RtnValue = 0;
ENDMON;

If RtnValue > 0
....
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.