Services Web en RPG ILE – Écrire un programme HLL

Nous allons évoquer aujourd’hui une amélioration très intéressante sur le sujet. Si vous vous rappelez, l’utilitaire wsdl2ws.sh d’Apache Axis nous permettait de générer tous les programmes clients nécessaires pour consommer un Service Web comme montré ci-dessous.

(((IMG6294)))

Il ne nous manquait plus qu’à écrire un programme HLL (en RPG ou COBOL) afin d’appeler ces programmes C/C++. La principale difficulté de cet exercice était de savoir lire un programme C/C++ afin de déterminer les bons paramètres attendus par ces « stubs ».

Dorénavant, nous pouvons utiliser le nouvel utilitaire wsdl2rpg.sh qui permet de générer les stubs directement en RPGLE facilitant ainsi grandement l’interface entre programmes. De plus, le résultat de la compilation n’est ni plus ni moins qu’un programme de service directement utilisable comme nous allons le voir.

L’utilitaire wsdl2rpg.sh est disponible par PTF en V5R4, V6R1 et V7R1 depuis le Janvier 2011.

Source : APAR SE46281

Comme le précédent, cet utilitaire ce trouve dans le répertoire de l’IFS à l’emplacement :
/qibm/proddata/os/webservices/v1/client/bin

Reprenons l’exemple du Service Web gratuit StockQuote utilisé dans l’article précédent,  permettant d’interroger directement la bourse de NewYork (NYSE). Vous pouvez le tester directement en ligne sur le lien suivant si le serveur n’est pas surchargé comme à son habitude.

Nous commencerons par créer un répertoire dans l’IFS.

Puis nous récupérons le fichier WSDL du service web et le plaçons dans l’IFS sous le nom StockQuote.WSDL : http://www.webservicex.net/stockquote.asmx?WSDL.

Sous QSH il nous suffit de lancer :

1.  /QIBM/ProdData/OS/WebServices/V1/client/BIN/wsdl2rpg.sh
            -t60 -o/home/webservices
            -s/QSYS.LIB/MYLIB.LIB/STOCKQUOTE.SRVPGM
             /home/webservices/StockQuote.wsdl

-t : Ce paramètre facultatif permet d’indiquer un timeout en secondes
-o : Répertoire où seront générés les sources des programmes
-s : Répertoire ou sera généré le programme de service compilé, ici il s’agit de la bibliothèque MYLIB

Le dernier paramètre représente le fichier WSDL ou son URI ce qui veut dire que l’on aurait très bien pu demander la génération du programme de service et des programmes sources sans copier le fichier WSDL dans l’IFS en utilisant la syntaxe ci-dessous :

1.  /QIBM/ProdData/OS/WebServices/V1/client/BIN/wsdl2rpg.sh
            -t60 -o/home/webservices
            -s/QSYS.LIB/MYLIB.LIB/STOCKQUOTE.SRVPGM
              http://www.webservicex.net/stockquote.asmx?WSDL

Code generation completed. Generated files in directory
'/home/webservices’.

Attempting to create service program... 

Service program created. Service program is
'/QSYS.LIB/MYLIB.LIB/STOCKQUOTE.SRVPGM'.   
$                                           

Les fichiers sources et programmes générés sont les suivants :

Le seul fichier source qui va nous intéresser par la suite est StockQuoteSoap.rpgle ainsi que le programme de service STOCKQUOTE.SVRPGM.

Visualisons maintenant le contenu du source StockQuoteSoap.rpgle généré automatiquement. Trois procédures y sont définies :

1.    stub_create_StockQuoteSoap
2.    stub_destroy_StockQuoteSoap
3.    stub_op_GetQuote

Voir Listing ci-dessous :

(((IMG6295)))