September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-51 2 ALLOC POD_STATUS_INFORMATION SET(POD_STATUS_PTR); ANRUF PODSTAT(POD_STATUS_INFORMATION); ANRUF STRSET(IOR_NAME, object_name, length(object_name)); ANRUF STRÒBJ(IOR_NAME, ior_obj_ref); OBJECT_NAME = ' ';/* STELLEN SIE GEGENSTANDCZeichenkettecZurück */ BENENNEN SIE STRFREE(IOR_NAME); GEBEN SIE IOR-ZEICHENKETTECFrei */ BENENNEN Sie OBJ2STR(IOR_OBJ_REF, ior_string); BENENNEN Sie STRGET(IOR_STRING, object_name, length(object_name)); NAME DISPLAY('THE STRINGIFIED IST '||OBJECT_NAME); ENDENCBeispiel; 2,16,10 OBJGTID Zusammenfassung OBJGTID(PTR-,/* IN: Gegenstandhinweis */ CHAR(*),/* HERAUS: Zeichenkette des Gegenstandes Identifikation */ ÖRTLICH FESTGELEGTES BIN(31));/* IN: Zeichenkettelänge */ // holt den Gegenstand Identifikation von einem IOR zurück Beschreibung Diese Funktion holt Identifikation des Gegenstandes von einem gegebenen Gegenstand zurück. Ausnahmen Eine Verstümmelungausnahme wird geworfen, wenn der Parameter des Gegenstandes Identifikation nicht genug groß ist die volle Länge der Zeichenkette des Gegenstandes Identifikation halten. Beispiel DCL GRID_OBJ PTR; DCL OBJ_ID CHAR(256) INIT(' '); . . . ANRUF OBJGTID(GRID_OBJ, obj_id, 3); WENN CHECK_ERRORS('OBJGTID ') ^ = COMPLETION_STATUS_YES DANN RÜCKKEHR; GESETZTER GEGENSTAND Identifikation DES ZEILENSPRUNGES LIST('THE FÜR RASTERFELD IST ', obj_id);