*------------------------*
V +
->->---COMPUTE identifier-1--*----------*--------------------->
*-ROUNDED--*
->---- = arithmetic-expression------------------------------>
->---*--------------------------------------------*---------->
*-*----*--SIZE ERROR imperative-statement-1--*
*-ON-*
->---*-------------------------------------------------*----->
*--NOT-*----*--SIZE ERROR imperative-statement-2--*
*-ON-*
->---*---------------*---------------------------------------><-
*--END-COMPUTE--*
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.