Peter,
This prototype has nothing to do with it... it's the code inside CHK_PORT that is probably hanging ?
Provide a program stack, see on which function it hangs... and check that code.
Kind regards,
Paul
________________________________________
From: rpg400-l-bounces@xxxxxxxxxxxx [rpg400-l-bounces@xxxxxxxxxxxx] on behalf of Pete Helgren [pete@xxxxxxxxxx]
Sent: Thursday, June 23, 2011 06:15
To: RPG programming on the IBM i / System i
Subject: Re: Differing results calling same program from different environments
Still can't sort it out. Procedure prototype is:
D Check_Port PR ExtPgm('CHK_PORT')
D p_host 32A
D p_port 6A
D p_status 1A
and I call it:
check_port(DSPHOST: DSPPORT: host_status );
In the 5250 RPG program all calls, even to offline hosts, return
correctly. In the CGIDEV2 (with same prototype and same call, same
data) the offline host hangs the program call and eventually times out.
Very, very weird. I recompiled the CHK_PORT program with activation
group *CALLER but it made no difference.
Stumpted...
Pete Helgren
Value Added Software, Inc
www.asaap.com
www.opensource4i.com
On 6/22/2011 12:44 PM, Pete Helgren wrote:
Probably best to post the whole thing (as ugly as it is):
http://code.midrange.com/0d0cc7098e.html
Pete Helgren
Value Added Software, Inc
www.asaap.com
www.opensource4i.com
On 6/22/2011 12:25 PM, Nathan Andelin wrote:
I don't see a "return" statement in your "else" block. How would the program end?
-Nathan
--
This is the RPG programming on the IBM i / System i (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.
midrange.com
