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: IBM-MAIN@BAMA.UA.EDU
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: IBM-MAIN@BAMA.UA.EDU
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

This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna   

----------------------------------------------------------------------
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

Reply via email to