fork download
copy 
  1.        IDENTIFICATION DIVISION.                                                 
  2.       *========================                                                 
  3.        PROGRAM-ID.    IDEONEIX.                                                 
  4.        AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
  5.        INSTALLATION.  TELEFONICA.                                               
  6.        DATE-WRITTEN.  21/09/2011.                                               
  7.        DATE-COMPILED.                                                           
  8.       *                                                                         
  9.        ENVIRONMENT DIVISION.                                                    
  10.       *=====================                                                    
  11.       *                                                                         
  12.        CONFIGURATION SECTION.                                                   
  13.       *                                                                         
  14.        SOURCE-COMPUTER. IBM-370.                                                
  15.        OBJECT-COMPUTER. IBM-370.                                                
  16.       *                                                                         
  17.        DATA DIVISION.                                                           
  18.       *==============                                                           
  19.       *                                                                         
  20.        WORKING-STORAGE SECTION.                                                 
  21.       *-----------------------*                                                 
  22.       *----------------------------------------------------------------*        
  23.       *                        VARIABLES                               *        
  24.       *----------------------------------------------------------------*        
  25.        01 GT99-CLAVTG                      PIC X(20).
  26.        01 WS-DISPLAY                       PIC X(02).
  27.        01 MSI-COD-OBS-CD                   PIC S9(9).      
  28.  
  29.        PROCEDURE DIVISION.                                     
  30.       *----------------------------------------------------------------*        
  31.       * PROCESOS DEL PROGRAMA.                                         *        
  32.       *----------------------------------------------------------------*        
  33.            MOVE 29 TO MSI-COD-OBS-CD
  34.            MOVE MSI-COD-OBS-CD(8:2) TO WS-DISPLAY
  35.            MOVE WS-DISPLAY TO GT99-CLAVTG
  36.            DISPLAY 'COD-CLAVE>: ' GT99-CLAVTG.
Success #stdin #stdout 0.01s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
COD-CLAVE>: 29
https://ideone.com/7JOvf
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!