Clausula DECLARE de una Tabla DB2

Siempre que queramos utilizar una tabla DB2 en un programa Cobol, previamente vamos a necesitar proceder a su declaración en la sección WORKING-STORAGE. Sin dicha declaración, el objeto nos dará un error en el proceso de compilación.



Para poder ejecutar una sentencia sobre una tabla DB2 necesitaremos en primer lugar realizar su declaración mediante la claúsula DECLARE. En ella se deberá especificar el nombre de la tabla DB2 y los nombres de los campos de la misma que van a ser empleados en el programa.

Aquí tenemos un ejemplo con un DECLARE de la tabla JJCLIEM0.

******************************************************************
* WORKING-STORAGE SECTION                                        
******************************************************************
 WORKING-STORAGE SECTION.                       
*                                       
* DECLARE JJCLIEM0                      
* ----------------                      
     EXEC SQL                           
       DECLARE JJCLIEM0 TABLE(          
         CLIENTE       NUMERIC(10),     
         NOMBRE        CHAR(20),        
         APELLIDO1     CHAR(20),        
         APELLIDO2     CHAR(20),        
         ALTURA        NUMERIC(3,2),    
         PESO          NUMERIC(3,2),    
         IMC           NUMERIC(3,2),    
         OBSERVACIONES CHAR(50),        
         FECHA         TIMESTAMP)       
     END-EXEC.                          
*                                    

Como vemos, la claúsula es bastante simple. Los pasos a seguir son los siguientes:

1º) Abrir un párrafo de SQL con las claúsulas EXEC SQL y END-EXEC. Entre ellas se declarará la información de la tabla DB2.

2º) Especificar, con DECLARE TABLE, el nombre de la tabla DB2.

3º) Finalmente, enumerar la lista de campos de la tabla DB2 (junto con su formato) que van a ser utilizados en el programa Cobol.

No hay mucho más que decir. El funcionamiento de esta claúsula es así de sencillo y no debería darnos ningún problema en compilación. Por supuesto, el único problema sería que se nos olvidara especificarla en nuestro programa.

Pues nada, otro día seguiremos comentando más cosas sobre las tablas DB2.

Saludos.