Re: CRTSRVPGM

>Date: Wed, 11 Jul 2001 10:29:31 -0400
>From: "Rex Capio" <rex_capio@swimtrend.com>
>
>Brad,
>
>Export parameter "*ALL" worked....  Thanks a lot...

Rex, I hope you'll heed Brad's warnings about using *ALL.

If you use the seductively easy *ALL, you will soon be
asking the much harder question "how do I find all the
programs that use a service program" because you'll start
getting errors running your programs as soon as you try to
add a new procedure or module to the service program.

Using binder source is easy.  Here's a step by step:

1. For all the modules that you want to use in the
   service program, do

   ===> DSPMOD DETAIL(*EXPORT) OUTPUT(*OUTFILE)
               OUTFILE(QTEMP/MODINFO) OUTMBR(*FIRST *ADD)

   Later in step 4, use cut and paste from column 52 of
   this file.
2. Think of a name for the service program (say UTIL).  You
   will also use this name for the binder source member and
   the signature.
3. Create a source physical file called QSRVSRC, and create a
   source member called UTIL.
4. Say your modules are MOD2 and MOD3, and the total list
   of procedures is: PROC1 PROC2 proc3.  Here is the code
   for your UTIL source member:

   /* ================================================== */
   /* New exports MUST be added at the end.              */
   /* Old exports MUST NEVER be removed from the list.   */
   /* !!! The order MUST NEVER CHANGE !!!                */
   /* ================================================== */
   STRPGMEXP PGMLVL( *CURRENT ) SIGNATURE("UTIL")
   EXPORT SYMBOL("PROC1")
   EXPORT SYMBOL("PROC2")
   EXPORT SYMBOL("proc3")
   ENDPGMEXP

   (You could easily write a program to process the outfile
   from step 1 to generate the EXPORT SYMBOLs, but cut and
   paste is easy.)

5. Now do
   ==> CRTSRVPGM MYLIB/UTIL MODULE(MOD2 MOD3) SRCFILE(QSRVSRC)
                 SRCMBR(UTIL) ACTGRP(*CALLER)
6. Create a binding directory and add your service program to it:
   ==> CRTBNDDIR MYLIB/MYBNDDIR
   ==> ADDBNDDIRE BNDDIR(MYLIB/MYBNDDIR)
                  OBJ((MYLIB/UTIL *SRVPGM))
7. Specify BNDDIR(MYLIB/MYBNDDIR) on your CRTBNDRPGs and CRTPGMs.

You're done.

8. If you want to change any of the procedures in MOD1 or MOD2,
   you just change them and re-create or update the service
   program.
9. If you want to add new procedures or new modules, you just
   write them, add the names of the new procedures to the end
   of the procedures in your QSRVSRC, and re-create or update
   the service program.
10.If you decide you want more than one service program, you
   just add the new ones to the binding directory.

There are other ways to handle service programs and signatures.
You can read ILE Concepts for more information.

Barbara Morris

+---
| 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
+---