BPX4GLG (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 31 callers use BPX1GLG (getlogin) example.

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