Esta lección describe cómo crear una aplicación COBOL de
ejemplo que accede a los datos de la tabla de base de datos
USERID.FRIENDZ.
Para crear la aplicación COBOL, debe crear una biblioteca
de copia DCLGEN para la tabla USERID.FRIENDZ:
- En la vista Proyectos z/OS, seleccione el subproyecto
MVS (creado al principio de esta guía de aprendizaje) y seleccione
Nuevo > Asignar conjunto de datos particionados en el menú emergente.
- Asigne el nombre
USERID.RDZDB2.JCL al nuevo conjunto de datos y
pulse Finalizar. El nuevo conjunto de datos se mostrará bajo el nombre
del subproyecto MVS.
- Para añadir un miembro a este conjunto de datos, seleccione el conjunto de datos y seleccione Nuevo
> Crear miembro en el menú emergente.
- Denomine al miembro RDZDCLS y pulse Finalizar.
- Asigne un conjunto de datos llamado
USERID.COBOL.COPYLIB
utilizando el mismo método que utilizó para asignar
USERID.RDZDB2.JCL.
Los atributos apropiados del conjunto de datos
USERID.COBOL.COPYLIB se
aplicarán seleccionando Category: SOURCE y
Type: COBOL.
- Haga una doble pulsación en el nombre de miembro RDZDCLS para abrirlo en el Editor
LPEX de System z.
- Copie y peque el segmento de JCL siguiente en la sesión de
edición:
//***********************************
//DCLGEN EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2SUBSYSTEMNAME)
DCLGEN TABLE (USERID.FRIENDZ) LIBRARY ('USERID.COBOL.COPYLIB(RDZDCLS)') -
LANGUAGE (COBOL) STRUCTURE (FRIENDZRECORD) APOST
/*
- Para utilizar este segmento JCL, añádalo a su propia tarjeta JOB.
Necesitará una tarjeta JOBLIB para que señale los conjuntos de datos de DB2
justo después de la tarjeta JOB. Debe sustituir USERID en el segmento de JCL por
su cualificador de alto nivel. Debe sustituir DB2SUBSYSTEMNAME por su nombre de subsistema
DB2.
- Para someter la secuencia de JCL, pulse
Someter en el menú emergente. Normalmente se creará el miembro de copia
USERID.COBOL.COPYLIB(RDZDCLS). Puede encontrar el miembro de copia en la vista Proyectos z/OS después de renovar el conjunto de datos USERID.COBOL.COPYLIB.
- Abra el miembro de copia en una sesión de edición para familiarizarse con las declaraciones.
- Asigne un conjunto de datos particionados llamado
USERID.RDZDB2.COBOL con el
miembro RDZDB2 y copie y pegue o vuelva a
escribir el programa COBOL siguiente en el miembro. Este programa obtiene un valor de la tabla FRIENDZ.
IDENTIFICATION DIVISION.
PROGRAM-ID. RDZDB2.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEMP PIC X(6).
01 TEMP2 PIC X(6).
EXEC SQL INCLUDE SQLDA END-EXEC.
EXEC SQL INCLUDE SQLCA END-EXEC.
COPY RDZDCLS.
LINKAGE SECTION.
PROCEDURE DIVISION.
* EXEC SQL CONNECT TO DB2SUBSYSTEMNAME END-EXEC.
MOVE 'TYRONE ' TO FNAME.
EXEC SQL
SELECT FNAME, LNAME, PHONE, EMAIL
INTO :FNAME,
:LNAME,
:PHONE,
:EMAIL
FROM USERID.FRIENDZ
WHERE FNAME = :FNAME
END-EXEC.
DISPLAY "FIRSTNAME:".
DISPLAY FNAME.
DISPLAY "LASTNAME:".
DISPLAY LNAME.
DISPLAY "PHONE:".
DISPLAY PHONE.
DISPLAY "EMAIL:".
DISPLAY EMAIL.
GOBACK.
- Sustituya DB2SUBSYSTEMNAME por el nombre de subsistema DB2 y USERID por el nombre de esquema.