fork download 
  1.         IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. PROG1.
  3. 	Environment division.
  4. 	WORKING-STORAGE SECTION.                    
  5. 	01 DAT1 PIC X(4).                           
  6. 	01 DAT2 PIC X(3).                           
  7. 	PROCEDURE DIVISION.                         
  8. 	MAIN-PARA.                                  
  9. 	    MOVE '006' TO DAT2                      
  10. 	    MOVE '0006' TO DAT1                     
  11. 	    IF DAT2 > DAT1                          
  12.  	    DISPLAY 'GREATER'                      
  13.  	   ELSE DISPLAY 'LESSER'                   
  14.  	   END-IF                                  
  15. 	    STOP RUN. 
  16.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cob:4: Error: syntax error, unexpected WORKING_STORAGE, expecting $end
stdout 
Standard output is empty
https://ideone.com/ah8vD
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!