Le PCML (Program Call Markup Language), est un document généré par le compilateur pour décrire l’interface de vos programmes ou programmes de service. Il permet d’automatiser l’appel des programmes via Java ou d’autres langages.

En RPGLE,  il existe 2 méthodes pour déclarer des paramètres.

Première solution

En carte C, méthode que l’on trouve encore sur des programmes existants : les paramètres sont considérés comme en entrée/sortie dans le PCML.

C     *entry        plist                                      
C                   parm      Tempin                         10
C                   parm      Tempout                        10

PCML généré :

<pcml version="6.0">                                                      
   <!-- RPG module: TESTPCML  -->                                         
   <!-- created: 2018-03-14-09.22.22 -->                                  
   <!-- source: BERTHOIN/QRPGLESRC(TESTPCML) -->                          
   <!-- 2 -->                                                             
   <program name="TESTPCML" entrypoint="TESTPCML">                        
      <data name="TEMPIN" type="char" length="10" usage="inputoutput" />        
      <data name="TEMPOUT" type="char" length="10" usage="inputoutput" /> 
   </program>                                                             
</pcml>

Deuxième solution

En les prototypant soit en carte D soit en format full free.
On peut jouer en indiquant « const » sur les paramètres en entrée, ils seront bien uniquement en input dans le PCML.
Mais les autres paramètres resteront en entrée/sortie :

 D                 PI                        
 DTempin                         10    const 
 DTempout                        10         

ou

dcl-pi *n ;                  
  Tempin char(10) const ; 
  Tempout char(10) ;      
end-pi;  

PCML généré :

<pcml version="6.0">                                                      
   <!-- RPG module: TESTPCML  -->                                         
   <!-- created: 2018-03-14-09.22.22 -->                                  
   <!-- source: BERTHOIN/QRPGLESRC(TESTPCML) -->                          
   <!-- 2 -->                                                             
   <program name="TESTPCML" entrypoint="TESTPCML">                        
      <data name="TEMPIN" type="char" length="10" usage="input" />        
      <data name="TEMPOUT" type="char" length="10" usage="inputoutput" /> 
   </program>                                                             
</pcml>                                                               

En CBLLE, il existe une seule solution pour déclarer les paramètres

LINKAGE SECTION.                                                      
01 TEMPIN PIC X(10).                                                             
01 TEMPOUT PIC X(10).        
…                                               
PROCEDURE DIVISION USING TEMPIN  TEMPOUT.

Et les paramètres sont en entrée/sortie ….

 

 

Lors de la publication par l’interface web, on peut ajuster ces paramètres. Le plus souvent, en entrée ou en sortie, pour générer un WSDL efficace :

 

PCML obtenu après modification par l’outil de déploiement :

<pcml version="6.0">                                                      
   <!-- RPG module: TESTPCML  -->                                         
   <!-- created: 2018-03-14-09.22.22 -->                                  
   <!-- source: BERTHOIN/QRPGLESRC(TESTPCML) -->                          
   <!-- 2 -->                                                             
   <program name="TESTPCML" entrypoint="TESTPCML">                        
      <data name="TEMPIN" type="char" length="10" usage="input" />        
      <data name="TEMPOUT" type="char" length="10" usage="output" /> 
   </program>                                                             
</pcml>

 

La complexité intervient, dans le cas où l’on veut bypasser l’interface web, pour automatiser des déploiements en utilisant les scripts SH.
Nos outils permettent la modification du PCML sans intervention manuelle. Pour cela, il vous faudra générer le fichier PCML dans un fichier IFS, celui généré dans le module n’étant pas modifiable :

 CRTBNDRPG PGM(BERTHOIN/TESTPCML) 
           SRCFILE(BERTHOIN/QRPGLESRC) 
           PGMINFO(*PCML *STMF) 
           INFOSTMF('/home/PLB/testpcml.pcml')

Ces options ne peuvent pas être intégrés dans vos cartes H ou CTL-OPT

Vous devrez modifier le type de vos paramètres et indiquer votre fichier STMF dans la publication du webservice :

installWebService.sh                                               
   ...         
   -pcml '/home/PLB/testpcml_modifie.pcml'

 

 

Versions

PCML a subi quelques évolutions il en est actuellement la version 7 depuis fin 2017. La version usuelle est toujours la 6 aujourd’hui. Cette dernière est indiquée dans le tag PCML :

<pcml version="6.0">

 

Les principales évolutions

  • PCML version 2.0 or higher
    « entrypoint »
    « passby »
    « returnvalue »

 

  • PCML version 3.0 or higher
    « bidistringtype »
    « threadsafe »

 

  • PCML version 4.0 or higher
    « chartype »
    « epccsid »
    « trim »

 

  • PCML version 6.0 or higher
    « dateformat »
    « dateseparator »
    « timeformat »
    « timeseparator »

 

  • PCML version 7.0 or higher
    « varchar »

Remarque :

Vous n’obtenez pas la même syntaxe si vous générez directement le programme.

CRTBNDRPG ...

<program name="TESTPCML" path="/QSYS.LIB/BERTHOIN.LIB/TESTPCML.PGM"

ou si vous générez d’abord le module

CRTRPGMOD ...

<program name="TESTPCML" entrypoint="TESTPCML">

Soit pour un module

