Date:         Fri, 6 Jan 2012 07:36:41 -0500
Reply-To:     REXX Programming discussion list <REXXLIST@LISTSERV.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@LISTSERV.UGA.EDU>
From:         Lizette Koehler <starsoul@MINDSPRING.COM>
Subject:      Re: Console Command Output
In-Reply-To:  <201201061152.q0667qfT027562@waikiki.cc.uga.edu>
Content-Type: text/plain; charset="us-ascii"

Could be a route code or authority issut?

Do you have the necessary access to any or all of the following

TARGET

    subsystem-name.TARGET.DESCRIPTION
    subsystem-name.TARGET.LIST
    subsystem-name.TARGET.LOCAL
    subsystem-name.TARGET.NODE
    subsystem-name.TARGET.OPERATIVE
    Note:
    TARGET.OPERATIVE also protects the DELETE and DORMANT operands.
    subsystem-name.TARGET.PREFIX
    subsystem-name.TARGET.PROTOCOL
    subsystem-name.TARGET.PURGE
    subsystem-name.TARGET.WDSQUAL
    subsystem-name.TARGET.WORKSPACE

To protect the TARGET LIST command, for example:

RDEFINE OPERCMDS RACF.TARGET.LIST

Lizette


> -----Original Message-----
> From: REXX Programming discussion list [mailto:REXXLIST@LISTSERV.UGA.EDU]
On
> Behalf Of Michael Klaeschen
> Sent: Friday, January 06, 2012 6:52 AM
> To: REXXLIST@LISTSERV.UGA.EDU
> Subject: Console Command Output
>
> Hello,
>
> issuing command to RACF subsystem with eMCS console from REXX. MVS command
"D
> IPLINFO" works as expected. Result is found in my REXX program output.
>
> Result of RACF Command "TARGET LIST" only shows in syslog (content itself
as
> expected). But it is not found in my REXX program output.
>
> What have I done wrong?
>
> Thank you, Cheers
> Michael
>
>
> /* REXX */
> MY_COMMAND="D IPLINFO"
> MY_COMMAND="RACF TARGET LIST"
>
> MY_CART="CARTMKL0"
> MY_NAME=LEFT(SYSVAR(SYSUID),8,'C')
>
> ADDRESS TSO "CONSOLE ACTIVATE NAME("!!MY_NAME!!") CART("!!MY_CART!!")"
> ADDRESS TSO "CONSPROF SOLDISP (NO)"
> ADDRESS TSO "CONSOLE SYSCMD("!!MY_COMMAND!!") CART("!!MY_CART!!")"
>
> MRC = 0
> MSGINDEX = 0
> DO WHILE MRC = 0
>   MRC = GETMSG('CNSL.','SOL',,MY_CART,3)
>   IF MRC > 0 THEN LEAVE
>   DO I = 1 TO CNSL.0
>     MSGINDEX = MSGINDEX+1
>     MSG.MSGINDEX = CNSL.I
>   END
> END
> MSG.0 = MSGINDEX
> DO I = 1 TO MSG.0
>   SAY MSG.I
> END
>
> ADDRESS TSO "CONSOLE DEACTIVATE"
> EXIT 0