Re: [C400-L] C to RPG prototyping

[James Rich <james@xxxxxxxxxxx>]

I'm glad you got it solved.  I have to admit that the RPG version sure
looks a lot harder to understand/use/write/debug than the C version.

On Fri, 30 Nov 2001, Brendan Bispham wrote:

> H dftactgrp( *no ) bnddir( 'QC2LE' )
>
> D
> 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 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
> inz(xf14bf34bf64bf14bf24bf14bf14bf14bf000' )
> D host            S             10a   inz('10.11.20.1')
> D cmty            S              6a   inz(x'7075626C6963')
>
> c                   eval      x = getsnmp(%addr(snmppdu) :
> c                                         %addr(host):
> c                                         5:
> c                                         %addr(cmty):
> c                                         6)
>
> c                   eval      x = x
>
> c                   return

Ick!

James Rich
james@eaerich.com