/* REXX SUBCOM Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SUBCOM TSO
IF rc = 0 THEN
   SAY "TSO Environment Available"
ELSE
   SAY "TSO Environment not Available"
  /* */
SUBCOM MVS
IF rc = 0 THEN
   SAY "MVS Environment Available"
ELSE
   SAY "MVS Environment not Available"
  /* */
SUBCOM ISPEXEC
IF rc = 0 THEN
   SAY "ISPF Environment Available"
ELSE
   SAY "ISPF Environment not Available"
  /* */