rexx-list all userids from superior group

IBM's Command List programming language & Restructured Extended Executor
parthiban
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Skillset: REXX,JCL,RACF
Referer: Google
Location: Bangalore-India
Contact:

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

User avatar
MrSpock
Global moderator
Posts: 809
Joined: Wed Jun 06, 2007 9:37 pm
Skillset: REXX, JCL, DFSORT, Syncsort, Axway MFT, Connect:Direct, FTP, SFTP
Referer: ibmmainframes.com
Location: Raleigh NC USA
Contact:

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.

parthiban
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Skillset: REXX,JCL,RACF
Referer: Google
Location: Bangalore-India
Contact:

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

User avatar
dick scherrer
Global moderator
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am

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.

parthiban
Posts: 66
Joined: Mon Oct 20, 2008 7:54 pm
Skillset: REXX,JCL,RACF
Referer: Google
Location: Bangalore-India
Contact:

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
Skillset: REXX,JCL,RACF
Referer: Google
Location: Bangalore-India
Contact:

Re: rexx-list all userids from superior group

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

Code: Select all

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

User avatar
dick scherrer
Global moderator
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am

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.


  • Similar Topics
    Replies
    Views
    Last post