Améliorations de la 7.3 apportées par PTF : TR1 , TR2 , TR3, TR4 , TR5 , TR6 puis TR7 en même temps que la 7.4/TR1

• TR1 (certaines fonctions sont communes à la TR5 de la 7.2)

IBM continue sur la lancée des versions 7.1 et 7.2 en matière de livraison des nouveautés au fil de l'eau.

Ces dernières ont vu des améliorations livrées sous forme de TR, tous les six mois.

      La TR1 de la 7.3 coïncide avec la TR5 de la 7.2. il n'y a plus de nouvelles TR en 7.1

• DB2 i
  
  
  
  • JSON_TABLE pour parser du JSON en SQL (voir ce cours)
    
    
    
    
    
  • CUME_DIST permettait d'avoir la distribution cumulée (le dernier valant 1)
    
    
    PERCENT_RANK affiche le rang (en %) le premier valant 0
    
    
    
  • en SQL PSM vous pouvez désormais inclure du code SQL ou C
    
    
    • INCLUDE [SQL] bibliothèque/fichier(membre)
      ou
    • INCLUDE [SQL] membre
      
      
    • Si c'est du C, utilisez l'Api Qp0zLprintf pour écrire dans la JOBLOG
      
      
  • en SQL PSM, vous pouviez utiliser SET OPTION pour indiquer des options destinées au compilateur
    
    
    • BINDOPT permet désormais d'indiquer des options de liage (BNDDIR par exemple)
      
      
    • INCFILE, le nom du fichier source à inclure
      
      
  • SYSPARTITIONSTAT est un élément du catalogue SQL et contient la liste des membres des fichiers DB2 (ou sources)
    
    
    • Il intègre désormais PARTITION_TEXT VARGRAPHIC(50) CCSID 1200, contenant le texte du membre.
      
      
  • La fonction SQL REPLACE évolue :
    
    
    • elle admettait trois paramètres
      REPLACE(source, chaine-recherchée, chaine-remplacement)
      
      
    • elle peut désormais être utilisée avec deux paramètres uniquement
      REPLACE(source, chaine-recherchée)
      
      La chaîne recherchée est tout simplement supprimée
      
      
  • le debugger SQL (accessible, entre autre, depuis ACS) évolue
    
    
    cette évolution est acessible pour les procédures, les fonctions et les triggers, compilés avec SET OPTION DBGVIEW=*SOURCE
    et recompiliés depuis la TR1
    
    • les types de variables couvert par le dbug (visualisation) sont plus nombreux
    • il est possible de modifier le contenu de variables
      
      
      
      
  • Jusqu'à maintenant une fonction pouvait être indiquée :
    
    
    • Non Déterministe (NOT DETERMINISTIC)
      
      ne retournant pas toujours la même valeur (NOW, par exemple)
      
      
    • Déterministe (DETERMINISCTIC)
      
      Retournant toujours la même valeur (PI=3,1416, par exemple)
      
      
    • Désormais vous avez le choix entre :
  • GLOBAL DETERMINISTIC
  • STATEMENT DETERMINISTIC
    
    Retournant la même valeur pendant la durée de la requête (taux de change, par exemple)
    
    dans ce dernier cas, DB2 ne rappelle pas la fonction lors d'une même requête.
    
    
  • DB2 for I service
    • Nouvelle fonction PARSE_STATEMENT
      
      le fichier catalogue QSYS2.SYSPROGRAMSTMTSTAT donnait déjà la liste des instructions SQL
      
      
      PARSE_STATEMENT permet de retrouver la liste des informations manipulées (Tables, colonnes, curseurs)
      
      
      
      
    • IBM i Services
      • QSYS2.HISTORY_LOG_INFO() affiche l'équivalent de DSPLOG
        
        
        
        
      • QSYS2.JOB_INFO()
        • affiche les travaux correspondant aux critères indiqués :

      >>-JOB_INFO--(-------------------------------------------------->
      
          >--+---------------------------------*ALL----+------------>
           '-+------------------------------+--status-'
                '-JOB_STATUS_FILTER--=>-'
          >--+---------------------------------*ALL--+-------------->
           '-,--+---------------------------+--type-'
                   '-JOB_TYPE_FILTER--=>-'
          >--+------------------------------------*ALL---------+-->
           '-,--+------------------------------+--sous-système-'
                   '-JOB_SUBSYSTEM_FILTER--=>-'
          >--+------------------------------------USER--------+---->
           '-,--+-----------------------------+--utilisateur-'
                   '-JOB_USER_FILTER-- => -'
          >--+---------------------------------------*ALL-----+----.
           '-,--+----------------------------------+--travail-'
                   '-JOB_SUBMITTER_FILTER-- => -'
      
      Exemple
        

      • QSYS2.GROUP_PTF_CURRENCY
        
        il faut les PTF suivantes, le fichier XML ayant été déplacé par IBM
        • HIPER PTF SI62612 for IBM i 7.1
        • HIPER PTF SI62620 for IBM i 7.2
        • HIPER PTF SI62621 for IBM i 7.3
          
          
        • la colonne PTF_GROUP_CURRENCY peut prendre la valeur 'CURRENT AT THE NEXT IPL'
          
          
      • QSYS2.GROUP_PTF_DETAIL
        
        il faut les PTF suivantes, le fichier XML ayant été déplacé par IBM
        • HIPER PTF SI62612 for IBM i 7.1
        • HIPER PTF SI62620 for IBM i 7.2
        • HIPER PTF SI62621 for IBM i 7.3
          
          
          
      • QSYS2.OBJECT_STATISTIC (équivalent à DSPOBJD) retourne de nouvelles colonnes en 7.3
        
        
      • Admet désormais *ALLSIMPLE comme bibliothèque (toutes) et ne retourne alors que :
        • OBJNAME
        • OBJLONGNAME
        • OBJTYPE
        • OBJLIB
        • OBJLONGSCHEMA
        • OBJATTRIBUTE
        • toutes les autres colonnes sont à NULL
          
          
      • QSYS2.GET_JOB_INFO() retourne deux nouvelles colonnes
        
        
        • V_PJ_REUSE_COUNT, pour un pré-start job, nombre de fois ou il a été utilisé
        • V_PJ_MAXUSE_COUNT, pour un pré-start job, nombre de fois maxi ou il a peut être recyclé (dft=200)
          
          
      • QSYS2.DISPLAY_JOURNAL()
        
        
        • les fonctions de masquage (RCAC) et de cryptage (FIELD PROC) s'appliquent sur les données extraites.
          
          
          
  • RPG
    • 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
      
      
      • 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
      
      
      
      
      
      
    • nouveau paramètre TGTCCSID permettant de compiler un fichier source de l'IFS codé en Unicode en précisant le CCSID du pgm.
      
      
  • RDI nouvelle version 9.5.1.1
    
    
    • Nouvelle fonction de refactoring (Voir ce cours)
      
      
    • Affichage des messages d'erreur sous forme d'annotation
      • Avant
        
      • paramétrage
        
      • Après
        
        
        
• IBMi Access Client Solution
  • intègre de nouvelles fonctions Database, dont Visual Explain
  • le transfert de fichier en mode natif n'était plus disponible avec la version 1.1.6 (bug) il revient en 1.1.6.1
    
    
    ici le plugin CLDOWNLOAD transfert une vue en fichier Excel
    
    

    Rappel : comment faire une vue paramétrable ? •Créez des variables globales (CREATE VARIABLE) •Créez une vue utilisant ces variables dans la clause WHERE •Modifiez le contenu des variables, juste avant le transfert

    
    
  • Janvier 2017, version 1.1.6.2
    
    • plus de possibilités de filtrage des spools
      
      OUTQ multiples
      
      
      
• Navigator for I
  • Avec SI62073 et SI62074, Navigator for I utilise http (et non plus https) sur le port 2004
    
    • Si vous souhaitez conserver https et le port 2005, voyez ce document http://www-01.ibm.com/support/docview.wss?uid=nas8N1021726
      
    • Cerise sur le gâteau, Safari fait partie des navigateurs supportés, Edge aussi (mais plus IE)
      
      
      
    
    
  • L'option "Description de sous-système" est nouvelle (avant nous n'avions accès qu'aux sous-systèmes actifs)
    
    
    Elle permet de voir la liste des sous-systèmes existants, de modifier et d'en créer de nouveaux
    
    
    
    
    Propriété
    
    
    
  • L'option AFP Manager (présente sous la version Windows) est nouvelle
    
    
    
  • la fonction d'affichage des journaux offre de nouveaux filtres (recépteur, n° de séquence, date début et fin)
    
    
  • Le travail QINAVMNSRV, qui s'occupe des moniteurs) tourne désormais sous le profil QLWISVR (et non plus QSECOFR)
    
    
    Il faut avoir des droits sur la liste d'autorisation du même nom (QINAVMNSRV) pour avoir accès à cette option
    
    
  • enfin dans l'IFS, quand un répertoire correspond à un lien symbolique (ADDLNK), on le voit
    
    
    
    
• PDI, Option de Navigator for i, orientée performances
  
  
  
  • Vous pouvez déplacer des collectes
    
    
    
  • Sur les affichages d'étude de santé (où l'on fixe des objectifs en % ne devant pas être dépassés), les % sont affichés dans les infos bulles
    
    
    Et le nombre d'entrées/sorties sur les I/O disque
    
    
    
  • Les historiques graphiques ont évolués
    
    
    
  • Pour offirir un affichage sur une plus longue période (dans de nouveaux fichiers de type *HSTFILE)
    
    
    par défaut, 1 mois, mais possible jusqu'à 1 an !
    
    
    A condition d'avoir les bons paramètres
    
    
    
    
    
    
    
    
  • La vue composite est aussi bien pratique, elle permet un affichage catégoriel
    
    
    
    voici les affichages proposés
    
    
    
    
    
  • Enfin sur l'affichage des moniteurs, vous pouvez afficher en colonnes
    
    
    
  • Sur les PTF de Mars 2017, vous pouvez maintenant empiler par semaine ou mois
    
    
    • Si la période affichée est inférieure à 2 semaines, on empile par jour
    • Si la période est comprise entre 2 semaines et 2 mois, on empile par semaine
    • Si la période est comprise entre 2 mois et 2 ans , on empile par mois
    • Au dela de 2 ans , on empile par année
      
      Modification du contexte
      
      Empilage par Mois:
      
      
      
      
