fork download 
  1.         IDENTIFICATION DIVISION.
  2.         PROGRAM-ID. FIRSTPRG.
  3.         ENVIRONMENT DIVISION.
  4.         DATA DIVISION.
  5.         WORKING-STORAGE SECTION.                    
  6.         01 DAT1 PIC zz9(3)v9(2).                           
  7.         01 DAT2 PIC s9(3) VALUE 10.                           
  8.         PROCEDURE DIVISION.                         
  9.         MAIN-PARA.  
  10.         DISPLAY DAT2.
  11.         STOP RUN.
Success #stdin #stdout 0.01s 6160KB
comments (?)
stdin 
Standard input is empty
stdout 
+010
https://ideone.com/URiPN
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!