Esta lección describe cómo establecer propiedades de construcción para el programa COBOL de ejemplo creado
en la lección anterior.
Para establecer propiedades de construcción para el programa COBOL de ejemplo, siga estos pasos:
- Seleccione el conjunto de datos USERID.RDZDB2.COBOL y pulse Grupo de propiedades > Editar grupo de propiedades asociado.
- Abra la página de propiedades Tarjeta de trabajos
JCL y conjunto de datos.
- Actualice el campo de entrada Tarjeta de trabajos JCL.
Es posible que necesite insertar
una tarjeta JOBLIB.
- Cambie el campo de entrada Conjunto de datos JCL para que señale un conjunto de datos particionados válido en el que se escribirá el JCL.
- Seleccione el recuadro de selección DB2 en la página Entornos de ejecución del separador Valores de COBOL.
- En la página Procedimientos y pasos de Valores de COBOL pulse el símbolo de suma en el procedimiento ELAXFCOC para expandirlo y pulse el nombre de paso COBOL para abrir las propiedades del compilador.
- Especifique entradas válidas de conjuntos de datos para
Conjunto de datos de salida de listado, Conjunto de
datos de depuración, Conjunto de datos de baraja de objetos,
Ubicación del módulo de petición de base de datos
(DBRM) y Cualificador de conjunto de datos
para errores de compilación.
- Marque el recuadro de selección Información de errores de soporte. Las instrucciones SYSTSIN contienen las instrucciones de enlace para la aplicación COBOL. Los valores iniciales
de este campo de entrada son comentarios JCL.
//*DESCOMENTE Y ADAPTE LA SENTENCIA IF YOUR SYSTSIN SIGUIENTE**
//*CONTIENTE INSTRUCCIONES DE ENLACE:
//*//SYSTSIN DD *
//* DSN SYSTEM(YOURSUBSYSTEM)
//* BIND PACKAGE(YOURLOCATION.YOURPACKAGE)-
//* OWNER(YOURUSERID) -
//* MEMBER(YOURMEMBER) -
//* LIBRARY('YOUR.DBRM.LIBRARY') -
//* ACTION(REP) -
//* VALIDATE(BIND)
//* BIND PLAN(YOURPLAN) -
//* PKLIST(YOURLOCATION.YOURPACKAGENAME.*)
//* END
//* O
//*DESCOMENTE Y ADAPTE LA SENTENCIA IF YOUR SYSTSIN SIGUIENTE**
//*SEÑALA A UN CONJUNTO DE DATOS QUE CONTIENE INSTRUCCIONES DE ENLACE
//*//SYSTSIN DD DSN=USERID.BIND(MEMBER),DISP=SHR
//*
- Elimine los comentarios desde la sentencia //SYSTSIN DD *
hasta la sentencia END y proporcione los valores que empiezan por
YOUR, como en el ejemplo siguiente.
//*DESCOMENTE Y ADAPTE LA SENTENCIA IF YOUR SYSTSIN SIGUIENTE**
//*CONTIENTE INSTRUCCIONES DE ENLACE:
//SYSTSIN DD *
DSN SYSTEM(DSN7)
BIND PACKAGE(STPLEX4A_DSN7.MELPKG1)-
OWNER(MEL) -
MEMBER(RDZDB2) -
LIBRARY('MEL.D2.DB2DBRM') -
ACTION(REP) -
VALIDATE(BIND)
BIND PLAN(MELPLN1) -
PKLIST(STPLEX4A_DSN7.MELPKG1.*)
END
//* O
//*DESCOMENTE Y ADAPTE LA SENTENCIA IF YOUR SYSTSIN SIGUIENTE**
//*SEÑALA A UN CONJUNTO DE DATOS QUE CONTIENE INSTRUCCIONES DE ENLACE
//*//SYSTSIN DD DSN=USERID.BIND(MEMBER),DISP=SHR
//*
/*
- Abra la página de propiedades Opciones de
enlace y verifique que el conjunto de datos del módulo
de carga sea válido.
- Añada los conjuntos de datos de DB2 y
Entorno de lenguaje (LE) necesarios a las bibliotecas de enlace.
- Abra la página de propiedades Opciones de tiempo de ejecución y pulse el nombre de paso RUN. Se abrirá el área Opciones de paso.
- Pulse el botón Editar y cambie el Nombre de procedimiento por ELAXFTSO.
- Seleccione el botón de selección Ejecutar por lotes con el depurador.
- Cambie el JCL adicional por lo siguiente:
//******* ESPECIFICAR AQUÍ JCL DE TIEMPO DE EJECUCIÓN ADICIONAL ******
//TSOGO.SYSTSIN DD *
DSN SYSTEM(DB2SUBSYSTEMNAME)
RUN PROGRAM(RDZDB2) -
PLAN(PLANNAME) -
LIB('USERID.LOAD')
/*
- En el separador Assembler del editor de grupo de propiedades, expanda ELAXFASM y pulse el nombre de paso ASM.
- Asegúrese de que los conjuntos de datos especificados existen para el Conjunto de datos de baraja de objetos y las opciones Bibliotecas de macro.
- Cierre y guarde los cambios del grupo de propiedades.
- Pulse con el botón derecho del ratón en el programa RDZDB2 en la vista Proyectos
z/OS y seleccione Generar JCL > Para Compilar Enlazar Ir.