BPX4SRU (setreuid) example

The following code sets the real and/or effective user IDs to 1. For the callable service, see setreuid (BPX1SRU, BPX4SRU) —Set the real and/or effective UIDs. AMODE 31 callers use BPX1SRU (setreuid) example.
                                              
         MVC   RUID,=XL4'00000001'   Value of new real user ID          
       MVC   RUID,..               User ID to be set from a getuid      
         MVC   EUID,=XL4'00000001'   Value of new effective user ID     
       MVC   EUID,..               User ID to be set from a geteuid     
         SPACE ,                                                        
         CALL  BPX4SRU,              Set user IDs                      +
               (RUID,                Input: Real User ID to be set     +
               EUID,                 Input: Eff. User ID to be set     +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------