fork download
copy 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. IDEONE.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7. 		WORKING-STORAGE SECTION.
  8. 		01 A-VAR PIC S9(3)V9(2).
  9. 		01 B-VAR PIC S9(3)V9(2) VALUE -123.95.
  10. 		*> error : 01 C-VAR PIC 9(3)       VALUE -100.
  11. 		01 D-VAR PIC 9(3)       VALUE 559.
  12.  
  13.  
  14. 	PROCEDURE DIVISION.
  15. 	*>	your code goes here
  16. 		DISPLAY "FIRST VARIABLE :"A-VAR.
  17. 		DISPLAY B-VAR.
  18. 		STOP RUN.
Success #stdin #stdout 0s 26192KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
FIRST VARIABLE :+000.00
-123.95
https://ideone.com/9vhiT3
language:
Cobol (gnucobol 2.2.0)
created:
4 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!