oclc-up.flx : Naechste Update-Datei f. OCLC-WorldCat erstellen
  2021-07-09  

  ACHTUNG : NUR VOR DER ERSTEN NUTZUNG:  
  Eigene COLLECTION-ID und SYMBOL hier korrekt einsetzen:
var "1234567"
ins $cid 
var "ABCDE"
ins $sym
  Alles andere geht automatisch:
   Es entsteht die naechste Datei vom Typ .updateN.mrc im eigenen Datenordner
   (N = naechste lfd. Nr.)

  zuerst naechste Dateinummer ermitteln.
  Liste der bisherigen Dateien:
var "dir /OD " D "*update*.mrc >xdat.txt"
dos
var Fxdat.txt
  letzte Zeile mit "update"
var (T"update")
  Nummer entnehmen, 1 addieren
z=
eval z+1
z=
  jetzt ist z die naechste Nummer

  weg mit der Dateinamensliste
del xdat.txt

var "Datei  ...update" z ".mrc erstellen. Ausführen?
yes
if not yes end

  Wir brauchen diesen Befehl:
  srch -dDbDir\cat_*.ald -r"#20 / #19 / #09 - #89w" -emarctxt=oclc-up.mrk
  d.h. Saetze ohne #89W werden rausgesucht und gewandelt
   es muss aber  #20 oder #19 oder #09 vorkommen, also keine Bestellsaetze etc.

  DOS-Befehl erstellen: (knifflig, weil -r mit "..." sein muss)
var P "srch -d" D B '_*.ald -r"#20 / #19 / #09 - #89w" -emarctxt=' D 'oclc-up.mrk'
  und ausfuehren:
dos

  .mrk -> .mrc wandeln,
  es entsteht z.B.  1234567.SYMBOL.update15.mrc, wenn 15 die naechste lfd. Nr. ist

var P "cmarcedit -make -s " D "oclc-up.mrk -d " D $cid "." $sym ".update" z ".mrc"
dos

  Erfolgsmeldung anzeigen und Hinweis zum Hochladen
var "Die Datei " D $cid "." $sym ".update" z ".mrc" n "kann zum OCLC-FTP hochgeladen werden"
sho iv
mes