Telnet Exit Programm

[HeymannJ]

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

[Robi]

Hi,
Ist nicht ganz die Antwort auf deine Frage, aber wenn ich ehrlich bin, verstehr ich die Frage auch nicht

http://newsolutions.de/forum-systemi...ermitteln.html ( client auch)
Gruß
Robi

[Pikachu]

Dein Programm, das mit WRKREGINF bei diesem Ausgangspunkt hinterlegt wurde, bekommt die folgenden Parameter übermittelt: Device initialization exit program. Hier gibt's es ein Beispiel.