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