fork(1) download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. HOLAMUNDO.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION. 
  8.            01 WS-CVG-STBL-3-CD  PIC X(02).
  9.            01 WS-CVG-STBL-3-CD-N PIC 9(02).
  10.  
  11.  
  12.        PROCEDURE DIVISION.
  13.            MOVE '05' TO WS-CVG-STBL-3-CD.
  14.  
  15.            MOVE WS-CVG-STBL-3-CD TO WS-CVG-STBL-3-CD-N.
  16.  
  17.            DISPLAY 'WS-CVG-STBL-3-CD' WS-CVG-STBL-3-CD.
  18.  
  19.            DISPLAY 'WS-CVG-STBL-3-CD-N' WS-CVG-STBL-3-CD-N.
  20.  
  21.            STOP RUN.
  22.  
Success #stdin #stdout 0.01s 5328KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
WS-CVG-STBL-3-CD05
WS-CVG-STBL-3-CD-N05
https://ideone.com/9KtJLg
language:
Cobol (gnucobol 2.2.0)
created:
1 day 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!