COBOL Program to Demonstrate MULTIPLY Verb

Identification division.
Program-id. Mulverb.
Environment division.
Data division.
Working-storage section.
77 a pic s9(3)v9(2) value 0.
77 b pic s9(3)v9(2) value 0.
77 c pic s9(4)v9(2) value 0.
77 e-c pic -z(4).z(2).
Procedure division.
Display(1 1) erase.
Display(3 5) “Enter first number :”.
Accept a.
Display(5 5) “Enter second number :”.
Accept b.
Multiply a by b giving c.
Move c to e-c.
Display(15 5) “Product = “ e-c.
Stop run.