/* REXX SYSCPUS Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
retc = SYSCPUS("CPUON.")
                                /* Ausgabe: retc = 0 -> OK      */
  /* */
IF retc = 0 THEN DO
  SAY CPUON.0 "CPUs sind Online"
  DO i=1 to CPUON.0
     SAY "CPU" FORMAT(i,2) "Online, Serial:" CPUON.i
  END
END
ELSE
   SAY "Fehler SYSCPUS, Return Code:" retc
  /* */