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