La leçon 3 vous guide à travers la création d'une méthode Java™.
Dans cette leçon, vous
- Créez une méthode Java
- Créez le mappage de données en entrée et en sortie entre COBOL et Java
- Dans la vue Fragments, sélectionnez J2C. Double-cliquez sur Ajouter une méthode à un bean Java J2C.
- Dans la page Méthodes Java, cliquez sur Ajouter
- Dans la zone Nom, tapez runPhoneBook.
- Dans cette étape, vous importez le fichier Ex01.cbl (COBOL) qui est nécessaire pour créer votre application. Le fichier Ex01.cbl se trouve dans <rép_install>\IBM/IBMIMShared/plugins/com.ibm.j2c.cheatsheet.content\Samples/MS/phonebook,
où <rép_install> représente le répertoire dans lequel ce produit est installé.
Le fichier COBOL contient le programme d'application qui s'exécute sur le serveur IMS. Il contient la définition de la structure à passer au serveur IMS via la zone des communications. Cette structure représente les enregistrements de clients qui sont retournés à partir du programme d'application IMS. Avant de pouvoir travailler avec un fichier, vous devez l'importer depuis le système de fichiers dans le plan de travail.
A côté de la zone Type d'entrée, cliquez sur Nouveau.
- Dans la page Importation des données, vérifiez que la zone Sélectionnez un mappage est COBOL vers Java.
Cliquez sur Parcourir à côté du fichier COBOL.
- Recherchez le fichier Ex01.cbl dans le système de fichiers et cliquez sur Ouvrir.
IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
*
* IMS Connector for Java, COBOL Transaction Message Source
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 2003 */
* All Rights Reserved */
* Licensed Materials - Property of IBM */
* */
* DISCLAIMER OF WARRANTIES. */
* */
* The following (enclosed) code is provided to you solely for the */
* purpose of assisting you in the development of your applications. */
* The code is provided "AS IS." IBM MAKES NO WARRANTIES, EXPRESS OR */
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF */
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING */
* THE FUNCTION OR PERFORMANCE OF THIS CODE. */
* IBM shall not be liable for any damages arising out of your use */
* of the generated code, even if they have been advised of the */
* possibility of such damages. */
* */
* DISTRIBUTION. */
* */
* This generated code can be freely distributed, copied, altered, */
* and incorporated into other software, provided that: */
* - It bears the above Copyright notice and DISCLAIMER intact */
* - The software is not for resale */
* */
*********************************************************************/
*
LINKAGE SECTION.
01 INPUT-MSG.
02 IN-LL PICTURE S9(3) COMP.
02 IN-ZZ PICTURE S9(3) COMP.
02 IN-TRCD PICTURE X(10).
02 IN-CMD PICTURE X(8).
02 IN-NAME1 PICTURE X(10).
02 IN-NAME2 PICTURE X(10).
02 IN-EXTN PICTURE X(10).
02 IN-ZIP PICTURE X(7).
01 OUTPUT-MSG.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-MSG PICTURE X(40) VALUE SPACES.
02 OUT-CMD PICTURE X(8) VALUE SPACES.
02 OUT-NAME1 PICTURE X(10) VALUE SPACES.
02 OUT-NAME2 PICTURE X(10) VALUE SPACES.
02 OUT-EXTN PICTURE X(10) VALUE SPACES.
02 OUT-ZIP PICTURE X(7) VALUE SPACES.
02 OUT-SEGNO PICTURE X(4) VALUE SPACES.
PROCEDURE DIVISION.
- Cliquez sur Suivant.
- Dans la page Importateur COBOL, cliquez sur Afficher les options avancées.
- Sélectionnez les options suivantes :
Tableau 1. Options de configuration des paramètres de l'importateur COBOL| Paramètre |
Valeur |
| Platform Name |
Z/OS |
| Codepage |
IBM-037 |
| Floating point format name |
Hexadécimal IBM® |
| External decimal sign |
EBCDIC |
| Endian name |
Big |
| Remote integer endian name |
Big |
| Quote name |
DOUBLE |
| Trunc name |
STD |
| Nsymbol name |
DBCS |
- Cliquez sur Interroger pour charger les données.
- Une liste des structures de données du fichier s'affiche. Sélectionnez INPUT-MSG dans la zone Structures de données.
- Cliquez sur Suivant.
- Dans la page Sauvegarde des propriétés, sélectionnez les valeurs suivantes pour le type d'entrée :
- Sélectionnez Par défaut pour Style de génération.
- Cliquez sur Parcourir à côté de Nom de projet et choisissez le
projet Web IMSPhoneBook.
- Dans la zone Nom du package, tapez sample.ims.data.
- Dans la zone Nom de la classe, acceptez le nom par défaut INPUTMSG. Cliquez sur Terminer.
- Dans la page Méthode Java, cliquez sur Nouveau en regard de la
zone Type de sortie.
- Dans la page Importation des données, vérifiez que la zone Sélectionnez un mappage est COBOL vers Java.
- Recherchez le fichier Ex01.cbl dans le système de fichiers et cliquez sur Ouvrir.
- Cliquez sur Suivant.
- Dans la page Importateur COBOL, cliquez sur Afficher les options avancées.
- Sélectionnez les options suivantes :
Tableau 2. Options de configuration des paramètres de l'importateur COBOL| Paramètre |
Valeur |
| Platform Name |
Z/OS |
| Codepage |
IBM-037 |
| Floating point format name |
Hexadécimal IBM |
| External decimal sign |
EBCDIC |
| Endian name |
Big |
| Remote integer endian name |
Big |
| Quote name |
DOUBLE |
| Trunc name |
STD |
| Nsymbol name |
DBCS |
- Cliquez sur Interroger pour charger les données.
- Une liste des structures de données du fichier s'affiche. Sélectionnez OUTPUT-MSG dans la zone Structures de données.
- Cliquez sur Suivant.
- Dans la page Sauvegarde des propriétés,
- Sélectionnez Par défaut pour Style de génération.
- Cliquez sur Parcourir à côté de Nom de projet et choisissez le
projet Web IMSPhoneBook.
- Dans la zone Nom du package, tapez sample.ims.data.
- Dans la zone Nom de la classe, acceptez le nom par défaut OUTPUTMSG. Cliquez sur Terminer.
- Laissez l'option Sauvegarder la session en tant que script Ant désactivée.
- Dans la page Méthode Java, cliquez sur Terminer.
- Dans la page Détails de liaison, vérifiez que interactionVerb est défini à SYNC_SEND_RECEIVE (1) pour indiquer que l'interaction avec IMS implique un envoi suivi d'une interaction de réception.
- Cliquez sur Terminer.