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 / \
--------------------------------------------------------------------