Diese Funktion erstellt anhand des angezeigten Treffersets eine IDN-Liste im benutzerspezifischen Verzeichnis. Außer dem angebotenen Dateinamen mit Tagesdatum kann auch ein eigener Dateiname vergeben werden. Bei mehrfachem Aufruf werden die IDNs an die bestehende Datei angehängt. Es werden nicht mehr als 1000 Datensätze verarbeitet. Verfügt der Trefferset über mehr als 1000 Datensätze erscheint ein Hinweis und es wird eine IDN-Liste mit den ersten 1000 Datensätzen gebildet.

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();

}