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?

<table summary="" frame="border" rules="all" border="1" cellpadding="4" cellspacing="0"><caption>Format of connection description information</caption><thead align="left"><tr><th id="d0e29" valign="top">Offset dec</th> <th id="d0e31" valign="top">Offset hex</th> <th id="d0e33" valign="top">Type</th> <th id="d0e35" valign="top">Field</th> </tr> </thead> <tbody><tr><td headers="d0e29 " valign="top">0</td> <td headers="d0e31 " valign="top">0</td> <td headers="d0e33 " valign="top">INT(4)</td> <td headers="d0e35 " valign="top">Length of connection description information</td> </tr> <tr><td headers="d0e29 " valign="top">4</td> <td headers="d0e31 " valign="top">4</td> <td headers="d0e33 " valign="top">CHAR(20)</td> <td headers="d0e35 " valign="top">Client internet address</td> </tr> <tr><td headers="d0e29 " valign="top">24</td> <td headers="d0e31 " valign="top">18</td> <td headers="d0e33 " valign="top">CHAR(1)</td> <td headers="d0e35 " valign="top">Client password validated</td> </tr> <tr><td headers="d0e29 " valign="top">25</td> <td headers="d0e31 " valign="top">19</td> <td headers="d0e33 " valign="top">CHAR(12)</td> <td headers="d0e35 " valign="top">Workstation type</td> </tr> <tr><td headers="d0e29 " valign="top">39</td> <td headers="d0e31 " valign="top">27</td> <td headers="d0e33 " valign="top">CHAR(1)</td> <td headers="d0e35 " valign="top">Secure socket layer connection</td> </tr> <tr><td headers="d0e29 " valign="top">40</td> <td headers="d0e31 " valign="top">28</td> <td headers="d0e33 " valign="top">CHAR(20)</td> <td headers="d0e35 " valign="top">Server (local) internet address</td> </tr> <tr><td headers="d0e29 " valign="top">60</td> <td headers="d0e31 " valign="top">3C</td> <td headers="d0e33 " valign="top">CHAR(1)</td> <td headers="d0e35 " valign="top">Client authentication level</td> </tr> <tr><td headers="d0e29 " valign="top">61</td> <td headers="d0e31 " valign="top">3D</td> <td headers="d0e33 " valign="top">CHAR(3)</td> <td headers="d0e35 " valign="top">Reserved</td> </tr> <tr><td headers="d0e29 " valign="top">64</td> <td headers="d0e31 " valign="top">40</td> <td headers="d0e33 " valign="top">INT(4)</td> <td headers="d0e35 " valign="top">Client certificate valid rc</td> </tr> <tr><td headers="d0e29 " valign="top">68</td> <td headers="d0e31 " valign="top">44</td> <td headers="d0e33 " valign="top">INT(4)</td> <td headers="d0e35 " valign="top">Offset to client certificate</td> </tr> <tr><td headers="d0e29 " valign="top">72</td> <td headers="d0e31 " valign="top">48</td> <td headers="d0e33 " valign="top">INT(4)</td> <td headers="d0e35 " valign="top">Client certificate length</td></tr></tbody></table>

[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-as400-i5-iseries/newsboard-programmierung/12339-ip-adresse-der-iseries-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 (http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzaiw/rzaiwdevinit.htm). Hier gibt's es ein Beispiel (http://144.162.90.48/thomas/Techincial_Information/Source/Netshare400%20CL%20Source/TELNET%20Initialization.txt).