DEFINE Storesubs

  EDIT_PART TOP
  INQ_PART "/"
  LET Topname (INQ 301)

  CREATE_LTAB 'TMPLTAB'
  PARTS_LIST TREE LTAB 'TMPLTAB'
  
  LET I 2
  WHILE (I <= (LTAB_ROWS 'TMPLTAB'))
    LET Z (READ_LTAB 'TMPLTAB' I 1)
    LET Kl1 (POS Z ' [~')
    LET Tmpstr (SUBSTR Z (Kl1+2) (LEN Z - Kl1 - 1))
    LET Kl2 (POS Tmpstr ']')
    LET Name (TRIM (SUBSTR Z 1 (Kl1 - 1)))	{ <--- Teilename	}
    LET Nr (SUBSTR Tmpstr 1 (Kl2-1))	{ <--- Teilenummer	}

    Teil_aktion

    LET I (I+1)
  END_WHILE

END_DEFINE


DEFINE Teil_aktion

  LET Char (SUBSTR Z 7 1)
  IF (Char <> " ")
    STORE Nr DEL_OLD (Topname + "-" + Name)
  END_IF

END_DEFINE