DIVIDE Statement - Format 5 - BY GIVING REMAINDER 1 DIVIDE 2identifier-1 2literal-1 3 BY 4identifier-2 4literal-2 5GIVING identifier-3 6?ROUNDED 7REMAINDER identifier-4 8?ON 8.1SIZE ERROR imperative-statement-1 9?NOT 9.1?ON 9.2SIZE ERROR imperative-statement-2 10?END-DIVIDE
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.