fork download 
  1.        ID DIVISION.
  2.         PROGRAM-ID.PGM1.
  3.        ENVIRONMENT DIVISION.
  4.        DATA DIVISION.
  5.         WORKING-STORAGE SECTION.
  6.          77 WS-A PIC X(5) USAGE IS COMP.
  7.          77 WS-B PIC X(5) USAGE IS COMP-3. 
  8.        PROCEDURE DIVISION.
  9.             ACCEPT WS-A.
  10.             MOVE WS-A TO WS-B.
  11.             DISPLAY WS-B.
  12.          STOP RUN.
Success #stdin #stdout 0.01s 6164KB
comments (?)
stdin 
134
stdout 
13
https://ideone.com/kjCeS
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!