fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. NUMBERS.
  3. 000300 AUTHOR.ANON.
  4. 000400****************************************************************
  5. 000500*    Simply transfer the present program to your favorite      *
  6. 000600*    mainframe computer, compile it, link it and submit some   *
  7. 000700*    appropriate JCL to run it. Its output tells the answer.   *
  8. 000800****************************************************************
  9. 000900 ENVIRONMENT DIVISION.
  10. 001000 CONFIGURATION SECTION.
  11. 001100 OBJECT-COMPUTER. IBM-370.
  12. 001200 SOURCE-COMPUTER. IBM-370.
  13. 001300 DATA DIVISION.
  14. 001400 WORKING-STORAGE SECTION.
  15. 001500 01 THE-NUMBERS.
  16. 001600      10 FILLER USAGE IS COMP-1 VALUE -.24093455E+04.
  17. 001700      10 FILLER USAGE IS COMP-1 VALUE -.55439209E-47.
  18. 001800      10 FILLER USAGE IS COMP-1 VALUE  .44591240E+13.
  19. 001900      10 FILLER USAGE IS COMP-1 VALUE -.22818252E-71.
  20. 002000      10 FILLER USAGE IS COMP-1 VALUE -.48936378E-36.
  21. 002100      10 FILLER USAGE IS COMP-1 VALUE  .53763199E+00.
  22. 002200      10 FILLER USAGE IS COMP-1 VALUE  .23808258E+74.
  23. 002300      10 FILLER USAGE IS COMP-1 VALUE -.13901026E-68.
  24. 002400      10 FILLER USAGE IS COMP-1 VALUE -.54452280E-53.
  25. 002500      10 FILLER USAGE IS COMP-1 VALUE -.33187504E+05.
  26. 002600      10 FILLER USAGE IS COMP-1 VALUE  .84218729E+00.
  27. 002700      10 FILLER USAGE IS COMP-1 VALUE -.18465549E-73.
  28. 002800      10 FILLER USAGE IS COMP-1 VALUE -.16025044E-50.
  29. 002900  01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
  30. 003000  PROCEDURE DIVISION.
  31. 003100      DISPLAY THE-ANSWER
  32. 003200      GOBACK.
  33. 003300  END PROGRAM NUMBERS.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:32: Warning: File not terminated by a newline
prog.cob:2: Error: syntax error, unexpected NUMBER, expecting WORD or LITERAL
stdout
copy 
Standard output is empty
https://ideone.com/ifEoy
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!