2-48 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 WHEN(CORBA_TYPE_LONG) ; ANRUF ANYGET(EXAMPL_TEMP_ANY_ARGS.RESULT, addr(ws_long)); DISPLAY('LONG VON IRGENDWELCHEN IST '||WS_LONG); ENDE; ANDERNFALLS DISPLAY('UNSUPPORTED TIPPEN IRGENDWELCHE ') EIN; ENDE; 2,16,5 ANYSET Zusammenfassung ANYSET(PTR, /* IN: anyInfoBlock*/ PTR); /* HERAUS: addr(anyData)*/ // Einsatzdaten in IRGENDEIN Beschreibung Das ANYSET Dienstprogrammfunktion speichert die gelieferten Daten in IRGENDWIE . ANYSET teilt zu der Raum angefordert für die IRGENDWELCHE und das ORB besitzt das zugeteilte Gedächtnis. Merken Sie, daß es die Adresse des anyData ist das wird zu ANYSET geführt . Beispiel DCL 1 EXAMPL_TEMP_ANY_ARGS STIMMTE ÜBEREIN, PTR MIT 3 RESULTATEN; ... WS_SHORT=12; EXAMPL_TYPE_CODE=EXAMPLE_TYPE_SHORT; ANRUF-Art SET(EXAMPL_TEMP_ANY_ARGS.RESULT, example_type_code, 1); ANRUF ANYSET(EXAMPL_TEMP_ANY_ARGS.RESULT, addr(ws_short)); 2,16,6 MEMALOC Zusammenfassung MEMALOC(PTR, /* HERAUS: Zeiger zu memblock*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: Menge von memreq'd*/ // teilt Gedächtnis zu