Re: Definition not found for internally defined procedure

Hi Rick,

> The program was working fine until I dedided to move the prototype to a
> copy member.  When I did this the compile failed with "Definition not
> found for symbol 'CmpVal'.".  There are no other compile errors.

I assume that this is a message that occurs during binding, and shows up
in your job log?

Here's the thing that surprises me.  The message that you posted says that
the program is looking for something called 'CmpVal' -- but the code that
you posted contains a procedure called 'CMPVAL' -- ILE procedure names are
case-sensitive, so these would be two different procedures!

I suspect that you've got %paddr('CmpVal') coded somewhere.   Or that
you've coded an EXTPROC statement that you didn't show us when you posted
your prototype.

Try making it read:  %paddr(CmpVal)  (without the quotes) this will tell
RPG to use the procedure name from the CmpVal prototype.  When you put the
procedure name in quotes, ala %paddr('CmpVal') it directly searches for a
procedure with that exact name instead of checking the prototype.

If you do want to use the procedure name directly, it should be
%paddr('CMPVAL') since (in the absense of an EXTPROC keyword) RPG converts
subprocedure names to all-uppercase.