~~~~~~~~~~~~~~~~~~~~~~ Beispiel 1 ~~~~~~~~~~~~~~~~~~~~~~

Table mit Ausgabe Index:

tmpColl = .table ~new
tmpColl["Versuch1"] = "V1"
tmpColl ~"[]="("V2", "V2_index")
tmpColl ~~PUT("V3", "V2_index" ) ~~PUT("V4", "V4_index")
SAY tmpColl~string":"
DO Laufvariable OVER tmpColl
SAY "["Laufvariable"]
END

Table mit Ausgabe Index + Item:

tmpColl = .table ~new
tmpColl["Versuch1"] = "V1"
tmpColl ~"[]="("V2", "V2_index")
tmpColl ~~PUT("V3", "V2_index" ) ~~PUT("V4", "V4_index")
SAY tmpColl~string":"
tmpSupp = tmpColl~Supplier
Do While TmpSupp~Available
SAY "index ["tmpSupp~Index"] item["tmpSupp~Item"]"
tmpSupp~Next
END

~~~~~~~~~~~~~~~~~~~~~~ Beispiel 2 ~~~~~~~~~~~~~~~~~~~~~~

Internetausflug = .OLEObject~New("InternetExplorer.Application")
Internetausflug ~Width = 500
Internetausflug ~Height = 400
Say "current dimensions of Internetausflug are:" Internetausflug ~Width "by" Internetausflug ~Height
Internetausflug ~Width = 250
Internetausflug ~Height = 200
Internetausflug ~Visible = .True
Internetausflug ~Navigate("https://www.wu.ac.at")
Call SysSleep 10
Internetausflug ~Navigate("https://wi.wu.ac.at/rgf/wu/lehre/slides/BusinessProgramming")
Call SysSleep 5
Internetausflug ~quit

-- Problem: ��ffnet WU Seite viermal und geht nie weiter zur 2. Website - Fehlermeldung

REXXerr>org.rexxla.bsf.engines.rexx.RexxException: BSF4ooRexx/routine/jniRexxRunProgram(), error 9:
REXXerr>       *-* Compiled method "UNKNOWN" with scope "OLEObject".
REXXerr>Error 92 running testcode.code line 10:  OLE error.
REXXerr>Error 92.901:  An unknown OLE error occurred (HRESULT=800706BA).

-- nochmaliger Versuch mit Kopie des Folienbeispiels, nur ibm Seite mit WU-Seite ersetzt. --> gleicher Fehler

myIE = .OLEObject~New("InternetExplorer.Application")
myIE~Width = 1000
myIE~Height = 800
Say "current dimensions of IE are:" myIE~Width "by" myIE~Height
myIE~Width = 1280
myIE~Height = 1024
myIE~Visible = .True
myIE~Navigate("https://www.wu.ac.at")
Call SysSleep 10
myIE~Navigate("https://www.rexxla.org/events")
Call SysSleep 10
myIE~quit