/* REXX SIGL Copyright YCOS Yves Colliard Software 1990-2009 */
  /* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
i=1
SIGNAL ON ERROR NAME u_rout    /* Fehler abfangen    */
TRACZ ?R
after_sigerr:
  /* */
i=2
CALL ON ERROR NAME u_rout      /* Fehler abfangen    */
TRACY ?R
  /* */
i=3
CALL u_rout                    /* Routine aufrufen   */
  /* */
i=4
SIGNAL u_rout                  /* Routine aufrufen   */
after_signal:
SAY "The End"
  /* */
EXIT
  /* */
u_rout:
say sigl "-" sourceline(sigl)  /* Zeile Nummer und Inhalt */
select
when i=1 then do
  SIGNAL after_sigerr
end
when i=2 then do
  CALL OFF ERROR
  RETURN
end
when i=3 then do
  RETURN
end
otherwise
  SIGNAL after_signal
end