BPX1GLG (getlogin) example

The following code gets the login name of the caller. For the callable service, see getlogin (BPX1GLG, BPX4GLG) — Get the user login name. AMODE 64 callers use BPX4GLG (getlogin) example.

                                              
         CALL  BPX1GLG,              Get the login name                +
               (RETVAL),             Returns value, 0 or ->login name  +
               VL,MF=(E,PLIST)       ----------------------------------