COBOL Program to Demonstrate SUBTRACT Verb

Identification division.
Program-id. Subverb.
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 e-b pic +z(3).z(2).
Procedure division.
Display(1 1) erase.
Display(3 5) “Enter first number :”.
Accept a.
Display(5 5) “Enter second number :”.
Accept b.
Subtract a from b.
Move b to e-b.
Display(15 5) “b-a = “ e-b.
Stop run.