RE: Service Program Moving to Production problem

[rob@xxxxxxxxx]

Take this simple program, and notice the BNDDIR on the H spec:
     H Bnddir('ROUTINES/SRVPGM')
     H ActGrp(*CALLER)
     H DftActGrp(*NO)

     D AddDays         PR             8S 0
     D  FromDate                           CONST Like(AddDays)
     D  Spread                        5S 0 CONST

     d Test            S              8S 0 INZ(20060228)
     D Result          s                   like(test)

      /free
       result=AddDays(Test:5);
       dsply result;
       *inlr=*on;
      /end-free 

Now, notice what I see when I do a WRKBNDDIR ROUTINES/SRVPGM:
Object         Type        Library 
 
SRVPGM         *SRVPGM     ROUTINES
SRVIFS         *SRVPGM     ROUTINES

When I compile my test program PRAVEEN (not the service program) and I do 
a
DSPPGM PGM(ROB/PRAVEEN) DETAIL(*SRVPGM)
I get:
Service 
Program     Library     Signature 
SRVPGM      ROUTINES    A5AE6D8F472C4062A3B65BB050DA6E4A
QRNXIE      QSYS        D8D9D5E7C9C540404040404040404040
QRNXUTIL    QSYS        D8D9D5E7E4E3C9D34040404040404040
QLEAWI      QSYS        44F70FABA08585397BDF0CF195F82EC1


So, if I go back into WRKBNDDIR, remove SRVPGM and re-add it so that it 
looks like:
Object         Type        Library 
 
SRVIFS         *SRVPGM     ROUTINES 
SRVPGM         *SRVPGM     *LIBL 

Now when I recompile my test program PRAVEEN I get:
DSPPGM PGM(ROB/PRAVEEN) DETAIL(*SRVPGM)
Service 
Program     Library     Signature 
SRVPGM      *LIBL       A5AE6D8F472C4062A3B65BB050DA6E4A
QRNXIE      QSYS        D8D9D5E7C9C540404040404040404040
QRNXUTIL    QSYS        D8D9D5E7E4E3C9D34040404040404040
QLEAWI      QSYS        44F70FABA08585397BDF0CF195F82EC1

That's what you need to fix.  Again no changes were done whatsoever to the 
actual service program.

Rob Berendt