×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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.
midrange.com
