DEFINE Identitynumber
LOCAL Idnu
LOCAL Str1
LOCAL Str2
LOCAL Imax
LOCAL In_zael
LOCAL Out_zael
LOCAL Datei2

LET Idnu 765000
LET In_zael 1
LET Out_zael 1
READ NUMBER 'Gewuenschte Identitätsnummer angeben bitte' DEFAULT Idnu Idnu
EDIT_PART TOP
INQ_ENV 8         { holt höchste bekannete Teilenummer}
LET Imax (INQ 5)    
CREATE_LTAB Imax 1 'Lt_Identitynumber'
LOOP
  LET Str1 (READ_LTAB 'PBT_LTAB' In_zael 1)
  LET Str1 (TRIM Str1)
EXIT_IF ( In_zael = Imax )
  IF ((POS Str1 '_') AND (POS '123456789' (SUBSTR Str1 1 1)))  
    LET Str2 (( RPT ' ' ( 10-(POS Str1 '_'))) + (SUBSTR Str1 1 ((POS Str1 '[')-2))) 
    WRITE_LTAB 'Lt_Identitynumber'  Out_zael 1 Str2
	LET Out_zael (Out_zael +1)
  END_IF
  LET In_zael (In_zael +1) 
END_LOOP
SORT_LTAB 'Lt_Identitynumber' 1 CONFIRM
LET In_zael 1
LOOP
  LET Str1 (READ_LTAB 'Lt_Identitynumber' In_zael 1)
  LET Str1 (TRIM Str1)
EXIT_IF ( In_zael = Out_zael )
  LET Str2 ((SUBSTR Str1 1 ((POS Str1 'xxxxxx_')-1)) +(STR Idnu)+'_4')
  EDIT_PART Str1
  RENAME_PART Str2
  LET Idnu (Idnu + 1)
  LET In_zael (In_zael +1) 
END_LOOP
EDIT_PART TOP
PRT_EDITOR { Auskommentieren wenn nicht gewuenscht }
{ PARTS_LIST TREE SCREEN } { Auskommentieren wenn nicht gewuenscht }
END_DEFINE