Hallo *all,

Wir möchten beim Starten einer Telnet-Sitzung die IP-Adresse des Clients ermitteln. Hierfür möchten wir uns den TELNET-Exit-Point: QIBM_QTG_DEVINIT Format: INIT0100 zunutze machen.

ADDEXITPGM EXITPNT(QIBM_QTG_DEVINIT) FORMAT(INIT0100) PGMNBR(1) PGM(MYLIB/MYPROG) REPLACE(*YES) CRTEXITPNT(*NO)

weiß jemand, wie ich das Format an mein Programm übergeben bekomme?

Format of connection description information
Offset dec Offset hex Type Field
0 0 INT(4) Length of connection description information
4 4 CHAR(20) Client internet address
24 18 CHAR(1) Client password validated
25 19 CHAR(12) Workstation type
39 27 CHAR(1) Secure socket layer connection
40 28 CHAR(20) Server (local) internet address
60 3C CHAR(1) Client authentication level
61 3D CHAR(3) Reserved
64 40 INT(4) Client certificate valid rc
68 44 INT(4) Offset to client certificate
72 48 INT(4) Client certificate length