BPX4GUI (getuid) example

The following code gets the invoker's real user ID. For the callable service, see getuid (BPX1GUI, BPX4GUI) — Get the real user ID. AMODE 31 callers use BPX1GUI (getuid) example.
                                              
         CALL  BPX4GUI,              Get the real user ID              +
               (RETVAL),             Return value: real user ID        +
               MF=(E,PLIST)          ----------------------------------