<!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body>
Liebe Leser und Leserinnen der TUSTEP-Liste,<br>
<br>
es ist mir nun erfolgreich gelungen eine Batch-Datei als
Systemkommando einzurichten, nochmals vielen Dank an Herrn Sonder.<br>
<br>
Das aufrufende Programm legt in einer Datei <font
face="Courier New, Courier, monospace">czeile.txt</font> eine
Kommandozeile ab, in meinem Fall<br>
z.B. <font face="Courier New, Courier, monospace">fmain,pa=n2f1'53'62,ke=?</font><br>
<br>
<font face="Courier New, Courier, monospace">[fmain</font> ist mein
Satzprogramm, das mit den Parametern <font
face="Courier New, Courier, monospace">n2f1</font> (Kapitel des
Buchs) und <font face="Courier New, Courier, monospace">53'62</font>
(erste und letzte Seite) aufgerufen werden soll. Dabei ist <font
face="Courier New, Courier, monospace">ke=?</font> das interne
Kennzeichen, mit dem das Satzprogramm die Parameter ausliest.]<br>
<br>
Das der Batch-Datei <font face="Courier New, Courier, monospace">czeile.bat</font>
zugrunde liegende Skript lautet wie folgt:<br>
<br>
<font face="Courier New, Courier, monospace">#makro<br>
$$ MODE TUSCRIPT, {}<br>
<br>
-- Kommandozeile lesen und ausführen<br>
-- =================================<br>
<br>
datei = "czeile.txt"<br>
<br>
ERROR/STOP OPEN (datei,READ,-STD-)<br>
ACCESS q: READ/RECORDS/UTF8 $datei s, line<br>
LOOP/999999<br>
READ/NEXT/EXIT q<br>
cmd = line<br>
ENDLOOP<br>
ENDACCESS/PRINT q<br>
<br>
mac = EXTRACT(cmd,0,":,:")<br>
<br>
MODE DATA<br>
#an,{mac}<br>
#tue,{cmd}<br>
*eof </font> <br>
<br>
Mit <font face="Courier New, Courier, monospace">EXTRACT </font>wird
der Name des Satzprogramms aus der Kommandozeile extrahiert und
schliesslich angemeldet.<br>
<br>
Das Ganze hat jedoch einen Schönheitsfehler, von dem ich im nächsten
Listenbeitrag berichte.<br>
<br>
Beste Grüsse<br>
<br>
Urs Leo Gantenbein<br>
<div class="moz-signature">-- <br>
<b>Urs Leo Gantenbein, Dr. med. M. Sc. ETH</b><br>
Zurich Paracelsus Project, University of Zurich<br>
Ackeretstrasse 16, CH-8400 Winterthur, SWITZERLAND<br>
<a href="https://www.paracelsus.uzh.ch/">www.paracelsus.uzh.ch</a><br>
<a href="https://orcid.org/0009-0009-0515-4491/">ORCID-iD:
0009-0009-0515-4491</a><br>
<br>
Research Affiliate:<br>
Paleopathology and Mummy Studies Group<br>
Institute of Evolutionary Medicine, University of Zurich<br>
<a href="https://www.iem.uzh.ch/">www.iem.uzh.ch</a><br>
Institute of Swiss Reformation History, University of Zurich<br>
<a href="https://www.irg.uzh.ch/">www.irg.uzh.ch</a><br>
</div>
</body>
</html>