Ir a contenido principal

Bienvenido a My developerworks. Si no tiene un ID de IBM y un password, regístrese aquí.

Al hacer clic en Enviar, usted está de acuerdo con los términos y condiciones de developerWorks.

La primera vez que inicie sesión en developerWorks, se creará un perfil para usted. Este perfil incluye el nombre, apellido y nombre de usuario que poporcinó cuando se registró en developerWorks. Cierta información de su perfil será mostrada públicamente, pero usted puede editar la información en cualquier momento. Su nombre, apellido (a menos que usted elija ocultarlo), y nombre de usuario acompañarán el contenido que usted publica.

Toda la información enviada es segura.

La primera vez que inicia sesión en developerWorks se crea un perfil para usted, teniendo que elegir un nombre para mostrar en el mismo. Este nombre acompañará el contenido que usted publique en developerWorks.

Por favor elija un nombre de 3 - 31 caracteres. Su nombre de usuario debe ser único en la comunidad developerWorks y debe ser distinto a su dirección de email por motivos de privacidad.

Al hacer clic en Enviar, usted está de acuerdo con los términos y condiciones de developerWorks.

Toda la información enviada es segura.

Transforme de UML a COBOL, Parte 1

Cree programas COBOL y servicios web sin escribir código

Reginaldo Barosa, Executive IT Specialist, IBM
Author photo
Reginaldo W. Barosa es Executive IT Specialist en IBM, brinda soporte de ventas, ayudando a los clientes en las soluciones de modernización empresariq y herramientas de desarrollo, como Rational Developer for System z. Antes de ingresar a IBM U.S., hace ya más de nueve años, Reginaldo trabajó durante 27 años para IBM Brasil, fue coautor de IBM Redbooks y escribió dos libros, además de otros artículos y tutoriales para IBM developerWorks. Es ingeniero eléctrico egresado del Instituto Maua de Tecnologia en San Pablo, Brasil.

Resumen:  Conozca una nueva característica de la Versión 7 de WebSphere® Developer para System z™: z/OS Database Application Generator. z/OS Database Application Generator genera automáticamente programas CICS® COBOL con acceso a DB2®. Esta característica además genera un servicio web y el Lenguaje de Control de Trabajos (JCL) que lo ayudará a implantar el código generado. Este tutorial comienza con una introducción rápida a esta característica y le presenta un escenario de ejemplo que le enseñará a transformar UML a COBOL. Nota: A partir de la Versión 7.1, WebSphere Developer for System z pasó a denominarse Rational Developer for System z.

Fecha:  03-08-2011
Nivel:  Intermediaria

Comentario:  

Creación de la tabla DB2 en el sistema z/OS

¿Desea ver una demostración de estos pasos?

¡Muéstrenme los pasos!

Las transformaciones no generan ningún Lenguaje de Definición de Datos (DDL) que pueda usarse para crear la tabla DB2; sin embargo, es muy sencillo crear un archivo DDL tomando como referencia uno de los programas COBOL generados que use la tabla que desea construir. Por ejemplo, para crear la tabla CUSTOMER, observe el código del programa CUSTCRUD.cbl; lea las definiciones COBOL de esta tabla en el área de almacenamiento de trabajo (como la mostrada en la Figura 14 de la sección anterior). Desde este punto de partida, resulta más fácil crear un archivo DDL para luego crear la tabla.

Otra alternativa es usar WebSphere Developer para System z en la perspectiva Data (Datos) para crear y cargar esta tabla. En este ejemplo, use el DDL del Listado 1 para crear y cargar algunos datos en la tabla.


Listado 1. DDL usado en este tutorial para crear y cargar la tabla DB2
-- create and load table CUSTOMER on zOS
DROP TABLE CUSTOMER;
CREATE TABLE CUSTOMER
(
 CUST_NO INTEGER NOT NULL,
 CUST_LN VARCHAR(25) NOT NULL,
 CUST_FN VARCHAR(15) NOT NULL,
 CUST_ADDR1 VARCHAR(20),
 CUST_CITY VARCHAR(20),
 CUST_ST   VARCHAR(5),
 CUST_CTRY VARCHAR(15),
 PRIMARY KEY (CUST_NO)
);

CREATE UNIQUE INDEX XCUSTOMER
    ON CUSTOMER
      ( CUST_NO ASC);

INSERT INTO CUSTOMER VALUES
  (1,'Lincoln','Abraham','1234 Independence Wy','Springfield','IL','USA');
INSERT INTO CUSTOMER VALUES
  (2,'Bush','George W','White House','Washington','DC','USA');
INSERT INTO CUSTOMER VALUES
  (3,'Fox','Vicente','Calle de Presidente','Mexico City','DF','MEXICO');
INSERT INTO CUSTOMER VALUES
  (4,'Silva','LULA Da','Palacio Planalto','Brasilia','DF','BRAZIL');
