BPX1SRU (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 64 callers use BPX4SRU (setreuid) example.
                                              
         MVC   RUID,=XL4'00000001'   Value of new real user ID          
       MVC   RUID,..               User ID to be set from a getuid    73
         MVC   EUID,=XL4'00000001'   Value of new effective user ID     
       MVC   EUID,..               User ID to be set from a geteuid   73
         SPACE ,                                                        
         CALL  BPX1SRU,              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                       +
               VL,MF=(E,PLIST)       ----------------------------------