This assembler sequence does it by capturing the 8-byte TSO/E userid from the JSAB; you could use the REXX STORAGE function to do the same:
L R15,PSAAOLD Get A(my ASCB) L R15,ASCBASSB-ASCB(,R15) Get A(my ASSB) L R15,ASSBJSAB-ASSB(,R15) Get A(JSAB) MVC PRODQUAL,JSABUSID-JSAB(,R15) Save userid Mike Shaw MVS/QuickRef Support Group Chicago-Soft, Ltd. On Wed, Feb 16, 2022 at 2:11 PM Steve Smith <[email protected]> wrote: > Is there any way to obtain the userid (user name) in REXX running in a > non-TSO environment? I know that sysvar does not work in USS, IRXJCL, or > System REXX TSO=NO. Whereas mvsvar does (go figure). It's so fundamental > that I think I can't be the first one to need this. > > -- > sas > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
