Page 1 of 1

rexx-list all userids from superior group

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

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

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

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

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

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

PostPosted: 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.