*c32 %;slink § identification division. program-id. DIVIDE Demo environment division. set cwsize to '0:0 0:0 60:18'. set cfont to 'fixedsys'. data division. working-storage section. 77 f1 pic 9(4)V99 value 1,0. 77 f2 pic 9(3) value -2. 77 f3 pic 9(5)v999 value 3,0. 77 ant pic x. procedure division. display 'Start: f1 pic 9(4)v99 f2 pic 9(3) f3 pic 9(5)v999' display ' ' f1 ' ' f2 ' ' f3 display 'multiply 3 by f1 f2 f3' multiply 3 by f1 f2 f3 perform showres display 'multiply f1 by f3 giving f1 f2'. multiply f1 by f3 giving f1 f2 perform showres display "multiply f1 by f3 not on size error display 'ok'" call getchar multiply f1 by f3 not on size error display 'ok'. perform showres1 display "multiply f1 by f3 not on size error display 'ok'" display " on size error display 'overflow'" display " end-multiply" call getchar multiply f1 by f3 on size error display 'ok' not on size error display 'overflow' end-multiply perform showres1 stop run. showres section. call getchar. showres1. display ' ' f1 ' ' f2 ' ' f3. call getchar.