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.