Format 2 (SUBTRACT with GIVING) *--------------* V + ->->--SUBTRACT-*-identifier-1-*FROM-*-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-SUBTRACT-*
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.