Beispiel: Translator (Ausschnitt)

Parse Arg listdd inclptr .

/* Listing auf listdd untersuchen */
/* inclname. Membernamen der Includes */
/* incltype. SCLM-Types der Includes */

x = Storage(d2x(inclptr), 4,,
                      Right(d2c(inclname.0), 4))
inclptr = inclptr + 4
Do i = 1 To inclname.0
  x = Storage(d2x(inclptr), 16,,
             Left(incltype.i, 8)Left(inclname.i, 8))
  inclptr = inclptr + 16
  End

Vorherige Folie Nächste Folie Zurück zur ersten Folie Graphik-Version anzeigen

Notes:

Der Ausschnitt aus der REXX-Prozedur READINCL enthält nur die für das SCLM relevanten Teile. Insbesondere ist das Parsen der Umwandlungsliste nicht abgebildet.

Die beiden Parameter sind die aus der Translatordefinition übergebenen Informationen zur Umwandlungsliste (DD-Name listdd) und der Zeiger auf die Liststruktur. Der Zeiger auf die Liststruktur ist eine 8 Zeichen breite, Dezimalzahl, die die Position des Listanfangs im Speicher enthält.

Nach dem Parsen der Liste muss die Struktur wie folgt gefüllt werden:

4 Bytes: Anzahl der Includes als Binary-Integer

je 16 Bytes: SCLM-Type und Membername für jedes Include

In der obigen Prozedur wird das mit Hilfe der REXX-Function Storage gemacht, die direkt auf den Speicher zugreifen kann.