Rational Developer for System z


Crear la aplicación COBOL de ejemplo

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.
En esta lección se supone que el usuario sabe cómo asignar un conjunto de datos en un subproyecto MVS.
Para crear la aplicación COBOL, debe crear una biblioteca de copia DCLGEN para la tabla USERID.FRIENDZ:
  1. 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.
  2. 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.
  3. Para añadir un miembro a este conjunto de datos, seleccione el conjunto de datos y seleccione Nuevo > Crear miembro en el menú emergente.
  4. Denomine al miembro RDZDCLS y pulse Finalizar.
  5. 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.
  6. Haga una doble pulsación en el nombre de miembro RDZDCLS para abrirlo en el Editor LPEX de System z.
  7. 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
    /* 
  8. 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.
  9. 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.
  10. Abra el miembro de copia en una sesión de edición para familiarizarse con las declaraciones.
  11. 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.
  12. Sustituya DB2SUBSYSTEMNAME por el nombre de subsistema DB2 y USERID por el nombre de esquema.

Términos de uso | Comentarios



Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)