fork download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. HelloWorld.
  3.  
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        01 num PIC 99 VALUE "126456".
  7.  
  8.        PROCEDURE DIVISION.
  9.        DISPLAY num.
  10.        STOP RUN.
  11.  
Success #stdin #stdout 0s 27088KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
12
https://ideone.com/pRnaQL
language:
Cobol (gnucobol 2.2.0)
created:
6 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!