Format 4 (DIVIDE INTO, GIVING, with REMAINDER) ->->--DIVIDE--*--identifier-1--*-----INTO----*-identifier-2-*-> *--literal-1-----* *-literal-2----* ->--GIVING identifier-3--*-----------*-----------------------> *--ROUNDED--* ->--REMAINDER identifier-4-----------------------------------> ->----*----------------------------------------------*-------> *--*----*---SIZE ERROR imperative-statement-1--* *-ON-* ->---*---------------------------------------------------*---> *-NOT---*----*---SIZE ERROR imperative-statement-2--* *-ON-* ->--*------------*-------------------------------------------><- *-END-DIVIDE-*
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.