IDENTIFICATION DIVISION.                                         
       PROGRAM-ID. TABLA.                                               
       ENVIRONMENT DIVISION.                                            
       CONFIGURATION SECTION.                                           
       SPECIAL-NAMES.                                                   
            DECIMAL-POINT IS COMMA.                                     
       INPUT-OUTPUT SECTION.                                            
       FILE-CONTROL.                                                    
       DATA DIVISION.                                        
       FILE SECTION.                                                    
       WORKING-STORAGE SECTION.                                         
       77  FILLER           PIC X(20) VALUE "WORKING-STORAGE".          
       77  WS-FS-SALI       PIC XX    VALUE SPACES.                     
       77  WS-INDICE         PIC 99  VALUE 1.                           
       77  WS-I              PIC 9  VALUE ZEROS.                        
       77  WS-J              PIC 9  VALUE ZEROS.                        
       77  WS-K              PIC 9  VALUE ZEROS.                        
       01 WS-TABLE.                                                     
           05 WS-FILA OCCURS 3 TIMES.                                   
              10 WS-NOM-FILA       PIC X(15).                           
              10 WS-ITEM-FILA       PIC 9(3).                           
              10 WS-ITEM-FIL3       PIC 9(4).                           
              10  WS-COLUMNA OCCURS 3 TIMES.                            
                   15  WS-ITEM-COLUMNA     PIC 9(3).                    
                   15  WS-TERCERA  OCCURS 3.                            
                      20  WS-ITEM-CUBO     PIC 9(3).                    
       PROCEDURE DIVISION.                                              
           MOVE 'FEMENINO ' TO WS-NOM-FILA (1)                          
           MOVE 'MASCULINO' TO WS-NOM-FILA (2)                          
           MOVE 'OTROS    ' TO WS-NOM-FILA (3)                          
           PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 3              
                MOVE ZEROS TO WS-ITEM-FILA (WS-I)                       
                MOVE ZEROS TO WS-ITEM-FIL3 (WS-I)                       
             PERFORM VARYING WS-J FROM 1 BY 1 UNTIL WS-J > 3            
                  MOVE ZEROS TO WS-ITEM-COLUMNA (WS-I WS-J)             
               PERFORM VARYING WS-K FROM 1 BY 1 UNTIL WS-K > 3          
                    MOVE ZEROS TO WS-ITEM-CUBO (WS-I WS-J WS-K)         
               END-PERFORM                                              
             END-PERFORM                                                
           END-PERFORM.                                                 
                                                                        
                                                                        
           PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 3              
              PERFORM VARYING WS-J FROM 1 BY 1 UNTIL WS-J > 3           
                  COMPUTE WS-INDICE =  (WS-I * 10) + WS-J               
                  MOVE WS-INDICE TO WS-ITEM-COLUMNA (WS-I WS-J)         
                  ADD WS-ITEM-COLUMNA (WS-I WS-J) TO                    
                            WS-ITEM-FILA (WS-I)                         
                PERFORM VARYING WS-K FROM 1 BY 1 UNTIL WS-K > 3         
                 COMPUTE WS-ITEM-CUBO(WS-I WS-J WS-K)                   
                             = WS-K + (WS-J * 10) + (WS-I * 100)        
                  ADD WS-ITEM-CUBO (WS-I WS-J WS-K) TO                  
                            WS-ITEM-FIL3 (WS-I)                         
                END-PERFORM                                             
              END-PERFORM                                               
           END-PERFORM.                                                 
           DISPLAY 'VALOR IND-TABLA   IND-CUBO'                         
           PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 3              
             PERFORM VARYING WS-J FROM 1 BY 1 UNTIL WS-J > 3            
                DISPLAY WS-ITEM-COLUMNA (WS-I WS-J)                     
                      '     ' WS-I ' ' WS-J                             
              PERFORM VARYING WS-K FROM 1 BY 1 UNTIL WS-K > 3           
                DISPLAY WS-ITEM-CUBO (WS-I WS-J WS-K)                   
                     '                ' WS-I ' ' WS-J ' ' WS-K          
              END-PERFORM                                               
             END-PERFORM                                                
            END-PERFORM.                                                
           DISPLAY WS-NOM-FILA (1) WS-ITEM-FILA(1) ' ' WS-ITEM-FIL3(1). 
           DISPLAY WS-NOM-FILA (2) WS-ITEM-FILA(2) ' ' WS-ITEM-FIL3(2). 
           DISPLAY WS-NOM-FILA (3) WS-ITEM-FILA(3) ' ' WS-ITEM-FIL3(3). 
           DISPLAY WS-FILA (1).                                         
           GOBACK.