RPG: Client Infos lesen?

[robertki]

Vielleicht könntest du die Quelle ja hier mal reinstellen ?
Dann hätten vielleicht alle was davon.

Hi Fuerchau,

hier der Code:

H DFTACTGRP(*NO) bnddir( 'QC2LE' )
D getsnmp PR 10I 0 ExtProc('snmpGet')
D pdu_ptr * value
D host_ptr * value options(*string)
D timeout 10I 0 value
D comm_ptr * value options(*string)
D comm_len 10I 0 value
D myvalds DS
D int_val 10I 0
D char_val *
D mychar_val S 90A based(char_val)
D varBind DS
D next * inz(*NULL)
D pOid * inz(%addr(oid))
D asnType 1a
D valLen 10i 0 inz(50)
D valPtr * inz(%addr(value))
D snmppdu DS
D pduType 1a
D errSts 10i 0
D errIdx 10i 0
D pVarBind * inz(%addr(varBind))
D x S 10i 0
D value S 50a
D oid S 50a
D msg S 52A
D pos S 10I 0
D host S 12a inz('192.168.1.39')
D cmty S 6a inz(x'7075626C6963')
D ASCII2EBCDIC C CONST( 'QTCPEBC' )
D EBCDIC2ASCII C CONST( 'QTCPASC' )
D Translate PR ExtPgm( 'QDCXLATE' )
D Length 5P 0 const
D Date 32766A options( *varsize )
D Table 10A const
D valend C '§'
/FREE
oid = x'f14bf34bf64bf14bf24bf14bf14bf14bf000';
// oid: .1.3.6.1.2.1.1.1
x = getsnmp(%ADDR( snmppdu): %addr(host):5:%addr(cmty):6);
if ( x <> 0 );
msg = 'SNMPGet error: ' + %char(x);
dsply msg;
else;
Translate(%size(value):value:ASCII2EBCDIC);
pos = %scan(valend: value) - 1;
if ( pos > 0 );
value = %subst(value:1:pos);
endif;
msg = value;
dsply msg;
pos = %scan('WindowsCE': value);
if ( pos > 0 );
msg = 'OS is WindowsCE';
endif;
dsply msg;
endif;
*inlr = *on;
/END-FREE 

Viel Spaß damit. Robert