• ILE/RPG
  • Après pouvoir stocker le source RPG dans l'IFS
    
    
    
  • On peut maintenant, aussi stocker le source de liage (BND) dans l'IFS
    
    
  • Nouveau mot-clé NULLIND sur une déclaration, permet d'assigner la valeur nulle à une variable de travail (ALWNULL(*USRCTL) obligatoire)
    
    
    • Au niveau d'une zone simple (DCL-S)
      
      
      • sans paramètre, permet d'utiliser %NULLIND
        

        DCL-S DATCMD DATE NULLIND; IF %NULLIND(DATCMD);

        
        
      • Avec paramètre, indique le nom d'une zone indicateur (booléen)
        

        DCL-S DATCMD DATE NULLIND(DATCMD_VIDE); DCL-S DATCMD_VIDE IND; IF DATCMD_VIDE;

        
        
        
        
    • Au niveau d'un tableau ou d'une DS externe, doit fournir le nom d'un tableau ou d'une DS externe.

      • DCL-S DATPOSSIBLE DATE DIM(10) NULLIND(DAT_VIDE); DCL-S DAT_VIDE IND DIM(10);

        
        
        
        
        
    • NULLIND peut être indiqué au niveau d'une sous zone, en faisant référence à une autre sous zone de la même DS
      
      

      • DCL-DS CLIENT QUALIFIED; NOCLI INT; NOM CHAR(25) NULLIND(NOM_NULL); DEP PACKED(2 : 0); NOM_NULL IND: END-DS;

        
        
        
        
    • NULLIND peut être indiqué au niveau d'un paramètre, en faisant référence à un autre paramètre
      
      
      
    • Les mots-clés EXTNAME et LIKEREC possédent une nouvelle option *NULL
       demandant à ce que soit générer une liste de zones identique aux zones du fichier, mais de type IND, contenant la valeur nulle..
      
      

  • DCL-DS CLIENT EXT EXTNAME(CLIENTP1) END-DS; DCL-DS CLIENT_NULL EXT EXTNAME(CLIENTP1:*NULL) END-DS; IF CLIENT_NULL.NOM;

  

  • fonctions intégrées au RPG (BIF)

  Avant la fonction %scan s'utilisait : pos = %SCAN('recherche' : machaine :[debut])
  
  en V7.3

  %SCAN('recherche' : chaine : [debut : longueur ] )
  et %SCANR idem à %SCAN mais de droite à gauche

  %MAX

  retourne la plus grande valeur : maxi = %max(priha: prirv: privente);

  %MIN

  retourne la plus petite valeur : datecheance = %min(datliv : datfac) + %days(60);

   

  • Attention, l'INFDS subit quelques modifications

    // I-O FEEDBACK AREA  (partie commune)          nb_write  UNS(10) POS(243); // avant INT(10)         nb_read   UNS(10) POS(247); // avant INT(10)         nb_exfmt  UNS(10) POS(251); // avant INT(10)

  Voir notre version complète en Free-Form
  

  La nouvelle version de RDI 9.5.0.3, reconnaît ces nouveautés
  
  
  
  Enfin des PTF de Novembre 2016 (SI62949/SI62955 en 7.2 et SI62950/SI62965 en 7.3) apportent une nouveauté :

    Nouveau code opération On-Exit indiquant une séquence d'instructions à réaliser en fin de procédure, que cette dernière soir normale ou anormale
  
     (voir  http://ibm.biz/RPG_ON_EXIT_Section )

  • On-Exit {flag-erreur}
    
    si flag-erreur est indiqué, ce doit être un booléen, qui contiendra
    • *OFF ('0') en cas de fin normale
    • *ON  ('1') en cas de fin anormale de la procédure
      
      
  • Exemple
    
    
    
    

   

  TR2 : LE RPG et RDI 9.5.1.2 acceptent DCL-DS dans DCL-DS
  
  
  
  Avant il fallait utiliser LIKEDS, ce qui reste valable pour un paramètre dans DCL-PR ou DCL-PI, par exemple.
  
  
  le source généré par le pré-compilateur SQL (type SQLRPGLE) est enfin, en format libre :
  

   

• TR3
  • Nouvelle fonction %PROC donne le nom
    • du module (pgm) en cours
    • ou de la procédure en cours
      
      
      
  • %ELEM et %SIZE acceptent les DS complexes avec ou sans indice
    
    OU
    
    
  • nouvelle version 7 du PCML, qui supporte les variables à taille variable (VARCHAR)
    • nouvelle option *V6 ou *V7 pour PGMINFO
    • support de PCML V7 décalé pour le serveur de web services (Avril 2018 ?)
      
      
• TR4 (7.3) / TR8 (7.2)
• Nouveau code opération RPG Data-Into, marriant XML-INTO et la notion de Handler de Rpg Open Access
  • Voir l'annonce sur le Wiki RPG
  • la documentation mise à jour
    
    
  • En résumé, voici la syntaxe
    

    data-into maDataStructure    %data('Exemple.csv' : 'doc=file case=any ccsid=job ')    %parser('*LIBL/MONPARSER');

  • Vous devez écrire le parser ....
    • un exemple est proposé pour le format JSON
      (dans QOAR/SAMPLE, mais pour des raisons de CCSID copiez le dans un fichier à vous))
      
      Utilisation de l'exemple
      
      
      
      
  • Nos premiers tests
    • but du jeu : lire ce fichier (résultat de CPYTOIMPF)
      
      
    • Programme utilisant le PARSER pour recevoir la donnée
      
      
    • Résultat
      
      
      
    • Le parser (DTAINTOPR1)
      

      // exemple de parser pour des données structurées comme ceci : // code appellation, nom appellation, pays // extrait : // 1 ; "madiran" ; "France" // 2 ; "rioja" ; "Espagne" // etc... ctl-opt main(parserMain) option(*srcstmt) dftactgrp(*No); /copy QOAR/QRPGLESRC,QRNDTAINTO dcl-ds parseInfo_T qualified; lineStartOffset int(10); dataLen int(10); // Copy of data buffer length pStartBuffer pointer; // Copy of intial buffer pointer end-ds; dcl-proc parserMain; // proc. principale // on recoit // parm.data = pointeur sur les données à traiter // parm.env = pointeur sur des pointeurs de procédure pour le "callback" // parm.handle = pointeur, handler à utiliser à chaque appel de fonction // parm.userParm = pointeur vers paramètres utilisateur // parm.datalen = lg des données à traiter // parm.dataCcsid = ccsid des données à traiter // parm.userParmsisNUllTerminated : *ON chaîne du langage C // *OFF chaîne RPG dcl-pi *n extpgm; parm likeds(QrnDiParm_T) const; end-pi; // block de controle pour traitement d'une ligne // (paramètre transmis à lireLIgne() ...) dcl-ds parseInfo LikeDS(parseInfo_T) Inz; // nom des zones dcl-s name1 varchar(15) inz('appel_code'); dcl-s name2 varchar(15) inz('appellation'); dcl-s name3 varchar(15) inz('pays'); // variables pour stocker les valeurs extraites dcl-s appel_code varchar(10); dcl-s appellation varchar(30); dcl-s pays varchar(20); // ligne et positions des séparateurs dcl-s ligne varchar(1024); dcl-s separator1 int(5); dcl-s separator2 int(5); // on envoie parm.env qui est un pointeur sur une structure de pointeurs // contenant les procédures à appeller en "callback" // (l'info est fournie en tant que paramètre par data-into et réutilisée tel-que) pQrnDiEnv = parm.env; // block de contrôle renseigné avec pointeur vers data et lg reçus. parseInfo.pStartBuffer = parm.data; parseInfo.dataLen = parm.dataLen; // début de traitement QrnDiStart (parm.handle); // début de tableau QrnDiStartArray(parm.handle); // lecture première ligne ligne = lireLigne(parseInfo); DoW ligne <> ''; // EOF ? // recherche premier ";" separator1 = %scan(';': ligne); appel_code = %subst(ligne: 1: separator1 - 1); separator2 = %scan(';': ligne:separator1 + 1); // il peut ne pas y avoir de pays if separator2 > 0 and separator2 < %len(ligne); // on saute le " de début et de fin (d'où + 2) appellation = %subst(ligne: separator1 + 2 : separator2 - separator1 -2); pays = %subst(ligne: separator2 + 2 ); else; appellation = %subst(ligne: separator1 + 2 ); pays = *blanks; endif; // Début de structure (une occurence) QrnDiStartStruct (parm.handle); // nom de la donnée extraite 'appel_code' QrnDiReportName (parm.handle : %addr(name1: *data) : %len(name1) ); // valeur de la donnée extraite 'appel_code' QrnDiReportValue(parm.handle : %addr(appel_code: *data) : %len(appel_code) ); // nom de la donnée extraite 'appellation' QrnDiReportName (parm.handle : %addr(name2: *data) : %len(name2) ); // valeur de la donnée extraite 'appellation' QrnDiReportValue(parm.handle : %addr(appellation: *data) : %len(appellation) ); // nom de la donnée extraite 'pays' QrnDiReportName (parm.handle : %addr(name3: *data) : %len(name3) ); // valeur de la donnée extraite 'pays' QrnDiReportValue(parm.handle : %addr(pays: *data) : %len(pays) ); // Fin de structure QrnDiEndStruct (parm.handle); // lecture ligne suivante ligne = lireLigne(parseInfo); EndDo; // Fin de tableau QrnDiEndArray(parm.handle); // fin du traitement QrnDiFinish(parm.handle); on-exit; // voir si besoin (pas ici) end-proc; // lecture d'une ligne (jusqu'à "retourt chariot" dans le buffer) // on recoit // - un offset (décalage) pour naviguer // - lg des données à traiter // - un pointeur sur la donnée à traiter dcl-proc lireLigne; dcl-pi *n varchar(1024); parseInfo LikeDS(parseInfo_T); end-pi; // variable de travail de 1024 calquée sur les données // aucune ligne ne doit dépasser 1024 c. dcl-s buffer char(1024) based(precordStart); dcl-s record varchar(1024); dcl-s endOfLine int(5); If parseInfo.lineStartOffset < parseInfo.dataLen; // encore de la data ? // Début de ligne = pointeur en cours + offset precordStart = parseInfo.pStartBuffer + parseInfo.lineStartOffset; // recherche fin de ligne endOfLine = %scan(x'25': buffer); // FindeLigne trouvé ? // "record" renseigné et position modifié pour prochaine fois if endOfLine > 0; record = %Subst(buffer: 1: endOfLine - 1); parseInfo.linestartOffset += endOfLine; // prochaine ligne else; // pas de data record = ''; endif; else; // Fin du buffer record = ''; endif; return record; end-proc;

    • si la DS est incomplete : manque des zones (ici le nom de l'appellation)
      
    • Vous recevez une erreur
      
      
    • Sauf à le prévoir (comme avec XML-INTO) par Allowextra=yes
      
    • Allowmissing permet d'avoir des zones dans la DS non retournées par le parser
    • Si vous ne pouvez pas prédire le nombre d'occurences
      • %Handler (comme XML-INTO) permet d'indiquer une procédure à appeler de manière récursive.
        
  
  
  

©AF400