fork download
copy 
  1. 		IDENTIFICATION DIVISION.
  2.        		PROGRAM-ID. SUB.
  3. 		ENVIRONMENT DIVISION.
  4.  
  5.  
  6.        		DATA DIVISION.
  7.        		WORKING-STORAGE SECTION.
  8.         		77 A   PIC 9999.
  9.         		77 B   PIC 9999.
  10.         		77 SOL PIC 999v99.
  11.  
  12.  
  13.      		PROCEDURE DIVISION.
  14.        		MAIN-PARA.
  15.  
  16.         		DISPLAY " ENTER A ".
  17.            		ACCEPT A.
  18.            		DISPLAY " ENTER B ".
  19.            		ACCEPT B.
  20.  
  21.  
  22. 		SUB-PARA.
  23. 		SUBTRACT A from B GIVING SOL. 
  24.  
  25.  
  26. 		DISP-PARA.
  27. 		DISPLAY "A IS " A.
  28. 		DISPLAY "B IS " B.
  29. 		DISPLAY "SUBTRACTION =" SOL.
  30. 		STOP RUN.
  31.  
Success #stdin #stdout 0.01s 6164KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 ENTER A 
 ENTER B 
A IS 
B IS 
SUBTRACTION =000.00
https://ideone.com/Atsl0
language:
Cobol (gnucobol 2.2.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!