× 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

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.

As an Amazon Associate we earn from qualifying purchases.

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