#! /home/invep/src/invep/invep
! SearchExport.obas (c) Andre Koppel Software 2012
! Das Script sucht im Gesamtdatenbestand nach allen
! Verfahren, die den Namensbestandteil "test" enthalten.
! Nachdem die Suche durchgeführt wurde, werden die
! Ergebnisspalten 5 bis 7 in die Datei mit dem Namen
! obas.csv im Heimatverzeichnis des Anwenders exportiert
! Dieses Programm sollte mit F3 gestartet
! werden.
DIMOPTION ON
DIMOPTIONBASE 1
DEF POOL 1000000
INIT VARSPACE
DIM Matrix(3)

a$="test*"
SSWIDGET "DLG007_DSuchtext" a$
WIDCLICK "DLG007_Dsuchen"

! wir wissen nicht, wie lange die Suche dauert, also
! warten wir bis INVEP wieder idle ist. Wir warten
! jedoch maximal 20 Sekunden
IF IDLEWAIT(20)<=0 THEN
   MESSAGE "Abbruch der Suche"
   TERMINAL
END IF

! Jetzt lesen wir die Ergebnisliste in die Matrix
! mit dem Namen Matrix aus. Wir haben die Matrix bereits
! an Anfang dieses Codes dimensioniert. Die WIDMXREAD-
! Anweisung führt ggf. eine Redimensionierung durch
name$="DLG007_Dliste"
MAT Matrix=WIDMXREAD name$ ; "5#6#7"

! Wir exportieren das Ergebnis in unser Heimatverzeichnis
! Die führende Tilde wird automatisch durch unser
! Heimatverzeichnis ersetzt
MAT EXPORT Matrix TO "~obas.csv"