/*
 * trim.rexx
 *
 * Entfernt unnütze Leerzeichen
 *
 * Copyright by Christoph Kirsch
 * $VER: trim.rexx 1.0 (07.08.1997)
 *
 */

address MUIVIDEO.1
options results

sleep                     /* Eingaben unterbinden */

count                     /* Anzahl der Datensätze */
x = result

do i=0 to x-1             /* bei allen Datensätzen ... */
  goto i

  get TITEL               /* Titel kürzen */
  t = result
  t =TRIM(t)
  set TITEL t

  get DARSTELLER          /* Darsteller kürzen */
  t = result
  t =TRIM(t)
  set DARSTELLER t

  get TYP                 /* Typ kürzen */
  t = result
  t =TRIM(t)
  set TYP t

  get CASSETTE            /* Cassette kürzen */
  t = result
  t =TRIM(t)
  set CASSETTE t

  get TON                 /* Ton kürzen */
  t = result
  t =TRIM(t)
  set TON t


  get GESCHWINDIGKEIT     /* Geschwindigkeit kürzen */
  t = result
  t =TRIM(t)
  set GESCHWINDIGKEIT t

  change                  /* und übernehmen */
end

wake                      /* wieder Eingaben erlauben */