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 :
- Ouvrez Carte de travail et fichier JCL dans la page des propriétés pour le membre RDZDB2. Voir Modification des propriétés d'une ressource.
- 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.
- Cochez la case Utiliser DB2 dans l'onglet Procédures et étapes de la page Paramètres COBOL.
- Cliquez sur le signe plus dans la procédure ELAXFCOC afin de la développer puis cliquez deux
fois sur le nom d'étape COBOL pour ouvrir les propriétés de compilation.
- 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
//*
/*
- Cliquez sur OK pour sauvegarder les propriétés de compilation.
- 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 deux fois
sur le nom d'étape RUN. La fenêtre Options d'étape d'exécution s'ouvre.
- Sélectionnez le bouton d'option Exécuter par lots avec le
débogueur.
- Remplacez le Nom de procédure d'exécution par
ELAXFTSO.
- 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('USER33.LOAD')
/*
- Enregistrez les propriétés.
- Cliquez avec le bouton droit de la souris sur le fichier partitionné contenant le membre RDZDB2 dans la vue
Projets z/OS, puis ouvrez la page de propriétés Paramètres de l'assembleur
de la ressource.
- Cliquez deux fois sur le nom d'étape ASM.
- Vérifiez que le fichier indiqué existe pour le Fichier de
paquet de cartes objet et les
Macro-bibliothèques.
- 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, liens et exécution.