• Serveur intégré
  • Avec SI99722 level5, le serveur de web services génère des fichiers swagger pour les services REST
    
    
    
• IBM i
  • la commande PWRDWNSYS possède un nouveau paramètre INSPTFDEV
    
    • *NONE
      Aucune PTF n'est installée avant que le système ne soit mis hors tension.
      
      
    • *SERVICE
      Les PTF envoyées par le système du service de maintenance sont installées avant que le système ne soit mis hors tension
      
      
    • OPTxx/RMSxx
      Spécifiez le nom de l'unité optique ou de l'unité amovible (USB) à partir de laquelle les PTF sont installées avant que le système ne soit mis hors tension.
      
      Toutes les PTF sont marquées pour une application différée et seront appliquées au prochain IPL sans contrôle opérateur normal.
      
      
      
  • Et la commande CHGSRVA propose de télécharger automatiquement les derniers Groupes PTF
    
    
    Voici les valeurs admises
    
    
    
  • WRKJOB, option 14 (fichiers ouverts)
    
    SI vous créez la Data area QDMDSPFOIO, par
    

    CRTDTAARA DTAARA(QUSRSYS/QDMDSPOFIO)   TYPE(*LGL) LEN(1) AUT(*USE)

    
    Vous verrez, d'abord les IO
    
    Avant de voir les groupes d'activation (F11)
    
    
    Enfin, nouveauté, si vous faites F11 une 3ème fois, vous verrez les textes des fichiers ouverts :
    
    
    
