Date:         Fri, 6 Jan 2012 06:52:16 -0500
Reply-To:     REXX Programming discussion list <REXXLIST@LISTSERV.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@LISTSERV.UGA.EDU>
From:         Michael Klaeschen <michael.klaeschen@DEUTSCHERRING.DE>
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