INSERT INTO CUSTOMER VALUES
  (5,'Chruchil','Winston','10 Downing Street','London','ENGL','UK');
INSERT INTO CUSTOMER VALUES
  (6,'Barosa','Thiago','7 Sao Benedito','Sao Paulo','SP','BRASIL');
INSERT INTO CUSTOMER VALUES
  (7,'Barosa','Daniel','123 Calle Oro', 'Buenos Aires','DF','ARGENTINA');
INSERT INTO CUSTOMER VALUES
  (8,'Page','Megan','2 Victory Rd','Boston', 'MA','USA') ;
INSERT INTO CUSTOMER VALUES
  (9,'Santos','Rute','3 Sting Blvd', 'San Francisco', 'CA','USA');
INSERT INTO CUSTOMER VALUES
  (10,'Turgo','Happy','33 Diving Well Dr', 'Key West','FL','USA');

Uso de la perspectiva Data de WebSphere Developer para System z para crear la tabla z/OS DB2

La perspectiva Data de WebSphere Developer para System z es un entorno de desarrollo que permite trabajar con bases de datos para distintas plataformas, inclusive para System z. Esta perspectiva permite conectarse con bases de datos locales o remotas y llevar a cabo actividades de bases de datos.

Para crear un proyecto de diseño de datos, cargue el archivo DDL y cree la tabla siguiendo los pasos a continuación:

  1. Desde la barra del menú principal, seleccione File > New > Data Design Project (Archivo > Nuevo > Proyecto de diseño de datos). Otra alternativa es hacer clic derecho en el espacio en blanco en Data Project Explorer y seleccionar New > Project > Data Design Project (Nuevo > Proyecto > Proyecto de diseño de datos). Se abrirá el asistente New Data Design Project (Nuevo proyecto de diseño de datos).
  2. Siga los pasos del asistente y luego haga clic en Finish. El proyecto de diseño de datos se visualizará en la vista Data Project Explorer.
  3. Usando este proyecto, puede importar un DB2 DDL que cree la tabla z/OS DB2 dentro de la carpeta llamada SQL Scripts. En la ventana Connection Parameters (Parámetros de conexión), seleccione Create a new connection (Crear una nueva conexión) y haga clic en Next (o seleccione una conexión z/OS de base de datos existente). Seleccione DB2 UDB zSeries, su versión DB2, su ubicación, su número de puerto y su ID de usuario z/OS y contraseña. También puede hacer clic en Test Connection (Probar conexión) para verificar que la conexión funcione correctamente. Si la conexión se realiza con éxito, haga clic en Next.
  4. Ejecute y pruebe las instrucciones SQL creadas. Deberá crear una conexión de base de datos que señale al sistema z/OS a usar. En la vista Data Project Explorer y en la carpeta SQL Scripts del proyecto de diseño de datos, haga clic derecho en el archivo que importó con el DDL y luego seleccione Run SQL (Ejecutar SQL) del menú.
  5. En Schema Filter(Filtro de esquemas), desactive la opción Disable filter (Desactivar filtro) y use la expresión Contains the characters (Contiene los caracteres) dejando como valor predeterminado su ID de usuario.
  6. Haga clic en Finish.
  7. Si cuenta con las autorizaciones necesarias, se creará la tabla z/OS DB2. Puede usar la vista Data Output (Datos de salida) para verificar los mensajes.

A partir de este momento, usted está listo para efectuar pruebas usando Database Application Generator y una tabla z/OS DB2 existente.

7 de 14 | Anterior | Siguiente

Comentario



static.content.url=http://www.ibm.com/developerworks/js/artrating/
SITE_ID=90
Zone=WebSphere, Rational
ArticleID=649224
TutorialTitle=Transforme de UML a COBOL, Parte 1
publish-date=08032011
author1-email=rbarosa@us.ibm.com
author1-email-cc=

Etiquétalo Etiquetas

Help
Utilice el campo de búsqueda para encontrar todo tipo de contenido en My developerWorks con esa etiqueta.

Utilice el deslizador para controlar cuántas etiquetas deben mostrarse.

Las etiquetas populares muestran las etiquetas más difundidas en esta zona particular de contenido (por ejemplo: Java, Linux, WebSphere).

Mis Etiquetas muestra sus etiquetas en esta zona particular de contenido (por ejemplo: Java, Linux, WebSphere).

Utilice el campo de búsqueda para encontrar todo tipo de contenido en My developerWorks con esa etiqueta. Las etiquetas populares muestran las etiquetas más difundidas en esta zona particular de contenido (por ejemplo: Java, Linux, WebSphere). Mis Etiquetas muestra sus etiquetas en esta zona particular de contenido (por ejemplo: Java, Linux, WebSphere).