× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2006

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.