Cette leçon explique comment définir les propriétés de construction
du programme
COBOL exemple que vous avez créé à la leçon précédente.
Pour définir les propriétés de construction du programme COBOL,
procédez comme suit :
- Sélectionnez le fichier IDUTILISATEUR.RDZDB2.COBOL puis cliquez sur
Groupe de propriétés > Edition du groupe de propriétés associé.
- Ouvrez la page de propriétés Carte de travail et fichier JCL.
- Mettez à jour la zone de saisie Carte de travail
JCL.
Il peut être nécessaire d'insérer une carte JOBLIB.
- Modifiez la zone de saisie Fichier JCL
afin qu'elle pointe vers un fichier partitionné valide dans lequel votre JCL
sera écrit.
- Sélectionnez la case à cocher DB2 sur la page Environnements
d'exécution de l'onglet Paramètres COBOL.
- Sur la page Procédures et étapes de Paramètres COBOL, cliquez
sur le signe plus dans la procédure ELAXFCOC pour la développer puis cliquez sur le nom d'étape
COBOL pour ouvrir les propriétés de compilateur.
- Indiquez des entrées de fichier correctes pour Fichier de
sortie de liste, Fichier de débogage, Fichier de paquet de cartes objet,
Emplacement du module d'interrogation de base de données (DBRM) et
Qualificatif de fichier des erreurs de compilation.
- Cochez la case Prendre en charge le retour d'erreur. Les Instructions SYSTSIN comprennent les instructions de liaison de
votre application COBOL. Les valeurs initiales de cette zone de saisie sont
des commentaires JCL.
//*ANNULEZ LE COMMENTAIRE ET ADAPTEZ LES ELEMENTS SUIVANTS SI VOTRE DECLARATION SYSTSIN**
//*CONTIENT DES INSTRUCTIONS DE LIAISON :
//*//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
//* OR
//*ANNULEZ LE COMMENTAIRE ET ADAPTEZ LES ELEMENTS SUIVANTS SI VOTRE DECLARATION SYSTSIN**
//*POINTE SUR UN FICHIER CONTENANT DES INSTRUCTIONS DE LIAISON
//*//SYSTSIN DD DSN=USERID.BIND(MEMBER),DISP=SHR
//*
- Supprimez les commentaires à partir de l'instruction //SYSTSIN DD *
jusqu'à l'instruction END, puis complétez les valeurs commençant par YOUR,, comme indiqué dans l'exemple suivant.
//*ANNULEZ LE COMMENTAIRE ET ADAPTEZ LES ELEMENTS SUIVANTS SI VOTRE DECLARATION SYSTSIN**
//*CONTIENT DES INSTRUCTIONS DE LIAISON :
//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
//* OR
//*ANNULEZ LE COMMENTAIRE ET ADAPTEZ LES ELEMENTS SUIVANTS SI VOTRE DECLARATION SYSTSIN**
//*POINTE SUR UN FICHIER CONTENANT DES INSTRUCTIONS DE LIAISON
//*//SYSTSIN DD DSN=USERID.BIND(MEMBER),DISP=SHR
//*
/*
- Ouvrez la page des propriétés Options de liens et vérifiez que votre fichier
de module de chargement est correct.
- Ajoutez les fichiers DB2 et
Language Environment (LE) requis à
vos bibliothèques de liaison.
- Ouvrez la page de propriétés Options d'exécution et cliquez
sur le nom d'étape RUN. La zone Options d'étape s'affiche.
- Cliquez sur le bouton Editer et changez le
Nom de procédure en ELAXFTSO.
- Sélectionnez le bouton d'option Exécuter par lots avec le
débogueur.
- Remplacez le JCL supplémentaire par ce qui suit :
//******* EXECUTER ICI LE JCL SUPPLEMENTAIRE ******
//TSOGO.SYSTSIN DD *
DSN SYSTEM(DB2SUBSYSTEMNAME)
RUN PROGRAM(RDZDB2) -
PLAN(PLANNAME) -
LIB('USERID.LOAD')
/*
- Sur l'onglet d'assembleur de l'éditeur de groupe
de propriétés, développez ELAXFASM et cliquez sur le nom d'étape
ASM.
- Vérifiez que les fichiers indiqués existent pour les options Fichier de
paquet de cartes objet et Bibliothèques de macros.
- Fermez et enregistrez le groupe de propriétés.
- Cliquez avec le bouton droit de la souris sur le programme RDZDB2 dans la vue
Projets z/OS, puis sélectionnez
Générer le JCL > Pour compilation, édition de liens et exécution.