Re: WRKNETF

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

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
+---