Prototype Definition Changing From Zoned to Packed.

I have a colleague who has reported the following problem. Is there
something going on with the compiler?

I have a prototype file which contains a 5 signed numeric field. I have
a CALLP to this procedure using a field which has the same external
field reference as the prototype. The field I am using is defined in a
physical file using DDS. 

The field name is RIGNOR.

This database field appears as a signed field in the input area of a
compiled listing as follows

  3837=I  A  382  382    I90_KFSLDR                
 3838=I  A  383  383    I90_IPFLGR       
 3839=I  P  384  389 0  I90_SIGRSR         
 3840=I  P  390  395 0  I90_RISIGR   
 3841=I  S  396  400 0  I90_RIGNOR        

This database fields appears as a signed field in the output area of a
compiled listing as follows


 4350=O    I90_IPFLGR         383A CHAR        1  
 4351=O    I90_SIGRSR         389P PACK     11,0  
 4352=O    I90_RISIGR         395P PACK     11,0  
 4353=O    I90_RIGNOR         400S ZONE      5,0  
 4354=O    I90_RIGSTR         401A CHAR        1  

However it appears in the Global reference of the compiled listing as a
packed field 

I90_RIDTAR  A(16)        3824M   4336    5214            
I90_RIGNOR  P(5,0)       3841M   4353    5216    5739M   
I90_RIGNPR  P(5,0)       3843M   4355    5741M           
  

The end result is that I am getting a compilation error on the CALLP
command" *RNF7535 30 "The type and attributes of the parameter do not
match those of the prototype".  

Has anyone else come across this and if so what is the solution.



Mike Pantzopoulos
Insure90 Programmer
EIG-Ansvar Limited
Tel  : 61 (3) 9614 3535
Fax: 61 (3) 9614 2740


*********************************************************************************************************
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity to whom they are addressed. If 
you are not the intended recipient, any use, disclosure or copying of this 
message is unauthorised. If you have received this message in error, please 
reply using the sender's email address. 

This footnote confirms that this email message has been scanned for computer 
viruses. EIG-Ansvar Limited does not accept liability for any loss or damage, 
whether caused by our own negligence or not, that results from a computer virus 
or defect in the transmission of this email or any attached file. 

EIG-Ansvar Limited - Australia (A.B.N. 21 007 216 506)
Email : insure@xxxxxxxxxxxxxxxx

Eig-Ansvar Limited - New Zealand
Email : insure@xxxxxxxxxxxxxxxx

*********************************************************************************************************