fork download
copy 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. ADD.
  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.       	ADD-PARA.
  23.       	ADD A B GIVING SOL. 
  24.  
  25.  
  26.       	DISP-PARA.
  27.       	DISPLAY "A IS " A.
  28.       	DISPLAY "B IS " B.
  29.       	DISPLAY "ADDITION =" SOL.
  30.       	STOP RUN.
  31.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:6: Warning: Invalid indicator 'G' at column 7
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID
stdout
copy 
Standard output is empty
https://ideone.com/oAqag
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!