fork download 
  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 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. 010110 
  28. 010120 PROCEDURE DIVISION.
  29. 010130 MAIN-PARAGRAPH.
  30. 010140        DISPLAY "ae veio, olha eu aqui"
  31. 010150        STOP RUN.
  32.  
Success #stdin #stdout 0.01s 6188KB
comments (?)
stdin 
Standard input is empty
stdout 
ae veio, olha eu aqui
https://ideone.com/3T2HX
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!