RE: F22 and a service program

["J Michael Smith" <Michael.Smith3@xxxxxxxx>]

OK, so what's the binding directory say? >>>> *LIBL

Then, do a DSPOBJD *ALL/xxxx *SRVPGM to see if this service program is
anywhere else on the system>>>> 1 *MODULE and 1 *SRVPGM.

Michael 


-----Original Message-----
From: Buck Calabro [mailto:Buck.Calabro@xxxxxxxxxxxx]
Sent: Tuesday, March 04, 2003 2:14 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: F22 and a service program


Hi Michael!

>DSPOBJD reviles 1 *MODULE and 1 Service program.

Generally, DSPPGM is preferred to DSPOBJD for ILE programs.  There's more
information in DSPPGM...

>The *MODULE was created with a binding directory specified in 
>the H specification.  The binding directory entry was *LIBL.

OK, so what's the binding directory say?  I'm still thinking (however
wrongly) that there is more than one service program, and that you are
debugging a copy that you are not executing.  So, does the binding directory
point to a specific library, or *LIBL?  WRKDIRE will tell you.  In my case,
C2N's procedures will always be invoked from the library named BUCK; even if
BUCK is not in my *LIBL.  On the other hand, the system will use the library
list to locate A2E.

Object         Type        Library   
C2N            *SRVPGM     BUCK      
A2E            *SRVPGM     *LIBL     

Then, do a DSPOBJD *ALL/xxxx *SRVPGM to see if this service program is
anywhere else on the system, especially in a library where you might
accidentally be finding it.  Aside from that, I'm about out of ideas.  Sign
off/on and start a new job to be sure that you have a known good AG
situation.
  --buck
_______________________________________________
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.