|
Gene and Jim. I missing what the program was SUPPOSED to do. Could you repost (or send privately) that info. Thanks. ----- Original Message ----- From: Jim Langston <jimlangston@conexfreight.com> To: <MI400@midrange.com> Sent: Friday, January 05, 2001 11:16 AM Subject: Re: WRKNETF > 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 > +--- +--- | 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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
