fork(19) download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. HOLAMUNDO.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION. 
  8.            01 VARIN  PIC X(10).
  9.            01 VARSWAP PIC X(10) JUSTIFIED RIGHT.
  10.  
  11.        PROCEDURE DIVISION.
  12.            MOVE '123456    ' TO VARIN
  13.  
  14.            UNSTRING VARIN DELIMITED BY ' ' INTO VARSWAP
  15.  
  16.            INSPECT VARSWAP REPLACING LEADING SPACE BY '0'
  17.  
  18.            MOVE VARSWAP TO VARIN
  19.  
  20.            DISPLAY VARIN
  21.  
  22.            STOP RUN.
  23.  
Success #stdin #stdout 0.01s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0000123456
https://ideone.com/mgbKZ3
language:
Cobol (gnucobol 2.2.0)
created:
10 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!