fork download
copy 
  1. 000010 IDENTIFICATION DIVISION.
  2. 000020 PROGRAM-ID.   HELLO-WORLD-PROG.
  3. 000030 AUTHOR.       TIMOTHY R P BROWN.
  4. 000040*The standard Hello world program
  5. 000050 
  6. 000060 ENVIRONMENT DIVISION.
  7. 000063 CONFIGURATION SECTION.
  8. 000065 OBJECT-COMPUTER. IBM-370.
  9. 000070 SOURCE-COMPUTER. IBM-370.
  10. 000080 DATA DIVISION.
  11. 001400 WORKING-STORAGE SECTION.
  12. 001500 01 THE-NUMBERS.
  13. 001600      10 FILLER USAGE IS COMP-1 VALUE 02.35E-5.
  14. 001700      10 FILLER USAGE IS COMP-1 VALUE 0.
  15. 001800      10 FILLER USAGE IS COMP-1 VALUE 0.
  16. 001900      10 FILLER USAGE IS COMP-1 VALUE 0.
  17. 002000      10 FILLER USAGE IS COMP-1 VALUE 0.
  18. 002100      10 FILLER USAGE IS COMP-1 VALUE 0.
  19. 002200      10 FILLER USAGE IS COMP-1 VALUE 0.
  20. 002300      10 FILLER USAGE IS COMP-1 VALUE 0.
  21. 002400      10 FILLER USAGE IS COMP-1 VALUE 0.
  22. 002500      10 FILLER USAGE IS COMP-1 VALUE 0.
  23. 002600      10 FILLER USAGE IS COMP-1 VALUE 0.
  24. 002700      10 FILLER USAGE IS COMP-1 VALUE 0.
  25. 002800      10 FILLER USAGE IS COMP-1 VALUE 0.
  26. 002900  01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
  27. 003000 
  28. 003050 PROCEDURE DIVISION.
  29. 003100      DISPLAY THE-ANSWER
  30. 003200      GOBACK.
  31. 010130 MAIN-PARAGRAPH.
  32. 010140        DISPLAY "ae veio, olha eu aqui"
  33. 010150        STOP RUN.
  34.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:13: Error: syntax error, unexpected WORD, expecting EXTERNAL or GLOBAL
stdout
copy 
Standard output is empty
https://ideone.com/NOVf1
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!