USS Sample - Run a shell command and give output to screen

Sample
USS - Sample

Beispiel:                                 

/* REXX YUSSBSP5 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
if arg()=0 then do
  cmd="ls -l"
end
else do
  cmd=strip(arg(1))
end
x=syscalls('ON')
address sh
x=bpxwunix(cmd,,out.,err.)
if x=0 then do
  do i=1 to out.0
     say out.i
  end
end
else do
  say "'"cmd"' with error"
  do i=1 to err.0
     say err.i
  end
end