September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-37 2 MEMALOC(PTR, /* HERAUS: Zeiger zu memblock*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: Menge von memreq'd*/ // teilt Gedächtnis zu MEMFREE(PTR); /* IN: Zeiger zu memblock*/ // gibt Gedächtnis frei OBJ2STR(PTR, /* IN: Gegenstandbezugs*/ CHAR(*), /* HERAUS: Ior-Bezugs*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: Ior-Bezugslängen*/ // Rückkehr ein interoperable Gegenstandhinweis (IOR) OBJGTID(PTR, /* IN: Gegenstandbezugs*/ CHAR(*), /* HERAUS: Zeichenkette* des Gegenstandes Identifikation/ ÖRTLICH FESTGELEGTES BIN(31)); IN: Zeichenkettelängen*/ // holt den Gegenstand Identifikation von einem IOR zurück OBJNEW(CHAR(*), /* IN: Bedienernamen*/ CHAR(*), /* IN: Schnittstellennamen*/ CHAR(*), /* IN: * des Gegenstandes Identifikation/ PTR); /* HERAUS: Gegenstandbezugs*/ // verursacht einen einzigartigen Gegenstandhinweis OBJRIR(PTR, /* HERAUS: object_ref*/ CHAR(*)); /* IN: desired_service*/ // Rückkehr ein Gegenstandhinweis auf durch den einem Gegenstand a // Service wie der nennenservice können verwendet werden ORBARGS(CHAR(*), /* IN: argzeichenkette*/ ÖRTLICH FESTGELEGTES BIN(31), /* IN: argzeichenkette len */ CHAR(*), /* IN: ORB-Namen*/ ÖRTLICH FESTGELEGTES BIN(31)) /* IN: ORB-Name len */ // initialisiert einen Klienten- oder Bedieneranschluß zu einem ORB MEMDBUG(PTR, /* IN: Zeiger zu Gedächtnis*/ ÖRTLICH FESTGELEGTES BIN(15), /* IN: Größe von Speicherausdruck*/ CHAR(*), /* IN: erläuterndes Textstr */ ÖRTLICH FESTGELEGTES BIN(15)); IN: len von Textfolge*/ // geben Sie einen formatierten Speicherausdruck für den spezifizierten Block von aus Gedächtnis PODERR(CHAR(*), /* IN: Ausnahmezeichenkette*/ PTR); /* IN: addr(exception_buf)*/ // Signale eine Benutzerausnahme des ORB PODEXEC(PTR, /* IN: Gegenstandbezugs*/ CHAR(*), /* IN: Betriebsname */ PTR, /* INOUT: addr(op_buffer)*/ PTR); /* HERAUS: addr(user_exc_blk)*/ // ruft einen Betrieb auf dem Gegenstand hervor