Re: WRKNETF

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Gene,

Thanks!  It works like a charm!

I have next to no clue what it's doing, but it works :)

I think I'll stick an RPG wrapper around around this and put
it in my library.

Thanks again!

Gene_Gaunt/ReviewWorks@reviewworks.com wrote:
> 
> 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 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
+---