En este paso realizará las acciones siguientes: (a) configurar una conexión con un sistema z/OS remoto utilizando la vista Sistemas remotos; (b) crear conjuntos de datos en MVS para que contengan los archivos COBOL y JCL creados por el asistente Generar código de tiempo de ejecución; (c) crear directorios en z/OS UNIX® System Services para que contengan los archivos de servicios Web generados por el asistente Generar código de tiempo de ejecución; (d) crear e iniciar una conexión con un servidor de definiciones de recursos CICS y (e) obtener plantillas que están personalizadas para el sistema z/OS remoto.
En este paso configurará una conexión con el sistema z/OS remoto utilizando la vista Sistemas remotos en la perspectiva Enterprise Service Tools.
Un componente de Rational Developer for System z denominado Explorador de sistemas remotos permite ver y modificar conjuntos de datos MVS y archivos y directorios de z/OS UNIX System Services mediante una interfaz de usuario denominada vista Sistemas remotos.
La vista Sistemas remotos se incluye en la perspectiva Enterprise Service Tools (y en otras perspectivas).
No es necesario que utilice la vista Sistemas remotos porque puede realizar los mismos pasos manualmente iniciando la sesión en MVS o z/OS UNIX System Services y escribiendo los mandatos.
Sin embargo, en esta guía de aprendizaje se utiliza la vista Sistemas remotos debido a que es más fácil y potente que el método manual.
Para configurar una conexión con el sistema remoto z/OS en la vista Sistemas remotos:
Para iniciar la conexión con el sistema z/OS remoto en la vista Sistemas remotos, siga los pasos del Paso B3(b). Iniciar la conexión al sistema z/OS remoto.
En este paso utilizará la vista Sistemas remotos para asignar conjuntos de datos de MVS para que contengan los módulos fuente COBOL, los módulos de libro de copia y los módulos JCL generados por el asistente Generar código de tiempo de ejecución.
Si va a generar código de tiempo de ejecución para más de un flujo archivo (como en esta guía de aprendizaje) es aconsejable especificar un grupo distinto de conjuntos de datos para que contenga los archivos de salida generados de cada flujo.
| Finalidad del conjunto de datos: | Conjuntos de datos para contener los archivos generados desde CatalogOrder.seqflow: | Conjuntos de datos para contener los archivos generados desde CheckItemAvailability.seqflow: |
|---|---|---|
| Para contener módulos de código fuente COBOL | USER25.ESTCO.USER.SRCLIB | USER25.ESTCA.USER.SRCLIB |
| Para contener módulos de miembro de copia | USER25.ESTCO.USER.COPYLIB | USER25.ESTCA.USER.COPYLIB |
| Para contener módulos JCL | USER25.ESTCO.USER.JCL | USER25.ESTCA.USER.JCL |
Para configurar estos conjuntos de datos:
Utilice la vista Sistemas remotos para asignar conjuntos de datos siguiendo los pasos del Paso B3(c). Ubicar conjuntos de datos particionados en MVS.
Utilice la vista Sistemas remotos para comprobar que los conjuntos de datos se han creado.
En este paso utilizará la vista Sistemas remotos para configurar directorios en z/OS UNIX System Services para que contengan los archivos de servicios Web generados por el asistente Generar código de tiempo de ejecución.
Estos directorios sólo son necesarios para el flujo de nivel superior, CatalogOrder.seqflow. No necesitará directorios parecidos para CheckItemAvailability.seqflow.
| Finalidad del directorio: | Directorios para CatalogOrder.seqflow: | Directorios para CheckItemAvailability.seqflow: |
|---|---|---|
| Para contener el archivo BIND de servicio Web | /u/cicsts32/webservices/wsbind/cicssfrp | No es necesario ninguno. |
| Para contener el archivo WSDL | /u/cicsts32/webservices/wsbind/cicssfrp | No es necesario ninguno. |
Para configurar estos directorios:
Utilice la vista Sistemas remotos para crear los directorios en z/OS UNIX System Services, siguiendo los pasos del Paso B3(d). Cree directorios en z/OS UNIX System Services.
Utilice la vista Sistemas remotos para comprobar que los directorios se han creado.
En este subtema creará e iniciará una conexión con un servidor de definiciones de recursos CICS utilizando el componente Gestor de despliegue de aplicaciones de Rational Developer for System z.
Determinadas características adicionales del asistente Generar código de tiempo de ejecución sólo están disponibles si crea y activa una conexión con un servidor de definiciones de recursos CICS. Esta guía de aprendizaje utiliza algunas de estas características adicionales, por lo que debe crear y activar esta conexión si es posible.
Para crear e iniciar esta conexión siga los pasos del tema de ayuda en línea Paso B4. (Opcional) Crear una conexión con un servidor de definiciones de recursos CICS.
Este tema describe cómo obtener versiones personalizadas de las plantillas JCL que el asistente Generar código de tiempo de ejecución utiliza para crear sus archivos JCL.
Una plantilla JCL contiene el texto necesario para crear un archivo JCL para alguna finalidad determinada (por ejemplo, un archivo JCL para compilar código fuente COBOL). El texto de una plantilla JCL incluye variables y espacios reservados que pueden establecerse en los valores reales de un sistema z/OS determinado. El propio texto de una plantilla JCL también puede modificarse para añadir, eliminar o cambiar un mandato JCL.
Generalmente, los archivos JCL los personaliza el administrador del sistema u otra persona familiarizada con el sistema z/OS y con el lenguaje JCL.
Para obtener las plantillas JCL personalizadas del administrador del sistema e instalarlas en la estación de trabajo, siga los pasos de la sección Obtener plantillas JCL personalizadas del administrador del sistema.
Para obtener más información acerca de la personalización de plantillas JCL, consulte la sección Paso B2. (Recomendado) Personalizar las plantillas JCL.
La Figura 1 y la Figura 2 muestran el desarrollo de un archivo JCL de ejemplo que se deriva de la plantilla JCL DFHMAXCJ. La Figura 1 muestra la plantilla JCL DFHMAXCJ una vez personalizada a partir de la plantilla original utilizando el editor en la página Plantillas JCL de la ventana Preferencias. Se realizan las siguientes sustituciones y adiciones:
| Valor antes de la personalización: | Valor personalizado: |
|---|---|
| qual | CICSTS32.FLOW.NQA17C01 |
| hlqcics | CICSBLD.V3R2M0.CICS |
| %MAT_HLQ%.USER.LINKLIB | CUST.CICSC01.LOAD |
| (Ninguno) | Añada esta línea como última línea de
COMPILE EXEC DFHMAXCP: // REG=0M |
//%MAT_UID%C JOB (%MAT_ACCOUNT%),'%MAT_UID%', // CLASS=A,MSGCLASS=H,NOTIFY=%MAT_UID% //*************************** DFHMAXCJ ********************************* //* @START_RRS_COPYRIGHT@ //* VERSION: 1 //* //* Licensed Materials - Property of IBM //* //* 5655-M15 //* //* (c) Copyright IBM Corp. 2000, 2009 //* @END_RRS_COPYRIGHT@ //********************************************************************** //* // JCLLIB ORDER=(CICSTS32.FLOW.NQA17C01.SCIZSAMP) //* //* CURRENTLY SET FOR: %MAT_MEMBER% //* //COMPILE EXEC DFHMAXCP, // COPY1='%MAT_HLQ%.USER.COPYLIB', // COPY2='CICSTS32.FLOW.NQA17C01.SCIZMAC', // COPY3='CICSBLD.V3R2M0.CICS.SDFHCOB', // LINK2='CICSTS32.FLOW.NQA17C01.SCIZLOAD', // OBJLIB='CICSTS32.FLOW.NQA17C01.SCIZLOAD', // PROGRAM='%MAT_MEMBER%', // LINK='CUST.CICSC01.LOAD', // SOURCE='%MAT_HLQ%.USER.SRCLIB(%MAT_MEMBER%)', // REG=0M //LINKSTEP.SYSIN DD * INCLUDE OBJLIB(DFHMAF) NAME %MAT_MEMBER%(R) /* // //****************** TRAILER: DFHMAXCJ *********************************
La Figura 2 muestra un archivo JCL creado por el asistente Generar código de tiempo de ejecución a partir de la plantilla JCL personalizada en la Figura 1. El asistente realizará las siguientes sustituciones en el original:
| Valor antes de la sustitución: | Valor sustituido: | Origen del valor sustituido: |
|---|---|---|
| %MAT_UID% | USUARIO25 | Campo ID de usuario de control de trabajo1 |
| %MAT_ACCOUNT% | USUARIO25 | Campo Cuenta de control de trabajo1 |
| %MAT_MEMBER% | SAMPCAPN | Campo Nombre de programa2 |
| %MAT_HLQ% | USER25.ESTCO | Campo HLQ de bibliotecas de despliegue1 |
| 1Este es un campo de entrada en la página
Selección de archivo del asistente Generar código de tiempo de
ejecución. 2Este es un campo de entrada en el editor de propiedades de generación, en las propiedades de generación del nodo de flujo. |
||
//USER25C JOB (USER25),'USER25', // CLASS=A,MSGCLASS=H,NOTIFY=USER25 //*************************** DFHMAXCJ ********************************* //* @START_RRS_COPYRIGHT@ //* VERSION: 1 //* //* Licensed Materials - Property of IBM //* //* 5655-M15 //* //* (c) Copyright IBM Corp. 2000, 2009 //* @END_RRS_COPYRIGHT@ //********************************************************************** //* // JCLLIB ORDER=(CICSTS32.FLOW.NQA17C01.SCIZSAMP) //* //* ACTUALMENTE ESTABLECIDO PARA: SAMPCAPN //* //COMPILE EXEC DFHMAXCP, // COPY1='USER25.ESTCO.USER.COPYLIB', // COPY2='CICSTS32.FLOW.NQA17C01.SCIZMAC', // COPY3='CICSBLD.V3R2M0.CICS.SDFHCOB', // LINK2='CICSTS32.FLOW.NQA17C01.SCIZLOAD', // OBJLIB='CICSTS32.FLOW.NQA17C01.SCIZLOAD', // PROGRAM='SAMPCAPN', // LINK='CUST.CICSC01.LOAD', // SOURCE='USER25.ESTCO.USER.SRCLIB(SAMPCAPN)', // REG=0M //LINKSTEP.SYSIN DD * INCLUDE OBJLIB(DFHMAF) NAME SAMPCAPN(R) /* // //****************** TRAILER: DFHMAXCJ *********************************