CEC 2012 Vienna Forum Francophone Power IBM i ( et AS/400, iSeries, System i, ... )
Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )   Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )   Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )   Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )
18 Mai,2012, 21:57:14 *
Bienvenue, Invité. Veuillez vous connecter ou vous inscrire.
Avez-vous perdu votre courriel d'activation?

Connexion avec identifiant, mot de passe et durée de la session
Nouvelles:
 
   Accueil   Aide Règles Rechercher Partenaires Identifiez-vous Inscrivez-vous Liens Common France Common Belgique Common Luxembourg  
Pages: [1]   Bas de page
  Imprimer  
Auteur Fil de discussion: Problème de passage de paramètre dans mon CL  (Lu 434 fois) Average Rating: 0
0 Membres et 1 Invité sur ce fil de discussion.
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.13 Firefox 3.6.13


Voir le profil
« le: 03 Février,2011, 16:38:43 »

Bjr,

J'ai un problème pour passer ce paramètre à partir de mon CL
PGM PARM(&NUMFIL &TYPE)

DCL        VAR(&LIB2)     TYPE(*CHAR) LEN(10) VALUE(MABIB)
DCL        VAR(&NUMFIL)   TYPE(*CHAR) LEN(2)
DCL        VAR(&TYPE)     TYPE(*CHAR) LEN(2)
DCL        VAR(&QUERY)    TYPE(*CHAR) LEN(22)

[...]
CHGVAR VAR(&QUERY) VALUE(&LIB2 *TCAT '/FICIM' *CAT &NUMFIL *CAT &TYPE)
                                                                       
RUNQRY     &QUERY                                       

[...]

ENDPGM

A l'exécution j'ai le message d'erreur suivant

    5800 - RUNQRY QRY('MABIB/FICIM99PP')                                   
  La valeur 'MABIB/F' du param}tre QRY n'est pas un nom correct.         
  Erreur trouv{e dans la commande RUNQRY.                                   
  Message CPF0001 re\u par MONPROG @ l'instruction 5800. (C D I R)         
? D                                                                         
  Le traitement de la commande n'a pas abouti ; voir l'historique du         
    travail.
Journalisée
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.13 Firefox 3.6.13


Voir le profil
« Répondre #1 le: 03 Février,2011, 16:44:03 »

J'ai vu pourquoi ca ne marche pas la variable ajoute les côtes à la commande runqry comment faire pour ne pas avoir les côtes
Journalisée
jmpenasse
Administrator
Membre Héroïque
*****
Hors ligne Hors ligne

Messages: 344


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.13 Firefox 3.6.13



i_SilverDev http://fr.linkedin.com/in/jmpenasse
Voir le profil WWW
« Répondre #2 le: 03 Février,2011, 17:00:01 »

Bonjour,
Une possibilité est de passer par QCMDEXC pour executer la commande RUNQRY :

Code:
PGM PARM(&NUMFIL &TYPE)

DCL        VAR(&LIB2)     TYPE(*CHAR) LEN(10) VALUE(MABIB)
DCL        VAR(&NUMFIL)   TYPE(*CHAR) LEN(2)
DCL        VAR(&TYPE)     TYPE(*CHAR) LEN(2)
DCL        VAR(&QUERY)    TYPE(*CHAR) LEN(22)
DCL        VAR(&CMD)    TYPE(*CHAR) LEN(255)
DCL        VAR(&CMDLEN)    TYPE(*DEC) LEN(15 5) VALUE(255)


[...]
CHGVAR VAR(&QUERY) VALUE(&LIB2 *TCAT '/FICIM' *CAT &NUMFIL *CAT &TYPE)
CHGVAR &CMD  VALUE('RUNQRY QRY(' *CAT &QUERY *CAT ')')                                                                      
CALL QCMDEXC PARM(&CMD &CMDLEN)
[...]

ENDPGM
Journalisée

Il y a 10 sortes de gens : Ceux qui comprennent le binaire et les autres ...
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.13 Firefox 3.6.13


Voir le profil
« Répondre #3 le: 03 Février,2011, 17:18:41 »

Slt Jmp

Ben enfin de compte j'ai fait comme ça RUNQRY     QRY(&LIB2/&QUERY)  en plus c'était ma première idée et je sais pas suis partie sur ce chargement de variable à la noix

Merci A+
Journalisée
jmpenasse
Administrator
Membre Héroïque
*****
Hors ligne Hors ligne

Messages: 344


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.13 Firefox 3.6.13



i_SilverDev http://fr.linkedin.com/in/jmpenasse
Voir le profil WWW
« Répondre #4 le: 03 Février,2011, 17:22:58 »

Good blood, but it is well sure!

Comment n'y ai-je pas pensé plus tôt !  Bonnet d'âne

J'ai répondu trop rapidement  Undecided
Journalisée

Il y a 10 sortes de gens : Ceux qui comprennent le binaire et les autres ...
Pages: [1]   Haut de page
  Imprimer  
 
Aller à:  


Propulsé par MySQL Propulsé par PHP Common France © 2008, 2009  
AS/400, AS400, iSeries, i5, Power i sont des marques déposées d'International Business Machines Corp.

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines
SMFAds for Free Forums
SMF customization services by 2by2host.com
XHTML 1.0 Transitionnel valide ! CSS valide !
SimplePortal 2.1.1