× 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.



Simon,

Maybe you're right. The objects and binding directory were pretty messed up. I'll try to recreate it again.

Rick

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
Sent: Monday, September 28, 2009 4:21 PM
To: Midrange Systems Technical Discussion
Subject: Re: Binder Source


On 29/09/2009, at 12:40 AM, <Rick.Chevalier@xxxxxxxxxxxxxxx> <Rick.Chevalier@xxxxxxxxxxxxxxx > wrote:

If on the create service program command you specify to bind a second
service program the list of exports will be a combination of both
service programs if *ALL is used for the export keyword.


Not true. Might have been once but I doubt it. I tested this on VRM510 with TGTRLS(V4R4M0) and EXPORT(*ALL) only exports items within the created service program. It does not export anything from service programs referenced explicitly on the BNDSRVPGM keyword or implicitly on the BNDDIR keyword.

I know you say you tested this but I suspect what you observed was due to incorrectly including modules and service programs in the same binding directory or directly specifying a service program that contains modules found in a referenced binding directory.

Here is my test scenario.

MODULE TEST_RICK1
H NOMAIN

D fee PR 5I 0
D parm1 10I 0 CONST
D fi PR 5I 0
D parm1 10I 0 CONST
D fo PR 5I 0
D parm1 10I 0 CONST


P fee B EXPORT
D PI 5I 0
D parm1 10I 0 CONST
D v S 5I 0
C EVAL v = fo( 10 )
C RETURN 1
P E

P fi B EXPORT
D PI 5I 0
D parm1 10I 0 CONST
C RETURN 2
P E
MODULE TEST_RICK2
H NOMAIN

D fo PR 5I 0
D parm1 10I 0 CONST
D fum PR 5I 0
D parm1 10I 0 CONST

P fo B EXPORT
D PI 5I 0
D parm1 10I 0 CONST
C RETURN 3
P fo E

P fum B EXPORT
D PI 5I 0
D parm1 10I 0 CONST
C RETURN 4
P fum E
Compile commands:

CRTRPGMOD MODULE(SHC/TEST_RICK2) TGTRLS(V4R4M0) CRTSRVPGM SRVPGM(SHC/TEST_RICK2) EXPORT(*ALL)TGTRLS(V4R4M0)

CRTRPGMOD MODULE(SHC/TEST_RICK1) TGTRLS(V4R4M0) CRTSRVPGM SRVPGM(SHC/TEST_RICK1) BNDSRVPGM(SHC/TEST_RICK2)
EXPORT(*ALL) TGTRLS(V4R4M0)

Exports and Signatures:


Display 1 of 1
Service program . . . . . . . . . . . . : TEST_RICK1
Library . . . . . . . . . . . . . . . : SHC
Owner . . . . . . . . . . . . . . . . . : SHC
Service program attribute . . . . . . . : RPGLE

Procedure Exports:

Procedure
Name ARGOPT

FEE

*NO

FI

*NO
Signatures:

0000000000000000000000000C5C2526

Service program . . . . . . . . . . . . : TEST_RICK2
Library . . . . . . . . . . . . . . . : SHC
Owner . . . . . . . . . . . . . . . . . : SHC
Service program attribute . . . . . . . : RPGLE

Procedure Exports:

Procedure
Name ARGOPT
FO

*NO
FUM

*NO
Signatures:

00000000000000000000000000E15026


Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.



Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.