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



On 23-Oct-2015 11:34 -0500, Bradley Stone wrote:

I'm helping out a customer to update some of their CGIDEV2 programs
but running into an issue.

I created a binding directory and included it in the H spec of the
program:

H DFTACTGRP(*NO) BNDDIR('MYBNDDIR')

Inside this binding directory are only two service programs, CGISRVPGM2
using *LIBL for the library and one other service program that contains
local subprocedures we use.

When I use CRTBNDRPG on the program I get:

CPD5D03 Diagnostic 30 10/23/15 11:22:02.550437
QBNBIND QSYS *STMT QBNBIND QSYS
From module . . . . . . . . : QBNBREST
From procedure . . . . . . : QBNBREST__CheckSymbolPreference
Statement . . . . . . . . . : 55

To module . . . . . . . . . : QBNBREST
To procedure . . . . . . . : QBNBREST__AddStrongDefToResTree
Statement . . . . . . . . . : 5

Message . : Definition supplied multiple times for symbol 'ADDMSG'.
Cause . . : Definition ADDMSG was found to be exported from
both *SRVPGM object CGISRVPGM2 in library *LIBL and *SRVPGM object
CGISRVPGM2 in library CGIDEV2.
Recovery . : Try the Create Program (CRTPGM) or Create Service
Program (CRTSRVPGM) command again, supplying only one of these
objects, or try the CRTPGM or CRTSRVPGM command again, specifying one
or both of OPTION(*DUPVAR) and OPTION(*DUPPROC).

Now, I'm familiar with this error but what is confusing is that it's
saying it's finding multiple definitions for all the CGIDEV2
procedures in *LIBL (yes, it should) and CGIDEV2 (nope, it
shouldn't... CGIDEV2 isn't in the library list).

If I remove the reference to CGISRVPGM2 in the binding directory it
works fine.

How the heck is it just going to the library CGIDEV2 to find this
service program when it's not even in the library list? I am
wondering if there isn't a command default or something that they
did to make compiling easier in the past.

This is a V7R1 machine.

FWiW: The following TechNote document, beyond trying to explain the error, at least as I infer from my cursory review, purports to offer a means at assisting how to obtain further /documentation/ to track down the issue of msg CPD5D03 F/QBNBIND beyond just what that message provides [whence the duplicate originates]:
[http://www.ibm.com/support/docview.wss?uid=nas8N1015606]
Receiving CPD5D03 When Using a BNDDIR on a CRTXXX Command
Reference #: N1015606 Historical Number: 374058457

"... Additional documentation that can be helpful can be obtained by creating the modules separately and then using CRTPGM with DETAIL(*EXTENDED) to create the program. The EXTENDED listing will contain the list of objects that are examined during the binding process. ..."


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.