ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
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. |
|