Attached, is the WHOIS PROC that we use. It works for both 6 & 7 character
User IDs. That is as long as the referenced data set is kept up-to-date.
Hope this helps,
Duane
On Tue, 25 Aug 2009 15:37:17 -0500, gsg <gsg_...@yahoo.com> wrote:
>Does anyone use the WHOIS proc that you can provides a users name that is
>associated with a USERID? The command that we use is 'TSO WHOIS userid'.
>I think that it was written for a 7 character userid, but we have some that
are
>6 characters. Was wondering if anyone ever fixed this or if anyone has
>something similar.
>
>TIA
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
/***************************************************************/
/* USE THIS JOB TO LIST TSO-USERS INFO, BY ENTERING IN */
/* ONLY THEIR USER ID. FOR EXAMPLE USER123 */
/***************************************************************/
PROC 1 TSOUSER XREFDSN('TECH.TSOUSERS') NOCLEAR TEST NULL()
CONTROL NOFLUSH PROMPT NOLIST NOCONLIST NOSYMLIST NOMSG
IF &TEST EQ TEST THEN -
CONTROL FLUSH PROMPT LIST CONLIST SYMLIST MSG
IF &SUBSTR(1:3,&TSOUSER) ¬= TSO -
THEN -
SET &TSOUSER = &TSOUSER
ALLOC FI(TSOUSERS) DA('&XREFDSN') SHR
SET &LASTC = &LASTCC.
IF &LASTC. EQ 12 THEN -
DO
CLEAR
WRITE ALLOCATION FAILED FOR XREF DATASET WITH R/C &LASTC.
EXIT
END
CLEAR
OPENFILE TSOUSERS INPUT
ERROR -
GOTO NOTFOUND:
GOTO AGAIN:
NOTFOUND: -
WRITE TSOID: &TSOUSER NOT FOUND
GOTO EXIT:
AGAIN: -
GETFILE TSOUSERS
SET &TSOID = &SUBSTR(71:77,&STR(&TSOUSERS))
IF &TSOID ¬= &TSOUSER THEN -
GOTO AGAIN:
IF &NOCLEAR = NULL THEN -
CLEAR
SET &PROJLDR = &SUBSTR(46:48,&STR(&TSOUSERS))
SET &PROJMGR = &SUBSTR(50:52,&STR(&TSOUSERS))
SET &PROJDIR = &SUBSTR(54:56,&STR(&TSOUSERS))
SET &LNAME = &SUBSTR(13:27,&STR(&TSOUSERS))
SET &FNAME = &SUBSTR(28:36,&STR(&TSOUSERS))
SET &AREA = &SUBSTR(08:11,&STR(&TSOUSERS))
SET &COSTCNTR = &SUBSTR(37:39,&STR(&TSOUSERS))
SET &PHONE = &SUBSTR(41:44,&STR(&TSOUSERS))
SET &HOMFONE = &SUBSTR(58:69,&STR(&TSOUSERS))
SET &INITIAL = &SUBSTR(01:03,&STR(&TSOUSERS))
WRITE TSOID: &TSOID
WRITE INITIAL: &INITIAL
WRITE NAME: &LNAME,&FNAME
WRITE AREA: &AREA
WRITE TELEPHONE: &PHONE
WRITE SUPR: &PROJLDR
WRITE MANAGER: &PROJMGR
WRITE DIRECTOR: &PROJDIR
WRITE COST CENTER: &COSTCNTR
WRITE HOME PHONE: &HOMFONE
EXIT: -
CLOSFILE TSOUSERS
FREE FI(TSOUSERS)
EXIT
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
