/* REXX PROMPT Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SAY PROMPT()                    /* Ausgabe: ON / OFF               */
  /* */
resp=PROMPT('OFF')              /* Set Prompt OFF                  */
SAY resp                        /* Ausgabe: ON / OFF               */
  /* */
ADDRESS TSO "ALLOC"
     /* Ausgabe: IKJ56701I MISSING STATUS OR SYSOUT KEYWORD+       */
     /*          IKJ56701I MISSING STATUS OF OLD, MOD, SHR OR NEW, */
     /*                    OR SYSOUT                               */
  /* */
x = PROMPT('ON')                /* Set Prompt ON                   */
  /* */
ADDRESS TSO "ALLOC"
     /* Ausgabe: IKJ56700A ENTER STATUS OR SYSOUT KEYWORD -        */
  /* */
resp=PROMPT(resp)               /* Restore Prompt state            */
  /* */