IDENTIFICATION DIVISION.                                                 
      *========================                                                 
       PROGRAM-ID.    IDEONEIX.                                                 
       AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
       INSTALLATION.  TELEFONICA.                                               
       DATE-WRITTEN.  21/09/2011.                                               
       DATE-COMPILED.                                                           
      *                                                                         
       ENVIRONMENT DIVISION.                                                    
      *=====================                                                    
      *                                                                         
       CONFIGURATION SECTION.                                                   
      *                                                                         
       SOURCE-COMPUTER. IBM-370.                                                
       OBJECT-COMPUTER. IBM-370.                                                
      *                                                                         
       DATA DIVISION.                                                           
      *==============                                                           
      *                                                                         
       WORKING-STORAGE SECTION.                                                 
      *-----------------------*                                                 
      *----------------------------------------------------------------*        
      *                        VARIABLES                               *        
      *----------------------------------------------------------------*        
       01 GT99-CLAVTG                      PIC X(20).
       01 WS-DISPLAY                       PIC X(02).
       01 MSI-COD-OBS-CD                   PIC S9(9).      
                                                 
       PROCEDURE DIVISION.                                     
      *----------------------------------------------------------------*        
      * PROCESOS DEL PROGRAMA.                                         *        
      *----------------------------------------------------------------*        
           MOVE 29 TO MSI-COD-OBS-CD
           MOVE MSI-COD-OBS-CD(8:2) TO WS-DISPLAY
           MOVE WS-DISPLAY TO GT99-CLAVTG
           DISPLAY 'COD-CLAVE>: ' GT99-CLAVTG.