/* REXX RC Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
"FREE FI(YCOSYCOS)"
      /* Fehlermeldung:                                      */
      /* IKJ56247I FILE YCOSYCOS NOT FREED, IS NOT ALLOCATED */
say RC                /* Ausgabe: 12 - FREE Fehler           */
"EXEC 'YVES.YCOS.CLIST(YRCEXIT)'"
say RC                /* Ausgabe: 1234 - Exit Wert           */