September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-47 2 Beispiel DCL 1 EXAMPL_TEMP_ANY_ARGS STIMMTE ÜBEREIN, PTR MIT 3 RESULTATEN; ... ANRUF ANYGET(EXAMPL_TEMP_ANY_ARGS.RESULT, addr(ws_short)); ... ANRUF ANYFREE(EXAMPL_TEMP_ANY_ARGS.RESULT); 2,16,4 ANYGET Zusammenfassung ANYGET(PTR, /* IN: anyInfoBlock*/ PTR); /* IN: addr(anyData)*/ // Extraktdaten aus IRGENDEINEM heraus Beschreibung Das ANYGET Dienstprogrammfunktion liefert Zugang zu den Daten in IRGENDWIE . Sie ist Verantwortlichkeit des Programmierers, die Art von IRGENDWIE zu überprüfen und liefern Sie einen Datenpuffer groß genug den Inhalt von IRGENDWIE empfangen . Das TYPEGET Funktion kann verwendet werden die Art von IRGENDWIE extrahieren . Merken Sie, daß es die Adresse von anyData ist das wird zu ANYGET geführt . Beispiel DCL 1 EXAMPL_TEMP_ANY_ARGS STIMMTE ÜBEREIN, PTR MIT 3 RESULTATEN; DCL WS_SHORT ÖRTLICH FESTGELEGTES BIN(15); DCL WS_LONG ÖRTLICH FESTGELEGTES BIN(31); ... ANRUF TYPEGET(EXAMPL_TEMP_ANY_ARGS.RESULT, example_type_code, 1); SELECT(EXAMPL_TYPE_CODE); WHEN(CORBA_TYPE_SHORT) ; ANRUF ANYGET(EXAMPL_TEMP_ANY_ARGS.RESULT, addr(ws_short)); DISPLAY('SHORT VON IRGENDWELCHEN IST '||WS_SHORT); ENDE;