Re: Binder Source

Rick

I have seen the behavior you describe, but not when binding another service program. Instead, it comes when you /copy both the prototypes and the actual code, which may have export on various subprocedures. I've had to use binder language to restrict what is exported.

No comments needed on WHY am I doing this, please!!

Vern

Rick.Chevalier@xxxxxxxxxxxxxxx wrote:

Simon,

I tried to recreate it again this morning with a couple service programs I created recently and the exports didn't carry through. I know we had issues with that so I guess it was something else causing the problem.

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.