Hi Jon,
You can make it work using the lib/pgm form - as in the following
example:
D UsrPgm Pr ExtPgm( UsrPgm_q )
...
UsrPgm_q = '*LIBL/PGM';
Monitor;
UsrPgm();
On-Error;
*InLr = *On;
EndMon;
Best regards,
Carsten
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: 26. februar 2009 18:15
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Problem with duplicated program names
On 26-Feb-09, at 10:42 AM, rpg400-l-request@xxxxxxxxxxxx wrote:
hi Jon,
I don't follow that... why do you say it doesn't support library
resolution?
Hi Scott,
Originally I thought it did support it - in fact I expected this to
"work":
D Prog pr extpgm(name)
D name s 20 Inz('AA NOTFOUNDXX')
/free
prog();
*inlr = *on;
I expected a failure because there is no library NOTFOUNDXX. But in fact
it resolves via the library list and finds a copy of 'AA' that way.
This communication is intended only for use by the addressee.It may contain confidential or privilegedinformation.
If you receive this communication unintentionally, please inform us immediately and delete this e-mail and any attachments.
Warning: Although we have taken reasonable precautions to ensure no viruses are present in this email, we cannot accept
responsibility for any loss or damage arising from the use of this email orattachments.
As an Amazon Associate we earn from qualifying purchases.