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