PreviousNext
Help > Programmation avec LAUNCHER Office > Programmation avancée > Les programmes API avec un client AS400 > LNCCMD - Programme API
LNCCMD - Programme API

 Une fois la conversation ouverte avec LNCOPEN , le programme LNCCMD permet l'envoi d'une commande au PC.

C'est l’appel de programme principal que l’application répètera jusqu'à la fermeture de la connexion par LNCCLOSE.

 

Syntaxe

 

DCL

VAR(&HANDLE) TYPE(*CHAR) LEN(50)

DCL

VAR(&CMD) TYPE(*CHAR) LEN(10)

DCL

VAR(&OPT) TYPE(*CHAR) LEN(1)

DCL

VAR(&PARM1) TYPE(*CHAR) LEN(512)

DCL

VAR(&PARM2) TYPE(*CHAR) LEN(1024)

DCL

VAR(&RESULT) TYPE(*CHAR) LEN(512)

 

 

CHGVAR

VAR(&CMD) VALUE('Commande')

CHGVAR

VAR(&OPT) VALUE('Option')

CHGVAR

VAR(&PARM1) VALUE('Premier_paramètre')

CHGVAR

VAR(&PARM2) VALUE('Second_paramètre')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1+

&PARM2 &RESULT)

MONMSG

MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

 

Paramètres

 

Paramètres

 

 

HANDLE 

E

Descripteur retourné par la fonction LNCOPEN ou *ONLY.

CMD

E

Mot clé de la commande à exécuter sur le PC.

Voir Les mots clés de LNCCMD

OPT

E

Valeur de l'option selon la commande référencée par &CMD.

OPT contient ‘W’ pour indiquer que PARM2 contient une valeur codée dans le jeu de caractère Unicode de Windows.

PARM1

PARM2

E

E

Ces paramètres sont affectés selon le mot clé spécifié dans le paramètre &CMD.

Voir de détail de chaque mot clé : Les mots clés de LNCCMD

RESULT

S

Résultat en retour, si la commande demandée retourne une valeur ou un message.

 

Exemple

 

Lancer un programme sur le PC, et attendre son retour.

Pour cet exemple, consultez le détail de la commande EXE dans la liste alphabétique.

 

DCL VAR(&HANDLE) TYPE(*CHAR) LEN(50) VALUE(‘*ONLY’)

DCL VAR(&CMD) TYPE(*CHAR) LEN(10)

DCL VAR(&OPTION) TYPE(*CHAR) LEN(1)

DCL VAR(&PARM1) TYPE(*CHAR) LEN(512)

DCL VAR(&PARM2) TYPE(*CHAR) LEN(1024)

DCL VAR(&RESULT) TYPE(*CHAR) LEN(512)

 

CHGVAR VAR(&CMD) VALUE('EXE')

CHGVAR VAR(&OPT) VALUE('2')

CHGVAR VAR(&PARM1) VALUE('%LNCDIR%\SAMPLES\CALLEXE.EXE')

CHGVAR VAR(&PARM2) VALUE(' ')

CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 &PARM2 &RESULT)

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

 

 

Voir aussi

   LNCOPEN

   LNCCLOSE