[Tustep-Liste] #ko | Compile ?

[Thomas Kollatz]

Lieber Herr Seck,
sie haben recht, mein Makro tut nicht, was Herr Moser wollte, aber  
das muss natürlich nicht so bleiben.
Anbei ein Makro das ungefähr dasselbe tut, was ihr #ko macht, in der  
Zieldatei steht anschließend:

<TagNeu id='A' />Adam, Eva
Appel, Norbert
<TagNeu id='B' />Berndt, Dieter
Brandel, Josef
Buddel, Horst
<TagNeu id='C' />Caesar, Julius
Christen, René
<TagNeu id='D' />David, Hans
Drosselbart, König

Das Makro folgt und ich ergreife die Gelegenheit eine Frage  
anzuschliessen:
Wie müsste ich das Skript umgestalten, damit ich Compile - Endcompile  
verwenden kann?

#ma
$$! quelle=nliste, ziel=tmp.1
$$-
$$ MODE TUSCRIPT

- Spezifikationen prüfen
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"

SET ALT_AB=""
- Satzweise kopieren
ACCESS q: READ       /RECORDS "{quelle}" sn.zn/un, text
ACCESS z: WRITE/ERASE/RECORDS  "{ziel}"  sn.zn/un, text
- Daten kopieren
LOOP/999999
     READ/NEXT/EXIT q
   - Anfangsbuchst. der eingelesenen Zeile wird auf Variable AB gelegt
SET AB = EXTRACT (text,0,2)
IF (AB.ne.ALT_AB) THEN
SET tagneu="<TagNeu id='{AB}' />"
SET text = CONCAT (tagneu,text)
ENDIF
SET ALT_AB= VALUE (AB)
     WRITE z
ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
*eof