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.
midrange.com
