DEFINE Teile_binden
  LOCAL File1
  LOCAL Filestring1
  LET File1 'c:\temp\teilestruktur.in'
  PARTS_LIST DEL_OLD 'c:\temp\teilestruktur.in'
  OPEN_INFILE 1 File1
  LOOP
    READ_FILE 1 Filestring1
  EXIT_IF (Filestring1='END-OF-FILE')
    SMASH_SUBPART ALL
  END_LOOP
  CLOSE_FILE 1
END_DEFINE