MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Resolving this issue authorization

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
nccosta
Beginner


Joined: 06 Jan 2006
Posts: 4
Topics: 3

PostPosted: Wed Apr 21, 2010 9:28 am    Post subject: Resolving this issue authorization Reply with quote

Hi Guys

Would you like a force to sulucionar this little problem of authorization and know little of RACF
procurie already on the net about how to solve this problem of authorization and RACF manuals and did not find a job or command in the RACF how.
I would like if possible to get a walkthrough of how to release the RACF does not have much knowledge on the subject

I'm letting down the Rexx and the errors occurred.

Code:


/* REXX **************************************************************/
/*                                                                   */
/*   THIS EXEC EXECUTE A COMMAND ON THE MVS SYSTEM                   */
/*                                                                   */
/*********************************************************************/
TRACE I                                                                 
ARG COMMAND                                                             
IF COMMAND = '' THEN COMMAND = 'D A,L'                                 
                                                                       
"CONSPROF SOLDISP(NO) SOLNUM(500)"                                     
"CONSOLE ACTIVATE"                                                     
                                                                       
"CONSOLE SYSCMD("||COMMAND||") CART(STOP0010)"
                                                                       
GETCODE = GETMSG('MSGS.','SOL','STOP0010',,60)                         
   IF GETCODE = 0 THEN                                                 
    DO                                                                 
     DO I = 1 TO MSGS.0                                                 
      SAY 'R=' MSGS.I                                                   
    END                                                                 
                                                                       
"CONSOLE DEACTIVATE"                                                   
                                                                       
EXIT 0                           


Code:


7 *-* ARG COMMAND                                               
   >>>   ""                                                       
8 *-* IF COMMAND = ''                                           
   >V>   ""                                                       
       >L>   ""                                                     
       >O>   "1"                                                     
       *-*  THEN                                                     
       *-*  COMMAND = 'D A,L'                                       
       >L>    "D A,L"                                               
    10 *-* "CONSPROF SOLDISP(NO) SOLNUM(500)"                       
       >L>   "CONSPROF SOLDISP(NO) SOLNUM(500)"                     
IKJ55353I THE CONSPROF COMMAND HAS TERMINATED.+                     
IKJ55353I USER IBMUSER DOES NOT HAVE CONSOLE COMMAND AUTHORITY.     
       +++ RC(8) +++                                                 
    11 *-* "CONSOLE ACTIVATE"                                       
       >L>   "CONSOLE ACTIVATE"                                     
IKJ55305I THE CONSOLE COMMAND HAS TERMINATED.+                       
IKJ55305I USER IBMUSER DOES NOT HAVE CONSOLE COMMAND AUTHORITY.     
       +++ RC(36) +++                                               
    13 *-* "CONSOLE SYSCMD("||COMMAND||") CART(STOP0010)"           
       >L>   "CONSOLE SYSCMD("                                       
       >V>   "D A,L"                                                 
       >O>   "CONSOLE SYSCMD(D A,L"                                 
       >L>   ") CART(STOP0010)"                                     
       >O>   "CONSOLE SYSCMD(D A,L) CART(STOP0010)"                 
IKJ55305I THE CONSOLE COMMAND HAS TERMINATED.+                       
IKJ55305I USER IBMUSER DOES NOT HAVE CONSOLE COMMAND AUTHORITY.     
       +++ RC(36) +++                                                         
    15 *-* GETCODE = GETMSG('MSGS.','SOL','STOP0010',,60)                     
       >L>   "MSGS."                                                         
       >L>   "SOL"                                                           
       >L>   "STOP0010"                                                       
       >L>   ""                                                               
       >L>   "60"                                                             
IKJ55323I GETMSG PROCESSING HAS TERMINATED.  A CONSOLE SESSION IS NOT ACTIVE.
       >F>   "12"                                                             
    16 *-* IF GETCODE = 0                                                     
       >V>   "12"                                                             
       >L>   "0"                                                             
       >O>   "0"                                                             
    24 +++   EXIT 0                                                           
IRX0014I Error running COMMAND, line 24: Incomplete DO/SELECT/IF     
Back to top
View user's profile Send private message
expat
Intermediate


Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales

PostPosted: Thu Apr 22, 2010 3:00 am    Post subject: Reply with quote

You need to discuss this with your security admin team and follow the correct procedures to be granted the access required.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group