RE: Module source naming schemes

I am sorry.  By SP's I meant sub-procedures not Service Programs.  I will
start spelling stuff out more;-)
Aaron Bartell

-----Original Message-----
From: Gary Guthrie [mailto:GaryGuthrie@home.com]
Sent: Wednesday, January 10, 2001 10:26 AM
To: RPG400-L@midrange.com
Subject: Re: Module source naming schemes




You don't add service programs to modules. Service programs are
comprised of modules.

Also, you don't want to construct your *CURRENT export as you have
shown. You should instead have:

 STRPGMEXP PGMLVL(*CURRENT)
      EXPORT SYMBOL(RNF_OPEN)
      EXPORT SYMBOL(RNF_READ)
      EXPORT SYMBOL(RNF_CLOSE)
      EXPORT SYMBOL(RNF_READP)
 ENDPGMEXP

If you place symbol (RNF_READP) somewhere other than at the end of the
list, you'll change the interface and will be required to rebind objects
using the service program.

Gary Guthrie
NEWS/400 Technical Editor


"Bartell, Aaron L. (TC)" wrote:
> 
> I am wondering.  Has anyone had problems with creating multiple PGMEXP's
> within a binder source?  I am looking at it from the direction of
> continually adding SP's to a module and constantly having to change the
> binder source. 

> Example below:
> 
> STRPGMEXP PGMLVL(*CURRENT)
>      EXPORT SYMBOL(RNF_OPEN)
>      EXPORT SYMBOL(RNF_READ)
>      EXPORT SYMBOL(RNF_READP)
>      EXPORT SYMBOL(RNF_CLOSE)
> ENDPGMEXP
> STRPGMEXP PGMLVL(*PRV)
>      EXPORT SYMBOL(RNF_OPEN)
>      EXPORT SYMBOL(RNF_READ)
>      EXPORT SYMBOL(RNF_CLOSE)
> ENDPGMEXP
> STRPGMEXP PGMLVL(*PRV)
>      EXPORT SYMBOL(RNF_OPEN)
>      EXPORT SYMBOL(RNF_READ)
> ENDPGMEXP
> STRPGMEXP PGMLVL(*PRV)
>      EXPORT SYMBOL(RNF_OPEN)
> ENDPGMEXP
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---