• 5733OPS
  • Intégration de gzip avec SI62331
    
    
    
  • Support de Nodejs V6 (option 10 de 5733OPS) avecSI61901
    
    
    
  • Intégration de PERL (option 7 de 5733OPS) avec SI62570
    
    
    
  • Git passe en version 2.10.2 et intègre curl (la possibilité de cloner un dépot avec le protocole HTTP)
    
    Tout cela arrive avec la PTF SF99225, level 2, puis 3
    
    
    
  • rsync arrive avec la SI63268
    
    
    
    
    Il permet de synchroniser (dans un but de sauvegarde) deux répertoires
    
    rsync /source /cible
    
    
  • Options
    • -a archives, conserve les dates (création et modifications) et les propriétaires
    • -v verbeux (affiche la liste des fichiers)
    • -z avec compression
      
      
      
      Ici la commnde rsync lancée une deuxième fois, seules les différences sont transmises
      
      
  • la cible peut être indiquée
    • host:/répertoire-cible pour indiquer un répertoire situé sur un autre serveur
    • login@host:/repertoire-cible(utilisateur de connexion)
    • l'option -e ssh, permet de lancer rsync dans un tunnel ssh
      
      
      
      Voir le manuel ici https://download.samba.org/pub/rsync/rsync.html
      
      
      
