| nccosta Beginner
 
 
 Joined: 06 Jan 2006
 Posts: 4
 Topics: 3
 
 
 | 
			
				|  Posted: Wed Apr 21, 2010 9:28 am    Post subject: Resolving this issue authorization |   |  
				| 
 |  
				| 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
 
 | 
 |  |