{ Eine neue Version des Speicherns in die Arbeitsdatei        }
{ Die Datei wird 6 mal ins /tmp/-Verzeichnis geschrieben      }
{ nach dem 6. Mal wird der Dateiname wieder von vorn begonnen }
{ Also :1. Sicherung -> Dateiname: /tmp/Arbeitsdatei_1        }
{       2.     "          "          "        "     _2        }
{       3.     "          "          "        "     _3        }
{       6.     "          "          "        "     _1        }
DEFINE EINZELDATEI
  LOCAL Dateiname
  LOCAL Bs

  { Rauskriegen welches BS}

  INQ_ENV 10
  LET Bs (INQ 4)
  IF(Bs=2)
  	LET Dateiname ('/tmp/Arbeitsdatei_' + STR(dateizaehler) + '.mi')
  ELSE_IF(Bs=7)
	LET Dateiname ("C:\temp\Arbeitsdatei_" + STR(dateizaehler) + ".mi")
  END_IF
  LET Dateizaehler (Dateizaehler+1)
  STORE ALL DEL_OLD Dateiname
  IF(Dateizaehler>6)
  	LET Dateizaehler 1
  END_IF
END_DEFINE