le forum IBM i

Bonjour, Désolé, mais je n'étais pas dispo ces jours pour aller voir vos post. Merci pour ces précisions, je vais effectuer les corrections afin de disposer d'un exemple bien écrit en full free. Surtout que je vais avoir une demande de formation sur le mode full free RPG ici chez moi en Guadeloupe. ...

Bonjour, Merci de la réponse, effectivement il y avait bien 3 éléments retournés. Le problème venait de la définition de la DS GenRcvDS, voici la correction apportée : Dcl-Ds GenRcvrDS BASED(P_UsrSpc); UserArea Char(64) Pos(1); GenHdrSize BinDec(9:0) Pos(65); ...

Voilà ci-dessus le code des deux progammes et extrait du dump user space lorsque je lance INF_DLTLIB

Il est bien rempli mais apparemment le nombre d'éléments retournés est = 0 quand je suis en débug du programme

Merci de votre aide

852319/INFOZEN/QPADEV0009 MPOBJ PARAMETERS OBJ-QUSLOBJ CONTEXT- QTEMP OBJTYPE-*USRSPC OBJECT TYPE- SPACE *USRSPC NAME- QUSLOBJ TYPE- 19 SUBTYPE- 34 LIBRARY- QTEMP 04CF9B50E6A09DC19001 TYPE- 04 SUBTYPE- C1 CREATION- 25/03/15 11:38:29 SIZE- 0000002000 OWNER- INFOZEN TYPE- 08 SUBTYPE- 01 ATTRIBUTES- 0...

H COPYRIGHT('(c) INFOZEN 2015') H DFTACTGRP(*NO) ActGrp( *CALLER ) H BndDir( 'QC2LE' ) š********************************************************************************************** š* š* DS Programme Status š* š*********************...

//--------------------------------------------------------* // * // Séléction et suppression Bibliothèques * // Full Free Syntax * // * // * //--------------------------------------------------------* Ctl-Opt DftActGrp( *NO ) ActGrp( *CALLER ); Ctl-Opt BndDir( 'QC2LE' ); Ctl...

En effet, utiliser la balise code rendra le RPG moins difficile à lire. Néanmoins, j'ai une question. Dans la définition suivante : Dcl-s UserSpace Char(20) INZ('QUSLOBJ QTEMP '); Y a-t-il bien 3 blancs entre le nom du user space QUSLOBJ et celui de la bibliothèque QTEMP ? On ne pas...

Code: //--------------------------------------------------------* // * // Séléction et suppression Bibliothèques * // Full Free Syntax * // * // * //--------------------------------------------------------* Ctl-Opt DftActGrp( *NO ) ActGrp( *CALLER ); Ctl-Opt BndDir( 'QC2LE' ); Ctl-Opt COPYRIGHT('(c)...

Bonjour, Le User Space est bien créé dans les deux cas et dans les deux cas il est bien rempli des informations attendues à savoir : liste des bibliothèques qui commencent par B1 (B1* en paramètre d'entrée) dans le premier cas le nombre d'éléments retournés est 3 et dans le second cas le nombre d'él...

Bonjour, J'ai un soucis quant à l'utilisation de l'API QUSLOBJ : Je m'explique, je l'utilise dans un programme RPG LE en free syntaxetil fonctionne, je suis passé depuis peu à l'écriture en full free syntaxe, j'ai donc repris mon programme afin de le moderniser en full free, j'utilise l'API QUSLOBJ ...

Bonjour, Voilà la surveillance est en place. Merci à tous ceux qui ont apporté leu concours. Ceci dit, je tiens à disposition le source complet du programme de monitoring j'ai fait 2 versions : une en free syntaxes (traditionnelle) et une autre en full free syntaxe. Merci de mettre un post pour ceux...

Bonjour, C'est vrai que l'utilisation d'api est plus appropriée, vous avez raison à propos de l'envoi du message par QcmdExc je vais remplacer par l'api QMHSNDM Merci pour vos réponses et l'aide apportée. Ce monitoring va m'être d'une grande utilité dans l'exploitation quotidienne chez certains clie...

En débugant mon programme, je me suis aperçu que : QcmdExc( 'SNDRPY MSGKEY(' + MsgKey + ') MSGQ(' + %Trim( MsgQlib ) + '/' + %Trim ( MsgQName ) + ') ' + ' RPY(' + %Trim( WchVal ) + ')' ); écrit de cette manière, renvoyait le message CPF0006, erreur dans la commande. Cela proviens du fait que la clé ...

Bonjour à tous, D'abord merci de votre aide J'ai trouvé la solution à mon problème : Ce n'est pas que mon programme ne soit pas appelé, en fait il l'est bien, c'est la commande de réponse au message qui ne fonctionne pas, en tous cas comme je l'ai écrite : QcmdExc( 'SNDRPY MSGKEY(' + MsgKey + ') MSG...

Bonjour, Je suis aller voir la page que vous indiquez, très bien commentée et qui situe exactement mon problèmes. Malheureusement même après avoir fait les vérifications indiquées, malgré tout mon programme ne semble pas être appelé lors d'un évènement dans la QYSOPR. Je re précise que je suis en V7...