Thanks Robert for having the concern about my query. I think I have got the solution,
Actually If you will see the first paramerter defined in the external entry AVERAGE
DCL AVERAGE EXT ENTRY(1 (*),
2 FIXED BIN(31).....
is having the data type FIXED BIN(31) on level2 while in the structure AB611 which is passed first in AVERAGE
VPAX = AVERAGE(AB611......);
having the variable 2 ONST PIC'(7)9' INIT((MAX61)0); on level2 with different datatype format PIC'(7)9'. I have changed this with Fixed Bin(31) as ...
2 ONST FIXED BIN(31) INIT((MAX61)0);
This change removed the error mentioned above.I am testing it against production.Please correct me if I am not on the right track.