rexx-list all userids from superior group



IBM's Command List programming language & Restructured Extended Executor

rexx-list all userids from superior group

Postby parthiban » Fri Nov 07, 2008 6:56 pm

Hi...rexx guys,
Is it possible to list all userid present in lpar...I mean from superior group .......in rexx ....


Thanks,
parthiban j
Parthiban jayaraman
mainframe rexxer,
Banglore
parthiban
 
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Location: Bangalore-India
Has thanked: 0 time
Been thanked: 0 time

Re: rexx-list all userids from superior group

Postby MrSpock » Fri Nov 07, 2008 9:02 pm

If you can tell us HOW you would get this information, we can tell you if it's possible to do it within REXX.
User avatar
MrSpock
Global moderator
 
Posts: 807
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 4 times

Re: rexx-list all userids from superior group

Postby parthiban » Fri Nov 07, 2008 11:16 pm

Hi...With the help of racf command we can try...Let me know if you have any other options ......But i need rexx coding
Parthiban jayaraman
mainframe rexxer,
Banglore
parthiban
 
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Location: Bangalore-India
Has thanked: 0 time
Been thanked: 0 time

Re: rexx-list all userids from superior group

Postby dick scherrer » Sat Nov 08, 2008 12:50 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: rexx-list all userids from superior group

Postby parthiban » Thu Nov 20, 2008 10:41 pm

Hi..Guys,

I got a solution....Use Racf Cmd ( LU * ) to list all users in a LPAR.....
Parthiban jayaraman
mainframe rexxer,
Banglore
parthiban
 
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Location: Bangalore-India
Has thanked: 0 time
Been thanked: 0 time

Re: rexx-list all userids from superior group

Postby parthiban » Thu Nov 20, 2008 10:42 pm

/*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)"
Parthiban jayaraman
mainframe rexxer,
Banglore
parthiban
 
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Location: Bangalore-India
Has thanked: 0 time
Been thanked: 0 time

Re: rexx-list all userids from superior group

Postby dick scherrer » Fri Nov 21, 2008 7:57 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post