<pcml version="6.0">                                                     
   <!-- RPG module: TESTPCML  -->                                        
   <!-- created: 2018-03-14-09.22.22 -->                                 
   <!-- 2 -->                                                             
   <program name="TESTPCML" entrypoint="TESTPCML">                       
   ...
</pcml>

et pour un programme

<pcml version="6.0">                                                     
   <!-- RPG module: TESTPCML  -->                                        
   <!-- created: 2018-03-14-09.22.22 -->                                 
   <!-- source: BERTHOIN/QRPGLESRC(TESTPCML) -->                         
   <!-- 1 -->
   ...
</pcml>

 

 

La version par défaut est PCML 6, pour utiliser la version 7, vous devez le spécifier explicitement.

De plus, cela nécessite : PTF SI66150 (7.3) ou SI66149 (7.2) du 10/11/2017.

 

Pour l’utiliser

  • Soit par une variable d’environnement
  ADDENVVAR ENVVAR(QIBM_RPG_PCML_VERSION) VALUE(7.0) LEVEL(*SYS)
  • Soit par CTL-OPT
  ctl-opt pgminfo(*pcml:*module:*dclcase:*v7) ;

 

La différence V6/V7 porte sur la gestion des VARCHAR

V6 : VARCHAR considéré comme une DS

<struct name="STRIN" usage="input">
   <data name="length" type="int" length="2" precision="16" usage="inherit" />
   <data name="string" type="char" length="length" usage="inherit" />
</struct>

 

V7 : supporté nativement via le type « varchar »

<data name="STRIN" type="varchar" length="25" usage="input" />

 

Cet article est le premier d’une série à suivre sur le PCML, rendez-vous très vite !

Suite à vos retours et demandes, nous avons fait évoluer le logiciel d’administration des web services.
Principales Nouveautés de la 1.0.2
  • Abandon de XMLSERVICE, cette version fonctionne sans ce produit
  • Les commandes copiées sont mises dans /webservice/local/models, ce qui est plus lisible  pour la version multi serveurs
  • Vous avez un bouton <FILE> sur la gestion des services et des serveurs qui permet de produire une table qui liste vos ressources
  • Vous trouverez de nouveaux exemples dans le fichier source SAMPLESRC qui contient des exemples d’automatisations
  • Nous avons créer un outil de migration qui vous paramétra de garder vos logs et surtout votre paramétrage
Et surtout, nous avons réécrit une version 6.1 pour tous ceux qui ne sont pas encore en version 7.*. Cette version dispose des même fonctions que la la version standard, mais n’évoluera sans doute pas, les nouveautés n’étant livrées qu’en version 7.*.

 

La console évolue, et passe désormais en version 1.0.1 : http://www.gaia.fr/download/utilitaires/webconsole.zip.

Pour prendre en compte vos retours et commentaires, cette version apporte principalement sur la capacité de gérer plusieurs partitions depuis un système. Vous retrouverez les informations de la version précédente (cf notre article de lancement http://www.gaia.fr/console-pour-serveurs-de-services-web/).

Nous continuons à faire évoluer cet outil, et à prendre en compte vos besoins. Une des prochaines phases sera le passage en Open Source !

 

Continuez à nous transmettre vos remarques et besoins.

Ce court billet est issu de nos retours d’expérience.

 

Vous êtes nombreux ces derniers mois à avoir migré vos anciens systèmes, parfois antédiluviens, vers des machines à jour (Power 8 en 7.2 par exemple). Mais nous observons nombre de programmes de démarrage, les fameux QSTRUP, personnalisés et pris en l’état.

Or, certaines fonctions du système, et certaines commandes usuelles ont évoluées depuis la V5R2 ! Il est donc très opportun de faire également évoluer votre programme de démarrage.

Pour rappel, il est conseillé lors d’une migration vers un nouveau système, de ne pas restaurer votre programme QSTRUP mais d’extraire les sources du programme existant (fourni par IBM dans le cas d’une nouvelle machine) et de le ré-adapter à votre environnement.

 

Voici les cas les plus usuels que nous observons :

STRTCP : n’est plus nécessaire dans le QSTRUP depuis la V5R1 !

Le démarrage de TCP/IP se fait généralement par les attributs d’IPL : CHGIPLA … STRTCP(*YES)

Le sous-système QSVCDRCTR : n’est plus utilisé depuis la V5R3 (ancien Service Agent).

Il n’existe plus sur les machines récentes et la commande tombe en erreur.

Démarrage des imprimantes par STRPRTWTR DEV(*ALL)

A remplacer aujourd’hui par CALL PGM(QSYS/QWCSWTRS)

STRHOSTSVR SERVER(*ALL) : à ne pas utiliser !

Vous pouvez indiquer pour chaque service s’il doit démarrer avec TCP/IP, par exemple CHGTELNA AUTOSTART(*YES)

 

Vérifiez votre QSTRUP, tenez le à jour. L’effort n’est pas immense, le modèle fourni par IBM n’ayant pas changé depuis la 7.1.

Vous serez alors en capacité d’aller plus loin dans la personnalisation de votre QSTRUP, comme par exemple la prise en compte des solutions de HA (haute disponibilité via réplication) avec rôle source ou cible associé au serveur, etc …

 

Bon démarrage !

 

Références IBM :

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/rzal2/rzal2chgiplstartup.htm

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/rzal2/rzal2sourceclstartupprog.htm