COBOL Program to Demonstrate DIVIDE Verb

Identification division.
Program-id. Divverb.
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.
Divide a by b giving c.
Move c to e-c.
Display(15 5) “Answer = “ e-c.
Stop run.