The Result-Field entry (positions 43-52) must be specified as numeric with zero-decimal positions.
Define the Result-Field entry (positions 43-52) as numeric with zero-decimal positions. Compile again.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.