fork download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. TES.
  3.        DATA DIVISION.
  4.        WORKING-STORAGE SECTION.
  5.        01  aaa PIC 9(5).
  6.        PROCEDURE DIVISION.
  7.        A0-MAIN.
  8.            MOVE 00001 TO aaa.
  9. 	   DISPLAY aaa.
  10. 	   STOP RUN.
Success #stdin #stdout 0.02s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
00001
https://ideone.com/Uwb2Z
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!