RE: Binder Source

[<Rick.Chevalier@xxxxxxxxxxxxxxx>]

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.