Cette leçon explique comment créer un exemple d'application COBOL qui accède aux données de la table de la base de données USERID.FRIENDZ.
Pour créer l'application COBOL, vous devez créer une bibliothèque
de copie DCLGEN pour la table USERID.FRIENDZ :
- Dans la vue Projets z/OS, sélectionnez votre
programme MVS créé au début de ce tutoriel, puis sélectionnez
Nouveau > Affecter un fichier PDS dans le menu contextuel.
- Nommez le nouveau fichier USERID.RDZDB2.JCL et cliquez sur Terminer. Le nouveau fichier apparaît sous le nom du
sous-projet MVS.
- Ajoutez un membre au fichier RDZDCLS..
- Attribuez un fichier appelé USERID.COBOL.COPYLIB à l'aide de la méthode utilisée pour attribuer USERID.RDZDB2.JCL.
Les bons attributs de fichier de USERID.COBOL.COPYLIB seront appliqués lorsque vous sélectionnez Catégorie : SOURCE et Type :
COBOL.
- Cliquez deux fois sur le nom de membre RDZDCLS pour l'ouvrir dans
l'éditeur LPEX System z.
- Copiez-collez le segment JCL suivant dans la session d'édition :
//***********************************
//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
/*
- Pour utiliser ce segment JCL, ajoutez-le à votre propre carte JOB.
Il peut être nécessaire de disposer d'une carte JOBLIB pointant vers les fichiers
DB2 qui suivent immédiatement votre carte JOB. Vous devez remplacer USERID dans le segment JCL par
votre qualificatif de haut niveau. Remplacez également DB2SUBSYSTEMNAME par le nom de
votre sous-système DB2.
- Pour soumettre le flot JCL, cliquez sur Soumettre
dans le
menu
contextuel. Le membre de copie USERID.COBOL.COPYLIB(RDZDCLS) doit être créé.
Vous pouvez trouver le membre de copie dans la vue Projets z/OS après
avoir régénéré le fichier USERID.COBOL.COPYLIB.
- Ouvrez le membre de copie dans une session d'édition afin de vous
familiariser avec les déclarations.
- Allouez un fichier partitionné appelé userID.RDZDB2.COBOL au membre RDZDB2 et copiez-collez ou
retapez le programme COBOL suivant dans le membre. Ce programme extrait une valeur de la table 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.