Talk about egg on the face. You're right. I don't know how I missed it. I've gotten so used to using SYSVAR that I went too quickly thru the standard functions list.
I can only assume that I use SYSVAR so I can allow for the fact that a user is running with a profile prefix of something other than the user id, and if the profile is NOPROF I use the SYSVAR function and grab the user id that way. Oops!! -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Veilleux, Jon L Sent: Wednesday, November 12, 2008 6:28 AM To: [email protected] Subject: Re: appending userid in a file Don't know where you are looking but I use this all the time: SYSUID=USERID() Jon L. Veilleux [EMAIL PROTECTED] (860) 636-2683 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Hardee, Charles H Sent: Wednesday, November 12, 2008 7:26 AM To: [email protected] Subject: Re: appending userid in a file Ron, I just went back thru the REXX manual and I sure don't see a function called USERID(). However, there is the function SYSVAR() which takes, among others, the following parameters: "SYSPREF" - The prefix as defined in the user profile "SYSUID" - the user id under which the current session is logged on I would suggest trying one of these two options. sysuid = sysvar("sysuid") syspref = sysvar("syspref") Also, you may want to consider posing REXX questions on the TSO-REXX list rather than on IBM-MAIN. Chuck -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ron Thomas Sent: Wednesday, November 12, 2008 6:06 AM To: [email protected] Subject: Re: appending userid in a file Hello. I have codee the beleo routine and executed using IKJEF01 and it it is not working. Could some one please let me know what could be the issue? The message i am getting is "IKJ56500I COMMAND ID NOT FOUND " /* REXX */ ID = userid() LINE.1 = "PUT 'XXXX.INVTORY.REPORT(0)' ", ||" SUMMARY_REPORT_" ||ID||".TXT" LINE.2 = "CLOSE" LINE.3 = "QUIT" "EXECIO 5 DISKW FTPCTL (STEM LINE. FINIS" EXIT Thanks, Ron ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
