RE: Service Program Moving to Production problem -- RPG400-L

Just a SWAG.
During initialization the program attempts to initialize the SRVPGM it was
originally bound/linked to. The SRVPGM links are broken so it attempts to
dynamically bind to the SRVPGM and because the caller has been compiled with
a specific library it attempts to bind to the SRVPGM in that library. If the
library doesn't exist it kicks out a message and quits. If the library does
exist and the SRVPGM is not found in that library it then uses the *LIBL to
search for the SRVPGM.

Duane Christen

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Jerry Adams
Sent: Tuesday, February 28, 2006 12:55 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Service Program Moving to Production problem


Paul,

I've never written a service program, but I found the statement: "on 
production it works fine if I just create the library DEVOBJ, (just an 
empty library DEVOBJ)" a little odd.  As in, "that doesn't make any sense."


For a "regular" RPG IV program that would lead me to think that there 
was something hard-coded in the program (or a supporting CL, maybe) that 
wanted DEVOBJ for some reason.  An empty library would certainly not 
enable me to call a program. 


The statement just doesn't make sense to me (but, then, I confuse easily).

See you in MN - unless Northwest goes on strike.

        * Jerry C. Adams
*iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Paul Tuohy wrote:

>These are not what we asked for. What you pasted here was information about
>the service program - this is not your problem.  As Rob suggested - do a
>DSPPGM of your test program (NOT a DSPSRVPGM of the service program) and
>paste the results.
>
>Regards
> 
>Paul Tuohy
>ComCon
>www.comconadvisor.com 
> 
>
>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>On Behalf Of praveen gunda
>Sent: 28 February 2006 17:46
>To: RPG programming on the AS400 / iSeries
>Subject: Re: Service Program Moving to Production problem
>
>here are the display PGM Screens:
>
>
>Screen1
>---------------------------------------------------------------------------
-
>-------------------------------
>                      Display Service Program
>Information
>                                                                Display 3
of
>10
> Service program  . . . . . . . . . . . . :
>LOTUTIL
>   Library  . . . . . . . . . . . . . . . :
>DEVOBJ
> Owner  . . . . . . . . . . . . . . . . . :
>GRPWMS
> Service program attribute  . . . . . . . :
>RPGLE
> Detail . . . . . . . . . . . . . . . . . :
>*MODULE
>
>
> Type options, press
>Enter.
>   5=Display description   6=Print
>description
>
>
>                                          Creation  Optimization
>Debug
> Opt  Module      Library     Attribute   Date         Level
>Data
>      LOTUTIL     DEVOBJ      RPGLE       02/27/06  *NONE
>*YES
>
>
>---------------------------------------------------------------------------
-
>-------------------------------
>Screen 2
>---------------------------------------------------------------------------
-
>-------------------------------
>                     Display Service Program
>Information
>                                                               Display 4 of
>10
>Service program  . . . . . . . . . . . . :
>LOTUTIL
>  Library  . . . . . . . . . . . . . . . :
>DEVOBJ
>Owner  . . . . . . . . . . . . . . . . . :
>GRPWMS
>Service program attribute  . . . . . . . :
>RPGLE
>Detail . . . . . . . . . . . . . . . . . :
>*SRVPGM
>
>
>Type options, press
>Enter.
>
>5=Display
>
>
>
>
>Service
>Opt  Program     Library
>Signature
>     WMSUTIL     *LIBL
>0079E7EFEFBA6927D2120344F02F72F6
>     QRNXIE      QSYS
>D8D9D5E7C9C540404040404040404040
>     QRNXIO      QSYS
>D8D9D5E7C9D640404040404040404040
>     QLEAWI      QSYS
>44F70FABA08585397BDF0CF195F82EC1
>
>
>---------------------------------------------------------------------------
-
>-------------------------------
>
>As you can see, in the first screen the library is DEVOBJ even though I
gave
>*LIBL at compile time.
>Also on production it works fine if I just create the library DEVOBJ, (just
>an empty library DEVOBJ)
>
>
>
>
>Thanks
>Praveen
>
>
>
>On 2/28/06, Paul Tuohy <tuohyp@xxxxxxxxxxxxx> wrote:
>  
>
>>No. The problem is not with the module. The module is ONLY relevant when
>>you
>>are creating the program or service program. Once the service program is
>>created, you can delete the module object.
>>
>>As Rob suggested - do a DSPPGM of your test program (not the service
>>program) and paste the results.
>>
>>Regards
>>
>>Paul Tuohy
>>ComCon
>>www.comconadvisor.com
>>
>>
>>-----Original Message-----
>>From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>>On Behalf Of praveen gunda
>>Sent: 28 February 2006 14:59
>>To: RPG programming on the AS400 / iSeries
>>Subject: Re: Service Program Moving to Production problem
>>
>>When I create a program by binding with a Service Program, I am specifying
>>the srvpgm name & *libl as the library in BNDSRVPGM.
>>This works fine. The problem is with the module, I am creating the program
>>from.
>>
>>Eg:
>>Say the module name is  LOTUTIL in LIbrary DEVOBJ.
>>I create a Service Program named LOTUTIL for module LOTUTI.
>>This one does not use any other service programs or modules, so I do not
>>specify anything on BNDSRVPGM.
>>here's the crreate command:
>>
>>CRTSRVPGM SRVPGM(DEVOBJ/LOTUTIL)
>>          MODULE(*LIBL/LOTUTIL)
>>
>>now when I transfer this program to the production machine, that does not
>>have the library DEVOBJ, it fails when I try to invoke any procedure in
>>this
>>service program. It gives the error msg:
>>
>>"Library DEVOBJ Not found"
>>
>>here is the screen shot from JobLog:
>>
>>Message ID . . . . . . :   CPD0028       Severity . . . . . . . :
>>30
>>Message type . . . . . :   Diagnostic
>>
>>Date sent  . . . . . . :   02/27/06      Time sent  . . . . . . :
>>16:59:32
>>
>>
>>Message . . . . :   Library DEVOBJ not
>>found.
>>Cause . . . . . :   If attempting to run a CALL command, the library of
>>the
>>  called program or library of the CALL command definition object was
>>not
>>  found. If any other command, the library of the command definition
>>object,
>>  library of command processing program, library of validity checking
>>program,
>>  current library, or product library was not found. The library that is
>>not
>>  found may also be the library for a service program that is bound to
>>a
>>  called program, a command processing program, or a validity
>>checking
>>
>>program.
>>Recovery  . . . :   Change the library name or create the library, and
>>then
>>  try the command again. If the library is on an independent auxiliary
>>storage
>>  pool (ASP), make sure that the ASP group which contains the independent
>>ASP
>>  has been set for the current job or thread.
>>
>>
>>Any help is greatly appreciated.
>>
>>Regards
>>Praveen
>>www.euscold.com
>>
>>
>>
>>On 2/28/06, Paul Tuohy <tuohyp@xxxxxxxxxxxxx> wrote:
>>    
>>
>>>Your problem is with the test program, not with the service program.
>>>
>>>When you created the test program (on the development machine) it was
>>>bound
>>>to the service program in the library DEVOBJ.
>>>
>>>When you moved everything to production and called the test program, it
>>>goes
>>>to load the service program and cannot find it.
>>>
>>>When creating the test program try specifying *LIBL for the library for
>>>the
>>>service program in the binding directory or on the CRTPGM command.
>>>Alternatively, re-create the test program on the production machine and
>>>specify the correct library for the service program.
>>>
>>>Regards
>>>
>>>Paul Tuohy
>>>ComCon
>>>www.comconadvisor.com
>>>
>>>-----Original Message-----
>>>From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:
>>>      
>>>
>>rpg400-l-bounces@xxxxxxxxxxxx]
>>    
>>
>>>On Behalf Of praveen gunda
>>>Sent: 27 February 2006 22:03
>>>To: RPG programming on the AS400 / iSeries
>>>Subject: Re: Service Program Moving to Production problem
>>>
>>>I created a savf of the service program and a test program that call a
>>>procedure in the srvpgm.
>>>Ftp'ed to production.
>>>
>>>When I created the service program, the module was in library devobj. My
>>>production machine does not have the library DEVOBJ.
>>>
>>>So when I call the test program, it says, "Library DEVOBJ Not found"
>>>
>>>here is the screen shot from JobLog:
>>>
>>>Message ID . . . . . . :   CPD0028       Severity . . . . . . . :
>>>30
>>>Message type . . . . . :
>>>Diagnostic
>>>Date sent  . . . . . . :   02/27/06      Time sent  . . . . . . :
>>>16:59:32
>>>
>>>
>>>Message . . . . :   Library DEVOBJ not
>>>found.
>>>Cause . . . . . :   If attempting to run a CALL command, the library of
>>>the
>>>  called program or library of the CALL command definition object was
>>>not
>>>  found. If any other command, the library of the command definition
>>>object,
>>>  library of command processing program, library of validity checking
>>>program,
>>>  current library, or product library was not found. The library that is
>>>not
>>>  found may also be the library for a service program that is bound to
>>>a
>>>  called program, a command processing program, or a validity
>>>checking
>>>
>>>program.
>>>Recovery  . . . :   Change the library name or create the library, and
>>>then
>>>  try the command again. If the library is on an independent auxiliary
>>>storage
>>>  pool (ASP), make sure that the ASP group which contains the
>>>      
>>>
>>independent
>>    
>>
>>>ASP
>>>  has been set for the current job or thread.
>>>
>>>
>>>--ooOOoo--
>>>
>>>On 2/27/06, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:
>>>      
>>>
>>>>What are your steps to move it to production?
>>>>
>>>>I too, have a service program composed of one module.  We save the
>>>>        
>>>>
>>>*SRVPGM
>>>      
>>>
>>>>and the *SQLPKG (if applicable) and restore them on to our production
>>>>machine.  We do not bring along the *MODULE nor the *BNDDIR.  And we
>>>>        
>>>>
>>>have
>>>      
>>>
>>>>no problems.
>>>>
>>>>Rob Berendt
>>>>--
>>>>Group Dekko Services, LLC
>>>>Dept 01.073
>>>>PO Box 2000
>>>>Dock 108
>>>>6928N 400E
>>>>Kendallville, IN 46755
>>>>http://www.dekko.com
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>"praveen gunda" <praveen.gunda@xxxxxxxxx>
>>>>Sent by: rpg400-l-bounces@xxxxxxxxxxxx
>>>>02/27/2006 04:38 PM
>>>>Please respond to
>>>>RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>>>>
>>>>
>>>>To
>>>>"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
>>>>cc
>>>>
>>>>Fax to
>>>>
>>>>Subject
>>>>Service Program Moving to Production problem
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>Hi all,
>>>>
>>>>I am having problems moving my service programs to Production.
>>>>When I create a service program, the library name of the module is
>>>>        
>>>>
>>being
>>    
>>
>>>>hardcoded by the CRTSRVPGM/CRTPGM commands.
>>>>
>>>>Here are the details:
>>>>I am following one SRVPGM per one module.
>>>>
>>>>I have a module called LOTUTIL in library DEVOBJ
>>>>I created a service program with
>>>>
>>>>CRTSRVPGM SRVPGM(DEVOBJ/LOTUTIL)
>>>>MODULE(*LIBL/LOTUTIL)BNDSRVPGM(*LIBL/WMSUTIL) DETAIL(*FULL)
>>>>ALWLIBUPD(*YES)
>>>>
>>>>When I move this to production, and try to use, I get the error
>>>>        
>>>>
>>LIbrary
>>    
>>
>>>>DEVOBJ not found as DEVOBJ is not in production.
>>>>
>>>>When I do a dspsrvpgm command, on the module listing screen, it shows
>>>>        
>>>>
>>>the
>>>      
>>>
>>>>LIbrary name(DEVOBJ) instead of *LIBL.
>>>>
>>>>Am I doing anything wrong.
>>>>
>>>>Praveen
>>>>--
>>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>>>>        
>>>>
>>>list
>>>      
>>>
>>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>>To subscribe, unsubscribe, or change list options,
>>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>>Before posting, please take a moment to review the archives
>>>>at http://archive.midrange.com/rpg400-l.
>>>>
>>>>
>>>>--
>>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>>>>        
>>>>
>>>list
>>>      
>>>
>>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>>To subscribe, unsubscribe, or change list options,
>>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>>Before posting, please take a moment to review the archives
>>>>at http://archive.midrange.com/rpg400-l.
>>>>
>>>>
>>>>        
>>>>
>>>--
>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>>>      
>>>
>>list
>>    
>>
>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>To subscribe, unsubscribe, or change list options,
>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>Before posting, please take a moment to review the archives
>>>at http://archive.midrange.com/rpg400-l.
>>>
>>>--
>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>>>      
>>>
>>list
>>    
>>
>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>To subscribe, unsubscribe, or change list options,
>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>Before posting, please take a moment to review the archives
>>>at http://archive.midrange.com/rpg400-l.
>>>
>>>
>>>      
>>>
>>--
>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>To subscribe, unsubscribe, or change list options,
>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>or email: RPG400-L-request@xxxxxxxxxxxx
>>Before posting, please take a moment to review the archives
>>at http://archive.midrange.com/rpg400-l.
>>
>>--
>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>To subscribe, unsubscribe, or change list options,
>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>or email: RPG400-L-request@xxxxxxxxxxxx
>>Before posting, please take a moment to review the archives
>>at http://archive.midrange.com/rpg400-l.
>>
>>
>>    
>>