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 0.
  14. 001700      10 FILLER USAGE IS COMP-1 VALUE -.55439209E-47.
  15. 001800      10 FILLER USAGE IS COMP-1 VALUE  .44591240E+13.
  16. 001900      10 FILLER USAGE IS COMP-1 VALUE -.22818252E-71.
  17. 002000      10 FILLER USAGE IS COMP-1 VALUE -.48936378E-36.
  18. 002100      10 FILLER USAGE IS COMP-1 VALUE  .53763199E+00.
  19. 002200      10 FILLER USAGE IS COMP-1 VALUE  .23808258E+74.
  20. 002300      10 FILLER USAGE IS COMP-1 VALUE -.13901026E-68.
  21. 002400      10 FILLER USAGE IS COMP-1 VALUE -.54452280E-53.
  22. 002500      10 FILLER USAGE IS COMP-1 VALUE -.33187504E+05.
  23. 002600      10 FILLER USAGE IS COMP-1 VALUE  .84218729E+00.
  24. 002700      10 FILLER USAGE IS COMP-1 VALUE -.18465549E-73.
  25. 002800      10 FILLER USAGE IS COMP-1 VALUE -.16025044E-50.
  26. 002900  01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
  27. 010110 
  28. 010120 PROCEDURE DIVISION.
  29. 010130 MAIN-PARAGRAPH.
  30. 010140        DISPLAY "ae veio, olha eu aqui"
  31. 010150        STOP RUN.
  32.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:14: Error: syntax error, unexpected WORD, expecting EXTERNAL or GLOBAL
stdout
copy 
Standard output is empty
https://ideone.com/tU0Pd
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!