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 PDS 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.
- Añada un miembro a este conjunto de datos llamado RDZDCLS.
- 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 calificador 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 STPLEX4A_DSN7 END-EXEC.
MOVE 'TYRONE ' TO FNAME.
EXEC SQL
SELECT FNAME, LNAME, PHONE, EMAIL
INTO :FNAME,
:LNAME,
:PHONE,
:EMAIL
FROM RDZSCHE.FRIENDZ
WHERE FNAME = :FNAME
END-EXEC.
DISPLAY "FIRSTNAME:".
DISPLAY FNAME.
DISPLAY "LASTNAME:".
DISPLAY LNAME.
DISPLAY "PHONE:".
DISPLAY PHONE.
DISPLAY "EMAIL:".
DISPLAY EMAIL.
GOBACK.