WRNKETF API

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

I asked the same question I had asked here about a WRKNETF API on the 
MI board and I got a reply.  This is the reply I received and just tested
it and it works fine.  I have next to no clue as to what this program is 
doing.

Regards,

Jim Langston

Subject: 
          Re: WRKNETF
     Date: 
          Fri, 5 Jan 2001 10:44:21 -0500
     From: 
          Gene_Gaunt/ReviewWorks@reviewworks.com
 Reply-To: 
          MI400@midrange.com
       To: 
          MI400@midrange.com

Here's a way using MI builtins on security level 30.
Be prepared this could change in a new release.


     H dftactgrp( *no )

     FQSYSPRT   O    F  132        printer

     D RSLVSP2         PR                  extproc( '_RSLVSP2' )
     D   ReturnPtr                     *
     D   Name_Auth                   34A   const

     D RSLVSP4         PR                  extproc( '_RSLVSP4' )
     D   ReturnPtr                     *
     D   Name_Auth                   34A   const
     D   Library                       *

     D FNDINXEN        PR                  extproc( '_FNDINXEN' )
     D   Receiver                      *   value
     D   Index                         *
     D   Options                       *   value
     D   Argument                      *   value

     D Data            DS
     D   NetType                      1A   inz( *loval )
     D   NetFile                     10A   inz( *loval )
     D   NetLib                      10A   inz( *loval )
     D   NetNumber                   10U 0 inz( 0 )
     D                               95A   inz( *loval )

     D Options         DS
     D   Rule                         5U 0 inz( 2 )
     D   Length                       5U 0 inz( 25 )
     D   Offset                       5U 0 inz( 0 )
     D   Occurence                    5U 0 inz( 1 )
     D   Count                        5U 0 inz( 0 )
     D                                4A

     D Lib             S               *
     D Idx             S               *

     C     *entry        plist
     C                   parm                    UserId            8
     C                   parm                    Address           8

     C                   callp     RSLVSP2( Lib : X'0401' +
     C                             'QUSRSYS                       ' +
X'0000' )
     C                   callp     RSLVSP4( Idx : X'0ED1' + UserId +
Address +
     C                             '              ' + X'0000' : Lib )
     C                   dou       Count = 0
     C                   callp     FNDINXEN( %addr( Data ) : Idx :
     C                                       %addr( Options ) : %addr( Data
 ))
     C                   if        Count <> 0
     C                   except    LINE
     C                   endif
     C                   enddo
     C                   eval      *INLR = *on

     OQSYSPRT   E            LINE           1
     O                       NetType              1
     O                       NetFile             15
     O                       NetLib              27
     O                       NetNumber     3     37


+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---