The Decimal-Positions entry (position 52) is not blank for a blank Field-Length entry (positions 49-51).
Specify a Result-Field-Length entry (positions 49-51), or omit the Decimal-Positions entry (position 52). Compile again.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.