System REXX - execute the command and give info at console

Sample
System REXX

Beispiel:                                 

/* REXX MYREXN1 Copyright YCOS Yves Colliard Software 2008-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
/* MUST BE COPIED TO SYS1.SAXREXEC                                */
cmd = arg(1)
if cmd="" then cmd="D T"
parse source . . myrx .
time = 10  /* wait max 10 seconds */
yrc = AXRCMD(cmd,rsp.,time)
if yrc=0 then do
  do i=1 to rsp.0
    say "Y-Y-Y" myrx "-" rsp.i
  end
end
else do
  say "Y-Y-Y" myrx "Error RC=" yrc
end