• TR2 (certaines fonctions sont communes à la TR6 de la 7.2)
  
  Nouvelle version de IBM Access Client Solution 1.1.7
  
  Nouvelle fonction SQL LISTAGG, mettant "à l'horizontale" toutes les occurences d'une expression pour un groupe
  
  
  
  Deux nouveaux Prédicats (un test, retournant vrai ou faux, pouvant être placé dans un WHERE)
  
  IS (IS NOT) JSON
  
  
  Exemple d'utilisation
  
  
  JSON_EXISTS (un élément JSON existe-t-il ?)
  
  
  
  Les fonctions TRIM (RTRIMR et LTRIM) acceptent un deuxième paramètre, le caractère à enlever
  
  
  
• Nouveaux services
  
  
  • MESSAGE_QUEUE_INFO (messages d'une message Queue)
    
    
    
  • OBJECT_PRIVILEGES (droits par objet)
    
    
    
  • AUTHORIZATION_LIST_INFO (Objets d'une liste d'autorisation)
    
    
    
  • AUTHORIZATION_LIST_USER_INFO (Utilisateurs d'une liste d'autorisation)
    
    
    
  • SET_PASE_SHELL_INFO, procédure pour définir le shell par défaut sous PASE
    
    
    • CALL QSYS2.SET_PASE_SHELL_INFO('*CURRENT', '/QOpenSys/QIBM/ProdData/OPS/tools/bin/bash');
    • CALL QSYS2.SET_PASE_SHELL_INFO('*DEFAULT', '/QOpenSys/usr/bin/ksh');
      
      
  • USER_INFO, modifié
    • Ajout de SUPPLEMENTAL_GROUP_COUNT et SUPPLEMENTAL_GROUP_LIST
    • Ajout de PASE_SHELL_PATH
      
      
  • LICENSE_INFO, modifié
    • Ajout de INSTALLED (YES / NO)
      
      
  • Nouvelle procédure LICENSE_EXPIRATION_CHECK
    
    • Envoi un message dans QSYSOPR pour tous les produits
      • arrivés à expiration (sans paramètre)
      • arrivant à expirations dans n jours (n étant le paramètre, numérique)
      
      

• 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 (certaines fonctions sont communes à la TR7 de la 7.2)
  
  Dans le même temps, une nouvelle version (1.1.7.2) d'ACS est disponible
  
  
  • Publier du JSON
    

    VALUES(JSON_ARRAY((SELECT DEPTNO FROM DEPT WHERE DEPTNAME LIKE 'BRANCH OFFICE%'))); --Produit un tableau de valeur (rappel entre [ et ] ) ==> ["F22","G22","H22","I22","J22"]   SELECT JSON_OBJECT('Nom' : LASTNAME, 'date naissance' : HIREDATE, 'Salaire' SALARY) FROM EMPLOYEE WHERE EMPNO = '000020'; --produit un objet JSON, chaque élément a un nom et une valeur ==> {"Nom":"THOMPSON","date naissance":"1973-10-10","Salaire":41250.00} SELECT workdept, JSON_ARRAYAGG(lastname) FROM EMPLOYEE WHERE workdept LIKE 'D%' GROUP BY workdept; --produit un tableau de valeurs par groupe (GROUP BY) D11 ["STERN","ADAMSON","PIANKA","YOSHIMURA","SCOUTTEN","WALKER","BROWN","JONES","LUTZ","YAMAMOTO","JOHN"] D21 ["PULASKI","JEFFERSON","MARINO","SMITH","JOHNSON","PEREZ","MONTEVERDE"] Exemple options ------- •ABSENT on NULL (dft) •NULL on NULL •RETURNING CLOB(2G) CCSID 1208 FORMAT JSON (dft) •RETURNING CHAR/VARCHAR...ENCODING UTF-8 | UTF16 •RETURNING BLOB SELECT JSON_OBJECTAGG(workdept, JSON_OBJECTAGG(char(empno) value lastname) FROM EMPLOYEE WHERE workdept LIKE 'D%' GROUP BY workdept; --produit une série d'objets JSON (clé/valeur) pour un groupe (GROUP BY) D11 {"000060":"STERN","000150":"ADAMSON","000160":"PIANKA","000170":"YOSHIMURA",  "000180":"SCOUTTEN","000190":"WALKER","000200":"BROWN","000210":"JONES",  "000220":"LUTZ","200170":"YAMAMOTO","200220":"JOHN"} D21 {"000070":"PULASKI","000230":"JEFFERSON","000240":"MARINO","000250":"SMITH",  "000260":"JOHNSON","000270":"PEREZ","200240":"MONTEVERDE"} Exemple options ------- •NULL on NULL (dft) •ABSENT on NULL •RETURNING CLOB(2G) CCSID 1208 FORMAT JSON (dft) •RETURNING CHAR/VARCHAR...ENCODING UTF-8 | UTF16 •RETURNING BLOB

  
  
  • Lire du JSON
    • JSON_VALUE retourne une valeur scalaire (unitaire)
      
      
      
    • (options)
      
      • WITHOUT ARRAY WRAPPER
        faire référence à une donnée non unitaire génère une erreur
        
      • WITH UNCONDITIONAL ARRAY WRAPPER
        le résultat est encadré de [ et de ]
        
      • WITH CONDITIONAL ARRAY WRAPPER
        le résultat est encadré entre [ et ] en cas de valeurs multiples
        
        
      • KEEP QUOTES : conservé les "
      • OMIT QUOTES : ne pas les conserver , With Array Wrapper, ne peut pas être indiqué.
        
        
      • NULL ON EMPTY
        retourne valeur nulle sur un élément manquant
        
        
      • ERROR ON EMPTY
        retourne une erreur sur un élément manquant
        
        
      • DEFAULT <une-valeur> ON EMPTY
        retourne une valeur par défaut sur un élément manquant
        
        
        
      • ERROR ON ERROR
        retourne une erreur en cas d'erreur (SQL16410)
        
        
      • DEFAULT <une-valeur> ON ERROR
        retourne une valeur par défaut suite à une erreur
        
    • JSON_QUERY retourne une chaîne au format JSON
      
      
    • (options)
      
      • NULL ON EMPTY
        
      • ERROR ON EMPTY
        
      • DEFAULT <une-valeur> ON EMPTY
        
      • ERROR ON ERROR
        
      • DEFAULT <une-valeur> ON ERROR
        
      
      
      
  • LIMIT et OFFSET : support étendu
    • Accepté dans les SELECT imbriqués
    • Accepté dans les vues (select imbriqués uniquement)
    • Accepté sur le 5250 (la requête est entièrement ré-exécutée)
      
      
      
    • LIMIT et OFFSET peuvent être le résultat d'une expression
      
  • LIMIT accepté sur DELETE et UPDATE
    

    -- supprimer les 10 plus anciennes commandes DELETE FROM Commandes where nocli = 45 order by DATCMD LIMIT 10 Exemple

  • Nouveaux services
    • JOBQ_INFO liste les JOBQ, leur attachement (sous-système)
      
      
    • STACK_INFO, affiche la liste d'invocation d'un job (* = le job en cours)
      
      
    • ASP_INFO donne des informations sur les ASP (fonctionne avec l'ASP système)
      
      
    • ASP_VARY_INFO donne l'état des ASP indépendants
      
      Ces services sont proposés dans la dernière mise à jour d' ACS (1.1.7.2)
      
      
    • HISTORY_LOG_INFO (DSPLOG) et DISPLAY_JOURNAL (QAUDJRN uniquement) fournissent des informations au format SYSLOG (Unix)
      • GENERATE_SYSLOG : RFC3164
      • GENERATE_SYSLOG : RFC5224

Détail de "Event" dans le cas du journal d'AUDIT

  Voir notre cours sur PASE pour le démon syslogd

• Nouvelles options de gestion des droits sur la bibliothèque
  • GRANT CREATEIN on schema BIB1 to USER1 : droit de création d'objets => *OBJOPR + *READ + *ADD + *EXECUTE
  • GRANT USAGE on schema BIB1 to USER2 : droit d'utilisation => *USE
  • GRANT ALL on schema BIB1 to USER3 => les deux
  • même chose sur REVOKE...
    
    
• RPG
  • Nouvelle fonction %proc donne le nom :
    • du module (pgm) en cours
    • ou de la procédure en cours
      
      vous remarquerez que RDI 9.5 ne reconnaît pas ces notions , il faudra attendre RDI 9.6
      
  • %ELEM et %SIZE acceptent les DS complexes avec ou sans indice
    
    Avant
    
    
    Maintenant (en plus)
    
    
    
  • RESET et DEALLOC admettent aussi les DS complexes
    
    
    

Evolutions de Navigator for i (SF997022 level 11 et 13))



• JOBD
  
  
  
  
  Création
  
  
• Sous systèmes (SBSD)
  
  
  Création
  
  
  Propriétés
  
  
• Classes
  

TR4 (certaines fonctions sont communes à la TR8 de la 7.2)

Dans le même temps, une nouvelle version (1.1.7.3) d'ACS est disponible

• LE plus important, support des modèles S914/S924 à base de Power 9
  • de 40 à 60 % de gain de perf.
    http://arbsol.com/wp-content/uploads/2018/03/IBM-Power-Systems-CPW-Performance-Data-Comparison-Power8-vs-Power9-rev2-Feb-2018.pdf
    
    

• Les sources CL peuvent être placés dans l'IFS (CRTBNDCL et CRTCLMOD, mais aussi INCLUDE)
  • 
    

• Possibilité de faire des listes de distributions, en mode *SMTP ou *SMTPMSF (CHGSMTPA)

• 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.
        
• Vous pouvez obtenir de nouveaux produits Open Source sous forme de RPM
• Lancez (par le gestionnaire de scripts SQL) bootstrap.sql si votre serveur IBMi à accès à Internet
  ftp://public.dhe.ibm.com/software/ibmi/products/pase/rpms/bootstrap.sql
  
• Sinon
  • téléchargez
    • ftp://public.dhe.ibm.com/software/ibmi/products/pase/rpms/bootstrap.sh
    • ftp://public.dhe.ibm.com/software/ibmi/products/pase/rpms/bootstrap.tar.Z
  • Transférer ces fichiers dans la répertoire /tmp (en binaire)
  • passez la commande :

    QSH CMD('touch -C 819 /tmp/bootstrap.log; /QOpenSys/usr/bin/ksh /tmp/bootstrap.sh > /tmp/bootstrap.log 2>&1')

• Sous QOpenSys/pkgs/bin
  • yum list installed, liste les package installés
  • yum list available, liste les package disponibles
  • yum list all, liste tous les packages
    
    
  • puis
    • yum install <package>
    • yum remove <package>
    • yum search <package>
      
      
      

      Pour utiliser un proxy , éditez /QOpenSys/etc/yum/yum.conf, comme ceci :

      [main] proxy=http://monproxy.masociete.com:8080 proxy_username=user proxy_password=passw0rd

TR5 (certaines fonctions sont communes à la TR9 de la 7.2)

Dans le même temps, une nouvelle version (1.1.8) d'ACS est disponible

• Nouvelle option : Outils/Open Source Package Managment offrant une interface graphique à Yum
  
  Voyez cette technote pour plus de détails http://www-01.ibm.com/support/docview.wss?uid=nas8N1022619
  
  Connectez vous
  
  
  
  Si le client ne peut pas se connecter, lancez STRTCPSVR *SSHD
  
  
  Sinon, acceptez la clé RSA
  
  
  SI l'utilitaire YUM n'est pas installé, vous devrez confirmer son installation
  
  
  Les packages installés
  
  
  Ici les packages pouvant être mis à jour
  
  
  
  
  
  
  Ici les packages nouveaux, à installer
  
  
  
  
  
  
  
• Autres nouveautés :
  • JTOPEN, le driver JDBC supporte la connexion à un serveur de secours, si le lien principal tombe
  • le compilateur SQLRPGLE sera plus "bavard" quand une variable ou une DS n'est pas utilisable dans une instruction SQL
    
    
    Messages modifiées
    

    SQL0312    Reason: The variable is a dimensioned array.

    SQL0312    Reason: The host structure is a dimensioned array.

    SQL0312    Reason: No declaration for the variable exists, the  declaration is not within the current scope,
    or the variable does not have an equivalent SQL data type.

    SQL0312    Reason: A member of the host structure is a result set locator.

    SQL0312    Reason: A member of the host structure is dimensioned.

    SQL0312    Reason: A member of the host structure does not have an equivalent SQL data type.

    
    
  • quelques nouveautés DB2
    • Nom de correllation facultatif avec les fonctions table
      
      ici "as t" devient optionnel
      
    • fonctions et services amméliorés
      • par exemple NOW() admet maintenant une précision (entre 0 et 12) sur le timestamp en cours
      • VARCHAR_FORMAT (ou TO_CHAR) qui transforme (avec beaucoup de puissance)
        • caractère vers varchar
        • numérique vers varchar
          (voir http://www.volubis.fr/forum/viewtopic.php?t=757)
        • Timestamp vers varchar
          • dans ce dernier cas, ont été ajoutés
            • Ms pour millisecondes
            • Us pour microsecondes
      • EXTRACT (qui extrait une partie d'une date) admet plus d'options, dont :
        • EPOCH retourne le nbr de secondes depuis 1970-01-01 00:00:00.00
        • MILLENNIUM retoune le millénaire (2 pour 2018)
        • CENTURY retourne le siécle (20 pour 2018)
        • DECADE retourne le nombre de décades (201 pour 2018)
        • WEEK le n° de semaine
        • DOW le jour de la semaine (1=Dimanche)
        • DOY le jour dans l'année
    • nouvelle vue JOB_DESCRIPTION_INFO retournant des infos sur une JOBD
      
      
      
    • nouvelle vue OUPUT_QUEUE_ENTRIES_BASIC retournant des infos sur tous le spools du système
      
      
    • nouvelle procédure Omnifind SYSTS_SEARCH_RETURN_TO_CALLER pour faire des recherches dans l'IFS par PGM
      
      il existait déjà une procédure SEARCH, mais celle-ci rend plus simple l'utilisation du result sets par une procédure SQL
      

• RDI 9.6.0.4
  • la vue Table évolue pour ressembler un peu plus à PDM
    
    Affichage de la partie saisie de critères
    
    La 2ème nouvelle icone permet de placer la partie Saisie des critèresà gauche de la fenêtre
    
    
    Remarquez que vous pouvez saisir :
    
    • des critères "à la PDM"
    • mais aussi réutiliser vos filtres RSE
    
    D'ailleurs vos critères peuvent être sauvegardés en tant que filtre
    
    et vous les retrouverez dans la partie arborescente
    
    
    
    Une fois vos critères renseignés, voici ce que vous verrez, notez la zone Option, qui fonctionne comme PDM
    
    
    
    Y compris l'option 12 qui descend du niveau biliothèque aux objets, du niveau fichier source aux membres.
    
    TR6 (il n'y a plus de TR pour la 7.2)
    
  • CREATE INDEX
    Nous pouvions déjà (dans un but d’utilisation par pgm)
    •Faire des clefs complexes : Upper(nom) ou (QTE * PRIX)
    •Indiquer un nom de format
    •Indiquer la liste des zones du format
    •Nous pouvons désormais, renommer les zones
    
    
  • INSERT INTO <table> DEFAULT VALUES
    • Pour réserver une ligne ((assignation d’un champ Identity, puis mis à jour dans un 2ème temps)
    • Tester un trigger
    • ....
  • SYSTOOLS.SPLIT('série-éléments' , 'séparateur')
    • Fonction table qui retourne une ligne par élément rencontré
    • Exemple : Split('A/B/C/D/E' , '/')

      ORDINAL	ELEMENT
      1	A
      2	B
      3	C
      4	D
      5	E

  • QSYS.DATA_AREA_INFO : fonction table qui retourne
  • •DATA_AREA_LIBRARY  VARCHAR(10)
    •DATA_AREA_NAME  VARCHAR(10)
    •DATA_AREA_TYPE  VARCHAR(5)  *LGL , *CHAR , *DEC
    •LENGTH  INTEGER
    •DECIMAL_POSISITONS  INTEGER
    •DATA_AREA_VALUE  VARCHAR(2000)  valeur sous forme d’une chaîne
    •DATA_AREA8BINARY_VALUE  VARBINARY(2000)  valeur sous forme binaire
    
    
  • et VUE
  • •DATA_AREA_LIBRARY  VARCHAR(10)
    •DATA_AREA_NAME  VARCHAR(10)
    •DATA_AREA_TYPE  VARCHAR(5)  *LGL , *CHAR , *DEC
    •LENGTH  INTEGER
    •DECIMAL_POSISITONS  INTEGER
    •DATA_AREA_VALUE  VARCHAR(2000)  valeur sous forme d’une chaîne
    •DATA_AREA8BINARY_VALUE  VARBINARY(2000)  valeur sous forme binaire
    •SQL_SEQUENCE  VARCHAR(3)  est-ce une séquence SQL ? (YES/NO)
    •TEXT_DESCRIPTION  VARCHAR(50)  Texte
    
    
  • QSYS2.MESSAGE_FILE_DATA
    
    
  • SYSTOOLS.FIRMWARE_CURRENCY
  • •FW_CURRENCY  VARCHAR(28)  Niveau actuel
    •FW_CURRENT_FIXPACK  VARCHAR(20)  service pack
    •FW_RELASE_DATE  DATE  date du niveau actuel
    •FW_MACHINE_TYPE_MODEL  VARCHAR(20)  type et modèle
    •FW_RECOMMENDED_UPDATE  VARCHAR(20)  niveau de mise à jour recommandé (même version)
    •FW_RECOMMENDED_UPGRADE VARCHAR(20)  version recommandée
    
    
    
    
  • SYSTOOLS.SPOOLED_FILE_DATA
    
  • Amméliorations

    • GET_JOB_INFO, modifié
      

      Ajout de V_ACTIVE_JOB_TYPE (ASJ, BCH, INT, WTR, ….)

      Ajout de V_AUTHORIZATION_NAME profil utilisateur en cours
      

    • OBJECT_PRIVILEGES (vue) , modifiée
      

    Ajout de AUTHORIZATION_LIST
    

    • ASP_INFO (vue) , modifiée
      

    Ajout de RDB_NAME (si Asp_Type = *SYSTEM)

    
    
    

© Volubis