Rational Developer for System z, Versión 7.6

Conectar a una base de datos DB2 utilizando COBOL

Antes de empezar

Antes de intentar conectarse a una base de datos DB2, primero debe configurar una conexión de base de datos (consulte la sección Configurar una conexión de base de datos) y luego configurar el entorno de trabajo para que utilice dicha conexión de base de datos con el asistente Conexión de base de datos (consulte la sección Configurar la conexión con una base de datos DB2 UDB zSeries para obtener un ejemplo de cómo conectarse a una base de datos OS/390 DB2).
Por qué y cuándo se efectúa esta tarea
Para conectar con una base de datos DB2 utilizando COBOL, haga lo siguiente:
  1. Cree un proyecto COBOL local en Rational Developer for System z.
  2. Enlace la biblioteca DB2 al proyecto abriendo la página de propiedades Opciones de enlace local.
  3. Escriba /de db2api.lib en el campo Opciones de enlace.
  4. Pulse Opciones de construcción COBOL local y proporcione la información siguiente:
    SYSLIB
    directorio_instalación\INCLUDE\COBOL_A
    Nota: Sustituya directorio_instalación por el directorio de instalación de DB2.
  5. Seleccione El fuente contiene SQL intercalado.
  6. Pulse Examinar y seleccione la conexión de DB2.
  7. Opcional: En el campo Otras opciones SQL, entre opciones adicionales para pasarlas al preprocesador SQL. Las distintas opciones SQL se separan con comas.
  8. Pulse Aceptar.
    Nota: No especifique opciones relacionadas con DB2 en el campo Opciones de compilador. Las opciones y subopciones de compilador necesarias se crearán automáticamente a partir de la conexión DB2 seleccionada y las opciones que indique en el campo Otras opciones SQL.
  9. Inserte la siguiente sentencia antes de usar sentencias SQL en las secciones WORKING-STORAGE, LOCAL-STORAGE o LINKAGE del código:
    EXEC SQL INCLUDE SQLCA END-EXEC;
  10. Delimite las sentencias SQL con sentencias EXEC SQL y END-EXEC. El siguiente es un ejemplo de utilización de la base de datos de ejemplo DB2:
    EXEC SQL UPDATE employee
           SET firstnme = 'Myname'
           WHERE empno = '000010' END-EXEC.
Ejemplo
Código COBOL de ejemplo para acceder a una base de datos DB2
      * ---------------------------------------------------
      *   Nombre de módulo: COBOLDB2.cbl
      *
      *   Descripción: COBOL de ejemplo con programa DB2.
      *
      *   Objetivo: realizar una selección (Select) en la tabla de empleados
      *   de la base de datos de ejemplo (sample en el código) que viene con DB2.
      *
      *   COMPLILER OPTIONS (hay que cambiar USERNAME y PASSWORD):
      *   DATA,EXIT(ADEXIT(FTTDBKW)),sql('database sample user USERNAME using PASSWORD')
      *
      *   SYSLIB:
      *   C:\Archivos de programa\IBM\SQLLIB\INCLUDE\COBOL_A
      *
      *   ILINK OPTIONS:
      *   /de db2api.lib
      *
      * ---------------------------------------------------
       Identification Division.
       Program-ID.  COBOLDB2.

       Data Division.

      *Asegurarse de que SQLCA está incluido en Working-Storage
       Working-Storage Section.
       EXEC SQL INCLUDE SQLCA END-EXEC.

      *Estructura de datos para almacenar el nombre del empleado
       01 Program-pass-fields.
          05 Firstnme         Pic x(30).

       Procedure Division.
      *Hay que establecer una conexión con la base de datos
            EXEC SQL CONNECT TO sample END-EXEC.

      *Realizar una selección SQL SELECT para obtener el nombre del empleado
      *cuyo número de empleado es 10.
           EXEC SQL SELECT firstnme INTO :Firstnme
           FROM employee
           WHERE empno = '000010' END-EXEC.

      *Visualiza el nombre obtenido de la base de datos de ejemplo (su nombre es sample).
           Display "Firstname"
           Display "========="
           Display Firstnme

           Display " "
      *Visualiza el estado de las sentencias SQL
           Display SQLCA

           Goback.

Términos de uso | Comentarios

Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)