DEFINE Del_anno_info

LOCAL AKT_FILE
LOCAL RUN_DAI
   
   {*** Das Makro entfernt alle relevanten Infos, die eine Zeichnung ***}
   {*** als Annotation kennzeichnen.                                 ***}

   
   READ 'Achtung: Macro loescht endgueltig alle Annotation-Infos! Starten (''J''/''N'')' RUN_DAI
   
   IF ((RUN_DAI = 'J') OR (RUN_DAI = 'j'))
   
	   {*** Unsichtbare info_namespaces                                  ***}
	   delete_current_info_namespace "EDM-X:"
	   delete_current_info_namespace "EDM-Y:"
	   delete_current_info_namespace "EDM-P:"
	   delete_current_info_namespace "EDM-E:"
	   {*** Unsichtbare info_namespaces                                  ***}

	   INQ_ENV 0
	   LET AKT_FILE (INQ 304)

	   INQ_ENV 10
	   LET Os (INQ 4)
	   {*** Betriebsystemversion feststellen    ***}

	   IF (Os = 2) {HP-UX}
		  store mi all del_old '/tmp/me_backup.mi'
		  {*** Reset durchführen, da sonst die Annotationinfo erhalten bleibt  ***}
		  reset_system confirm
		  load '/tmp/me_backup.mi'
	   ELSE {Windoww} 
		  store mi all del_old 'c:\temp\me_backup.mi'
		  {*** Reset durchführen, da sonst die Annotationinfo erhalten bleibt  ***}
		  reset_system confirm
		  load 'c:\temp\me_backup.mi'
	   END_IF

	   SET_FILE_NAME AKT_FILE

	   {*** Entfernen aller restlichen infos aus Annotation              ***}
	   change_global_info "SD*" ""
	   change_global_info "DOCU*" ""
	   change_global_info "AM_VIEW*" ""
	
	  DISPLAY 'Annotation-Infos wurden geloescht!!!'
	
	ELSE
	
	  DISPLAY 'Datenstruktur wurde nicht veraendert!'
	
	END_IF
  
END_DEFINE

DEFINE dai
   Del_anno_info
END_DEFINE