fork download 
  1. 	IDENTIFICATION DIVISION. 
  2. 	  PROGRAM-ID. TC000082.      
  3. 	  DATA DIVISION.          
  4. 	  WORKING-STORAGE SECTION.
  5. 	   01 A1 PIC X VALUE 'S'.
  6. 	   01 A2 PIC X VALUE 'B'.
  7. 	   01 A1 PIC X AVLUE 'D'. 
  8. 	   01 A PIC XXXXXXX.
  9. 	 PROCEDURE DIVISION.
  10.         	STRING A1 DELIMITED BY '@', 
  11. 	        A2 DELIMITED BY '@',        
  12. 	        A3 DELIMITED BY '@'         
  13.         	INTO A.
  14. 	        DISPLAY A.
  15. 	        STOP RUN.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cob:14: Warning: File not terminated by a newline
prog.cob:7: Error: syntax error, unexpected WORD, expecting EXTERNAL or GLOBAL
stdout 
Standard output is empty
https://ideone.com/4DQjb
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!