Hello, I hope someone can help.
The developers here (I'm an Systems Admin) have been using CRTSRVPGM in Implementer via an Object Code successfully. However they asked for a new Object Code to be created that would utilize the UPDSRVPGM command. Now when they select option 14 to compile using the new object code, the compile cancels because it can't find the object in the developer's library. From the logs it looks as if Implementer renames the object then tries to find the original object in the library which it has just renamed the object from so (logically) it isn't in there to find and hence the error. Of course once the compile fails it does look as if the SRVPGM has been in the library all along. Because it all happens so quickly I am not 100% sure if the SRVPGM is renamed back ie. gets moved out and then put back again and renamed back to the original as part of the back out process when Implementer's compile fail. How do I stop this seemingly logical error from occurring.
Blame is currently focused on my new object code, SRVPGMU as I had to create it from scratch, ie F6 ?
.......part of the job log is as follows :-
CPC2192 Completion 00 11/04/19 17:49:46.738598 QLIRNOBJ QSYS 065A IMRNOB MKSIM *STMT
To module . . . . . . . . . : IMRNOB
To procedure . . . . . . . : IMRNOB
Statement . . . . . . . . . : 16500
Message . . . . : Object FINDDESCSR in EMLMPPGMS type *SRVPGM renamed
Q174946662.
CPC2193 Completion 00 11/04/19 17:49:46.762319 QLIMVOBJ QSYS 0302 IMMVOB MKSIM *STMT
To module . . . . . . . . . : IMMVOB
To procedure . . . . . . . : IMMVOB
Statement . . . . . . . . . : 14200
Message . . . . : Object Q174946662 in EMLMPPGMS type *SRVPGM moved to
library QRPLOBJ.
CPF9801 Diagnostic 40 11/04/19 17:49:46.785405 QBNUPDBP QSYS 07DD QBNUPDSP QSYS 0026
Message . . . . : Object FINDDESCSR in library EMLMPPGMS not found.
Cause . . . . . : The object FINDDESCSR in library EMLMPPGMS type *SRVPGM
not found. The object name, library name, or the object type is not
correct. If the library name is not specified, the object may be in a
library that is not contained in the library list. Recovery . . . :
Correct the object name, library name, or object type. If the library name
was not specified, specify the library name and try the request again.
CPF5CE1 Diagnostic 40 11/04/19 17:49:46.793346 SSEXEC2 MKSIM 0165 IMCOMP MKSIM 08FF
Message . . . . : Service program FINDDESCSR not updated.
Cause . . . . . : The service program FINDDESCSR could not be updated in the
library EMLMPPGMS. Recovery . . . : Display the job log to determine why
the service program could not be updated (DSPJOBLOG command). Correct the
errors and try the request again.
The object being compiled is
Opt Object Type Library Attribute Text
FINDDESCSR *SRVPGM EMLMPPGMS RPGLE FIND DESCRIPTION SERVICE PR
And this is the object code as I have created for it.
DSPOBC.1 Display Object Code
Object code . . . . . . . . . . SRVPGMU Update Service Program
Activity flag . . . . . . . . : 1 1=Active, 0=Inactive
Object type . . . . . . . . . : SRVPGM
Object attribute . . . . . . . :
Source member type . . . . . . : *SRVPGM
Default source file . . . . . : QSRVSRC
Creation sequence . . . . . . : 0704 1-ZZZZ
Special characteristics . . . : *DATA, *MERGE, *MAINT, ...
Object authority . . . . . . . : *KEEP *KEEP, *GRANT
Remove obj in from env . . . . : N Y=Yes, N=No
Remove src in from env . . . . : N Y=Yes, N=No
Creation process . . . . . . . : C C=Compile, M=Move
Archive in PTC Source . . . . : N Y=Yes, N=No
Creation command . . . . . . . : UPDSRVPGM SRVPGM(#PGMLIB/#OBJECT) MODULE(*AL
L) EXPORT(*SRCFILE) OPTION(*DUPVAR *DUPPROC)
I would appreciate any help I can get as I have been looking at this for two days without any meaningful way forward. The stand alone command works, the environment in the promotion has the correct libraries listed for #PGMLIB and the library list includes the EMLMPPGMS library, and the authorities are set so the object is seen.
Thank You.
