BPX1SEU (seteuid) example

The following code sets the effective user ID of the invoker to 1. For the callable service, see seteuid (BPX1SEU, BPX4SEU) — Set the effective user ID. AMODE 64 callers use BPX4SEU (seteuid) example.

                                              
         MVC   USERID,=XL4'00000001' Value of new effective user ID     
         SPACE ,                                                        
         CALL  BPX1SEU,              Set effective user ID             +
               (USERID,              Input: User ID                    +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------