/* REXX MSG Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SAY MSG()                       /* Ausgabe: ON                     */
resp = MSG("OFF")               /* Messages werden unterdrueckt    */
ADDRESS TSO "FREE FI(ABCDEFG)"  /* Ausgabe:                        */
ADDRESS TSO "TIME"              /* Ausgabe:                        */
SAY "Das sehen wir!"            /* Ausgabe: "Das sehen wir!"       */
resp = MSG(resp)                /* Messages werden angezeigt       */
ADDRESS TSO "FREE FI(ABCDEFG)"  /* Ausgabe: IKJ56247I FILE ABCDEFG */
                                /*     NOT FREED, IS NOT ALLOCATED */
/* */