Definition not found for internally defined procedure

I have managed to stump our development staff with this one.

Originally I defined a procedure in my program as follows:
      // Comparison procedure called by QuickSort 
     d CmpVal          pr            10i 0        
     d                                 *   Value  
     d                                 *   Value  

     p CmpVal          b                           
     d CmpVal          pi            10i 0         
     d Elem1@                          *   Value   
     d Elem2@                          *   Value   

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 moved the definition back inside the program but still receive the error.  I 
know I'm probably missing something real simple but I don't see it and several 
others here don't have any ideas either.

Can anyone help with why the compiler doesn't put the prototype and the 
procedure together?

Rick Chevalier
 <<ole0.bmp>> 
Enterprise Solutions
Ext. 57178