Fil d’Ariane du forum – Vous êtes ici :ForumForums techniques: AS/400Exécution dans PDM
Vous devez vous identifier pour créer des messages et des sujets.

Exécution dans PDM

Bonjour,

Comment tester avec CL si l'exécution du programme se fait dans la ligne de commande du PDM ?

Bonjour,

Personnellement, je fait ceci :

Avec l'API, tu fais un monitor de l'exécution et tu affiches la commande en erreur dans un window.

var1 = %trim(COMMAND_W);
monitor;
execute(var1:var2);
on-error *all;
exfmt WIND_01W;
leave;
Endmon;

Ça fonctionne bien dans mon cas.

Larry57.

 

 

Je n'ai pas compris comment faire ; pouvez-vous me donner plus d'explication ?

Bonjour

pouvez-vous préciser le besoin initial.

Car la question n'est pas très claire

Cdlt

 

Je voudrais dans un programme (CLP) tester si l'exécution a été faite à partir de la ligne de commande de PDM ou ailleurs.

Bonjour

ce n'est pas possible.

Cdlt

 

 

Le code ci-après permet de récupérer le nom du programme appelant dans la variable &NOMPGM :

DCL        VAR(&NOMPGM) TYPE(*CHAR) LEN(10)       
DCL        VAR(&MSGKEY) TYPE(*CHAR) LEN(4)        
DCL        VAR(&SENDER) TYPE(*CHAR) LEN(80)       
                                                  
SNDPGMMSG MSG('dummy') TOPGMQ(*PRV) KEYVAR(&MSGKEY)
RCVMSG MSGQ(*PGMQ) MSGKEY(&MSGKEY) SENDER(&SENDER)
CHGVAR VAR(&NOMPGM) VALUE(%SST(&SENDER 56 10)) 

Lors d'un appel depuis PDM, le nom du programme appelant est QCMD ou QUICMD ou QUOCMD.