Re: SetUID

Thanks Richard -

I was actually looking for SETEUID (Set Effective User ID). I put this
together:

H BndDir('QC2LE')                                           
H DftActGrp(*No)                                            
H ActGrp(*NEW)                                              
                                                            
D SetEUid         PR            10U 0 ExtProc('qsyseteuid') 
D   UID                         10U 0 Const                 
                                                            
D MyInt           S             10U 0                       
                                                            
 /free                                                      
  MyInt = SetEUid(0);                                       
  *INLr = *On;                                              
 /end-free                                                  

which is probably lame, but it works!

- Michael

On Fri, 2 Apr 2004 08:05:55 -0600, richard@xxxxxxxxxxx said:
> Here's a sample ILE RPG for SETUID that should work for you. 
> 
> No warranties implied :-)
> 
> Regards,
> Richard Schoen
> RJS Software Systems Inc. 
> 
> Email: richard@xxxxxxxxxxxxxxx
> Web Site: http://www.rjssoftware.com
> Tel: (952) 898-3038
> Fax: (952) 898-1781
> 
> ****************** Begin of data **************************************** 
> D UID             S              9B 0 
> D GID             S              9B 0 
> C* 
> C* Call set uid program 
> C* 
> C     *ENTRY        PLIST 
> C                   PARM                    USER10           10 
> C                   PARM                    INUID             5 0 
>  
> C*                  ** Set new user ID 
> C                   Z-ADD     INUID         UID 
>  
> C*                  ** No change to group ID 
> C                   Z-ADD     -1            GID 
>  
> C                   CALL      'QSYCHGID'                           99 
> C                   PARM                    USER10 
> C                   PARM                    UID 
> C                   PARM                    GID 
> C                   PARM                    ERRRTN         1024 
>  
> C                   SETON                                        LR 
> ****************** End of data **************************************** 
> 
> 
> ------------------------------
> 
> message: 2
> date: Thu, 01 Apr 2004 16:36:07 -0600
> from: Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>
> subject: Re: SetUID
> 
> Nope, Scott's counsel to go to the RPG list is probably the thing to do.
> 
> Vern
> 
> At 03:20 PM 4/1/2004 -0500, you wrote:
> >Thanks Vern...do you know if anyone has gone to the trouble of
> >translating the C/C++ prototype definitions to RPG?
> >
> >- Michael
> >
> 
> 
> 
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx

-- 
http://www.fastmail.fm - One of many happy users:
  http://www.fastmail.fm/docs/quotes.html