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