2-76 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 ... ANRUF TYPEGET(EXAMPL_TEMP_ANY_ARGS.RESULT, EXAMPL_TYPE_CODE, EXAMPL_TYPE_CODE_LENGTH); WENN CHECK_ERRORS('TYPEGET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; SELECT(EXAMPL_TYPE_CODE); WHEN(CORBA_TYPE_SHORT) ; BENENNEN Sie ANYGET(EXAMPL_TEMP_ANY_ARGS.RESULT, addr(ws_short)); WENN CHECK_ERRORS('ANYGET ') ^ = COMPLETION_STATUS_YES DANN RÜCKKEHR; DISPLAY('SHORT VON IRGENDWELCHEN IST '||WS_SHORT); ENDE; WHEN(CORBA_TYPE_LONG) ; BENENNEN Sie ANYGET(EXAMPL_TEMP_ANY_ARGS.RESULT, addr(ws_long)); WENN CHECK_ERRORS('ANYGET ') ^ = COMPLETION_STATUS_YES DANN RÜCKKEHR; DISPLAY('LONG VON IRGENDWELCHEN IST '||WS_LONG); ENDE; ANDERNFALLS DISPLAY('UNSUPPORTED TIPPEN IRGENDWELCHE ') EIN; ENDE; 2,16,42 GESETZT Zusammenfassung TYPESET(PTR, /* IN: addr(anyInfoBlock)*/ CHAR(*), /* IN: typecode*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: typecodelängen*/ // Sätze der Artname von IRGENDEINEM Beschreibung GESETZT Dienstprogrammfunktion stellt die Art von IRGENDWIE ein zum gelieferten typecode. Dieses wenn vor dem Benennen von ANYSET getan Sie seien als ANYSET benutzt das gegenwärtige typecode Informationen zum IRGENDWIE Einsetzen der Daten in . Beispiel DCL 1 EXAMPL_TEMP_ANY_ARGS STIMMTE ÜBEREIN, RESULTAT 3 PTR; ... WS_SHORT=12; EXAMPL_TYPE_CODE=CORBA_TYPE_SHORT;