Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Retreiving the MVS account infor using REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
bipinpeter

Active User


Joined: 18 Jun 2007
Posts: 243
Location: Cochin/Kerala/India
PostPosted: Wed Jul 01, 2009 10:50 am    Post subject: Retreiving the MVS account infor using REXX
 Reply with quote
Is any way to retreive MVS account number using REXX?? Like we are retreiving the user name by SYSVAR command.
If we type SAREA,from where its extracting the data?
Back to top
View user's profile Send private message
References
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2365
Location: Israel
PostPosted: Wed Jul 01, 2009 11:08 am    Post subject:
Reply with quote
Try this:
Code:
/*------------------------------- REXX -------------------------------
 * PROGRAM   : GETPROGN
 * FUNCTION  : GET PROGRAMMER NAME
 * AUTHOR    : OFER
 * DATE      : 04/02/04
 * HOW TO USE:
 *           :
 *------------------------------------------------------------------*/

  NUMERIC DIGITS(32)
       TCB=STORAGE(D2X(540),4)
      JSCB=STORAGE(D2X(C2D(TCB)+180),4)
   SYSJESN=STORAGE(D2X(C2D(STORAGE(D2X(C2D(JSCB)+316),4))+12),8)
       JCT=STORAGE(D2X(C2D(JSCB)+260),4)
   SYSJOBN=STORAGE(D2X(C2D(JCT)+24),8)
       ACT=STORAGE(D2X(C2D(JCT)+56),3)
   SYSPGMR=STORAGE(D2X(C2D(ACT)+24),20)
      ACTL=C2D(STORAGE(D2X(C2D(ACT)+48),1))
   SYSACCT=STORAGE(D2X(C2D(ACT)+49),ACTL)
  IF SYSVAR(SYSISPF)=ACTIVE
  THEN  ADDRESS ISPEXEC 'VPUT (SYSJESN SYSJOBN SYSPGMR SYSACCT) PROFILE'
  ELSE  SAY WORD(SYSJOBN,1)'('SYSJESN') ACCOUNT('SYSACCT')' SYSPGMR

EXIT


O.
Back to top
View user's profile Send private message
bipinpeter

Active User


Joined: 18 Jun 2007
Posts: 243
Location: Cochin/Kerala/India
PostPosted: Thu Jul 02, 2009 10:12 am    Post subject:
Reply with quote
Hi ofer71,
Its working fine.Thanks alot.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1