/* REXX CALL ON Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
CALL ON ERROR NAME generror
TRACZ ?R                        /* TRACZ falsch geschrieben  */
  /* */
CALL ON FAILURE NAME failerror
ADDRESS MVS 'TIME'              /* TIME ist ein TSO Kommando */
  /* */
SAY "The End"
  /* */
EXIT
  /* */
generror:
SAY "General Error"
CALL OFF ERROR
RETURN
  /* */
failerror:
SAY "Failure Error"
CALL OFF FAILURE
RETURN