[Tustep-Liste] Begriffsregister

[Kuno Schaelkle]

Sehr geehrter Herr Notz,

> Eine kleine Frage ist da noch: Ersetze ich jedes Quelle/Ziel mit
> meiner Quelle und meinem Ziel? - Und müssen das permanente Dateien
> sein?

Sie können das Makro als Segment in Ihre Makro-Datei
schreiben. Wenn Sie dabei z.B. den Segmentnamen REFAUFL
verwenden, können Sie danach das Makro mit
#$refaufl, quelldateiname, zieldateiname
aufrufen. Dabei können Sie permanente oder temporäre
Dateien angeben. Die Makro-Datei muss mit
#definiere,makrodatei
definiert worden sein.

Wenn Sie das Makro in eine Kommandofolge einfügen wollen,
schreiben Sie davor
#MAKRO
und dahinter
*eof
und ergänzen die erste Zeile wie folgt:
$$! quelle=quelldateiname, ziel=zieldateiname

Mit freundlichen Grüßen
Kuno Schälkle

>> ---------------------------------------------------------
>>
>> $$! quelle, ziel
>> $$-
>> $$ MODE TUSCRIPT
>>
>> SET status = CHECK (quelle, READ, TUSTEP)
>> ERROR/STOP "QUELLE: ", status
>>
>> SET status = CHECK (ziel, WRITE, TUSTEP)
>> ERROR/STOP "ZIEL: ", status
>>
>> SET status = UNIQUE (quelle, ziel)
>> ERROR/STOP "Datei ", status, " ist mehrfach angegeben"
>>
>> COMPILE
>>
>> ACCESS q: READ/RECORDS "{quelle}" sn.zn/un, zeile
>>
>> SET zeilen = *
>> LOOP/999999
>>   READ/IGNORE/EXIT q
>>   SET text = EXTRACT (zeile, |":<<re>>:", ":<</re>>:"|)
>>   SET refs = EXTRACT (zeile, ":<<rf>>:"|, |":<</rf>>:")
>>   SET refs = EXCHANGE (refs, ":<> :':")
>>   LOOP ref = refs
>>      SET zeile  = CONCAT (ref, " ", text)
>>      SET zeilen = APPEND (zeilen, zeile)
>>   ENDLOOP
>> ENDLOOP
>>
>> ENDACCESS/PRINT q
>>
>> SET zeilen = MIXED_SORT (zeilen)
>>
>> FILE/ERASE/PRINT "{ziel}" = zeilen
>>
>> ENDCOMPILE