Page 1 of 1
rexx-list all userids from superior group
Posted:
Fri Nov 07, 2008 6:56 pm
by parthiban
Hi...rexx guys,
Is it possible to list all userid present in lpar...I mean from superior group .......in rexx ....
Thanks,
parthiban j
Re: rexx-list all userids from superior group
Posted:
Fri Nov 07, 2008 9:02 pm
by MrSpock
If you can tell us HOW you would get this information, we can tell you if it's possible to do it within REXX.
Re: rexx-list all userids from superior group
Posted:
Fri Nov 07, 2008 11:16 pm
by parthiban
Hi...With the help of racf command we can try...Let me know if you have any other options ......But i need rexx coding
Re: rexx-list all userids from superior group
Posted:
Sat Nov 08, 2008 12:50 am
by dick scherrer
Hello,
But i need rexx coding
Hopefully, you have already started writing some code.
As you progress, post any questions/problems you have here and someone will help. We are here to help you learn - not write your code for you.
Re: rexx-list all userids from superior group
Posted:
Thu Nov 20, 2008 10:41 pm
by parthiban
Hi..Guys,
I got a solution....Use Racf Cmd ( LU * ) to list all users in a LPAR.....
Re: rexx-list all userids from superior group
Posted:
Thu Nov 20, 2008 10:42 pm
by parthiban
/*rexx*/
x1=outtrap('stem1.')
"lu *"
CNT=1
do k=1 to stem1.0
buf=stem1.k
parse var buf xv .
if xv='NONE' then
do
buf1=k+2
buf2=stem1.buf1
parse var buf2 w1 .
sub=SUBSTR(w1,6)
/* say ".." sub */
stem02.CNT=sub
CNT=CNT+1
end
end
say CNT
buf3=stem1.1
parse var buf3 xx .
sub1=substr(xx,6)
say sub1
stem02.CNT=sub1
"alloc f(out) da('r074443.ttt.ps') shr"
'execio * diskw out(stem stem02. finis'
"free f(in,out)"
Re: rexx-list all userids from superior group
Posted:
Fri Nov 21, 2008 7:57 am
by dick scherrer
Hello,
Good to hear it is working - thanks for posting your solution
Please notice that your rexx has been "Code"ed by using the bbCode tag (on the top of the reply panel). This makes your post more readable and preserves the alignment.