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:
- Abra la página de propiedades Tarjeta de trabajos
JCL y conjunto de datos para el miembro
RDZDB2. Consulte Cambio de las propiedades de un recurso.
- 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
particionado válido en el que se escribirá el JCL.
- Seleccione el recuadro de selección Utilizar
DB2 en la pestaña Procedimientos y
pasos de la página Valores de
COBOL.
- Pulse en el signo más situado en el procedimiento ELAXFCOC
para expandirlo y efectúe una doble pulsación en 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 Calificador 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
//*
/*
- Pulse Aceptar para guardar las
propiedades de compilador.
- 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
ejecución y efectúe una doble pulsación en el nombre de
paso RUN. Se abrirá la ventana Opciones de paso de tiempo de ejecución.
- Seleccione el botón de selección Ejecutar por lotes con el depurador.
- Cambie el Nombre de procedimiento de ejecución por ELAXFTSO.
- Cambie el JCL adicional por lo siguiente:
//******* ADDITIONAL RUNTIME JCL HERE ******
//TSOGO.SYSTSIN DD *
DSN SYSTEM(DB2SUBSYSTEMNAME)
RUN PROGRAM(RDZDB2) -
PLAN(PLANNAME) -
LIB('USER33.LOAD')
/*
- Guarde las propiedades.
- Pulse con el botón derecho del ratón en el PDS donde reside el miembro RDZDB2 en la vista Proyectos
z/OS y abra la página de propiedades Valores de Assembler correspondiente al
recurso.
- Efectúe una doble pulsación sobre el nombre del paso ASM.
- Asegúrese de que los conjuntos de datos especificados existen
para el Conjunto de datos de baraja de
objetos
y las Bibliotecas de macro.
- Pulse con el botón derecho del ratón en el programa RDZDB2 en la vista Proyectos
z/OS y seleccione Generar JCL > Compilar, Enlazar, Ir.