fork download 
  1.         IDENTIFICATION DIVISION.
  2.         PROGRAM-ID. FIRSTPRG.
  3.         ENVIRONMENT DIVISION.
  4.         DATA DIVISION.
  5.         WORKING-STORAGE SECTION.                    
  6.         01 DAT1 PIC zz9(3)v9(2).                           
  7.         01 DAT2 PIC s9(3) VALUE 10.                           
  8. 	01 RSLT PIC S9(3)V9(2).
  9.         PROCEDURE DIVISION.                         
  10.         MAIN-PARA.  
  11.         ACCEPT  DAT1.
  12. 	ACCEPT  DAT2.
  13. 	DISPLAY DAT1 DAT2.
  14. 	ADD DAT1 DAT2 GIVING RSLT.
  15. 	DISPLAY "ADDITION OF DATA1 AND DATA2:" RSLT
  16.         STOP RUN.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cob:15: Warning: File not terminated by a newline
prog.cob: In paragraph 'MAIN-PARA':
prog.cob:14: Error: 'DAT1' is not numeric value
stdout 
Standard output is empty
https://ideone.com/Zna8P
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!