Existe-t-il une commande permettant de récupérer le nom du profil utilisateur PC qui émule une session 5250 ?
Le programme CL suivant appelle LNCOPEN pour recevoir l’adresse IP du PC en cours d’émulation 5250 pour le job courant.
En entrée :
&HANDLE = ‘*GETDOT’
&SVRADDR = ‘*DEV’
En sortie :
&SVRADDR = adresse IP du PC
PGM
/* VARIABLES USED TO OPEN COMMUNICATIN AND SEND COMMANDS ...*/
DCL VAR(&SVRADDR) TYPE(*CHAR) LEN(30)
DCL VAR(&HANDLE) TYPE(*CHAR) LEN(50)
DCL VAR(&CCSID) TYPE(*CHAR) LEN(10)
/* CALL LNCOPEN WITH &HANDLE=*GETDOT, &SVRADDR=*DEV */
CHGVAR VAR(&SVRADDR) VALUE(*DEV)
CHGVAR VAR(&HANDLE) VALUE(*GETDOT)
CHGVAR VAR(&CCSID) VALUE(*JOB)
CALL PGM(LNCOPEN) PARM(&HANDLE &SVRADDR &CCSID)
/* ON RETURN, &SVRADDR=IP ADDRESS */
END:
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA(&SVRADDR) MSGTYPE(*COMP)
ENDPGM