LNCOPEN - Programme API

Ouvre la communication entre le travail AS/400 et un PC.

Avant l'appel à la fonction LNCOPEN, le démon LAUNCHER Office doit être lancé sur le PC ciblé.

Syntaxe

DCL	VAR(&HANDLE) TYPE(*CHAR) LEN(50)
DCL	VAR(&SVRADDR) TYPE(*CHAR) LEN(30)
DCL	VAR(&CCSID) TYPE(*CHAR) LEN(10)

CHGVAR	VAR(&HANDLE) VALUE('*ONLY')
CHGVAR	VAR(&SRVADDR) VALUE('*DEV')
CHGVAR	VAR(&CCSID) VALUE('*JOB')

CALL	PGM(LNCOPEN) PARM(&HANDLE &SVRADDR &CCSID)
MONMSG	MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

Paramètres
HANDLE (E/S)	Descripteur retourné par la fonction LNCOPEN. Cette variable devra être utilisée dans toutes les fonctions de LAUNCHER Office. Initialiser la variable &HANDLE à ‘ONLY’ si vous n'ouvrez qu'une seule communication avec le PC. La valeur spéciale ‘GETDOT’ permet de récupérer l’adresse TCP/IP du PC dans le paramètre SVDADDR.
SVRADDR (E/S)	Nom réseau du PC ou adresse TCP/IP. Utiliser la valeur ‘*DEV’ pour désigner le PC sur lequel tourne l’émulateur de terminal pour la session interactive en cour. Si le paramètre HANDLE vaut ‘*GETDOT’, SVRADDR contiendra l’adresse TCP/IP du PC en retour.
CCSID (E)	CCSID utilisé par le programme AS/400. Donnez la valeur *'JOB'** pour utiliser le CCSID du job courant.

Remarque

Depuis la version V3R7 (CUMUL C8069370) de l'OS/400 il est possible d'utiliser les DEVICE AS/400 pour récupérer l'adresse IP de l'émulation.

En spécifiant *DEV pour l'adresse cible, le programme va converser avec le PC correspondant à l'émulation.

Pour utiliser LAUNCHER Office dans un travail « Batch », qui communique avec le PC de l’utilisateur, le programme interactif doit :

• Récupérer l’adresse du PC, avec HANDLE=*GETDOT, et SVRADDR=*DEV

• Soumettre le travail « Batch » en passant la valeur reçue dans le paramètre SVRADDR au programme soumis.

Exemple

Ouvrir une conversation avec le PC de l’utilisateur interactif.

DCL VAR(&SVRADDR) TYPE(*CHAR) LEN(30)

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

DCL VAR(&CCSID) TYPE(*CHAR) LEN(10) VALUE(‘*JOB’)

. . .

CHGVAR VAR(&SVRADD) VALUE('*DEV')

CHGVAR VAR(&HANDLE) VALUE(*ONLY')

CALL PGM(LNCOPEN) PARM(&HANDLE &SVRADDR &CCSID)

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

Ouvrir une conversation avec le PC à l’adresse "182.12.13.14"

. . .

CHGVAR VAR(&SVRADD) VALUE('182.12.13.14')

CHGVAR VAR(&HANDLE) VALUE(*ONLY')

CALL PGM(LNCOPEN) PARM(&HANDLE &SVRADDR &CCSID)

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

Récupérer l’adresse IP du PC de l’utilisateur interactif.

. . .

CHGVAR VAR(&SVRADD) VALUE(*DEV')

CHGVAR VAR(&HANDLE) VALUE(*GETDOT')

CALL PGM(LNCOPEN) PARM(&HANDLE &SVRADDR &CCSID)

/* En retour, &SVRADDR contient l’adresse IP. */