Exécution dans PDM
Citation de nombre pi le 15 septembre 2020, 12 h 58 minBonjour,
Comment tester avec CL si l'exécution du programme se fait dans la ligne de commande du PDM ?
Bonjour,
Comment tester avec CL si l'exécution du programme se fait dans la ligne de commande du PDM ?
Citation de larry57 le 15 septembre 2020, 13 h 17 minBonjour,
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.
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.
Citation de nombre pi le 15 septembre 2020, 18 h 33 minJe n'ai pas compris comment faire ; pouvez-vous me donner plus d'explication ?
Je n'ai pas compris comment faire ; pouvez-vous me donner plus d'explication ?
Citation de monthi le 16 septembre 2020, 9 h 42 minBonjour
pouvez-vous préciser le besoin initial.
Car la question n'est pas très claire
Cdlt
Bonjour
pouvez-vous préciser le besoin initial.
Car la question n'est pas très claire
Cdlt
Citation de nombre pi le 16 septembre 2020, 13 h 28 minJe voudrais dans un programme (CLP) tester si l'exécution a été faite à partir de la ligne de commande de PDM ou ailleurs.
Je voudrais dans un programme (CLP) tester si l'exécution a été faite à partir de la ligne de commande de PDM ou ailleurs.
Citation de monthi le 16 septembre 2020, 16 h 44 minBonjour
ce n'est pas possible.
Cdlt
Bonjour
ce n'est pas possible.
Cdlt
Citation de remit le 22 septembre 2020, 14 h 30 minLe 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.
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.