fork download
copy 
  1.         IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. PROG1.
  3. 	ENVIRONMENT DIVISION.
  4. 	DATA DIVISION.
  5. 	WORKING-STORAGE SECTION.                    
  6. 	01 DAT1 PIC 9(4)v9(2).                           
  7. 	01 DAT2 PIC s9(3).                           
  8. 	PROCEDURE DIVISION.                         
  9. 	MAIN-PARA.                                  
  10. 	    MOVE '006' TO DAT2                      
  11.  	   MOVE '0006.32' TO DAT1 
  12. 		display dat1                    
  13.  	   IF DAT2 >= DAT1                          
  14.  	    DISPLAY 'GREATER'                      
  15.  	   ELSE DISPLAY 'LESSER'                   
  16.  	   END-IF                                  
  17.  	   STOP RUN. 
  18.  
Success #stdin #stdout 0.01s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0006.32
LESSER
https://ideone.com/zbuZS
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!