ErstelleIDNListe

function ErstelleIDNListe() {

	var intMaxSetSize = 1000;
	var intSetSize;
	var intSetNum;
	var strIDN;
	var strCommand;
	var dnbPrompt = utility.newPrompter();
	var fileOutput = Components.classes["@oclcpica.nl/scriptoutputfile;1"]
						.createInstance(Components.interfaces.IOutputTextFile);

	var strFileName = "IDN-Liste_" + __makeDate() + ".txt";
	var msg = dnbPrompt.prompt("Funktion: ErstelleIDNListe","Bitte geben Sie einen Dateinamen ein.\nAnsonsten wird der angezeigte Dateiname verwendet!"
								+ "\nIDNs werden in einer bestehenden Liste ergänzt!",strFileName,null,null);
	if (msg == true)	{
		strFileName = dnbPrompt.getEditValue();
	} else {
		//__dnbMeldung("ErstelleIDNListe","Die Funktion wird abgebrochen!","");
		return false;
	}

	intSetSize = application.activeWindow.getVariable("P3GSZ");
	intSetNum = application.activeWindow.getVariable("P3GSE");

	if (intSetSize > 0) {
		if (intSetSize > intMaxSetSize)  {
			msg = __dnbConfirm("ErstelleIDNListe","Bei dieser Funktion dürfen nicht mehr als " + intMaxSetSize + " IDNs verarbeitet werden.\n" +
								"Die Verarbeitungsdauer beträgt bei 1000 Datensätzen ca. 5 Minuten, je nach aktueller Systemlast!\n" +
								"Mit OK werden die ersten " + intMaxSetSize + " Datensätze verarbeitet, mit Abbrechen wird die Funktion beendet!\n" +
								"Bitte wenden Sie sich an den IT-Service wenn umfangreichere Listen erstellt werden sollen!");
			if (msg == true) {
				intSetSize = intMaxSetSize;
			} else {
				return false;
			}
		}
		if (fileOutput.createSpecial("ProfD", strFileName)) {
			for (var i=1;i<=intSetSize;i++) {
				strCommand = "s s" + intSetNum + " " + i;
				application.activeWindow.command(strCommand,false);
				strIDN = application.activeWindow.getVariable("P3GPP");
				//application.messageBox("",strIDN,"");
				fileOutput.writeLine(strIDN);
			}
			strCommand = "s s" + intSetNum + " 1 k";
			application.activeWindow.command(strCommand,false);
			__dnbMeldung("Funktion: ErstelleIDNListe","Die gewünschte Liste wurde erstellt!\n\n" +
													  "Dateiname: " + strFileName + "\n" +
													  "Anzahl der IDNs: " + intSetSize,"");
		} else {
			__dnbFehler("ErstelleIDNListe","Fehler beim Anlegen der IDN-Datei!","");
			return false;
		}
	} else {
		__dnbFehler("ErstelleIDNListe","Keine Trefferliste vorhanden?","");
	}
	fileOutput.close();

}