COBOL Program to Demonstrate COMPUTE Verb

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