COBOL, das Zusätzliche Programme Juni 1999 Datatype Abbildet 1-29 1 1,15,19 TYPEGET Zusammenfassung Extraktartname aus IRGENDEINEM heraus. TYPEGET(IN irgendwie Undurchlässig-Irgendein-Art, AUS < PIC X > < interface>-TYPE-CODE) Beschreibung Die Hilfsfunktion TYPEGET bringt den typencode von IRGENDWIE zurück. Ein spezifischer Art-Codetextbereich wird für jede Schnittstelle innerhalb des IDL erzeugt erzeugte Kopienakte. TYPEGET wird verwendet, um die Art von IRGENDWIE zu erhalten, damit der korrekte Puffer zu geführt wird die ANYGET-Funktion. Wenn undurchlässig, ist irgendeine Art nicht, eine CORBA-Ausnahme wird angehoben initialisiert worden. Beispiel 01 Beispiel-mein-irgendwelche ZEIGER. 01 W-kurz ABBILDUNG 9(05) BINÄR. 01 W-lang ABBILDUNG 9(10) BINÄR. . . . PROZEDURTEIL . . . ANRUF "TYPEGET" VERWENDEN Beispiel-mein-irgendein Beispiel-Art-Code WERTEN SIE ZUTREFFENDES AUS WENN Beispiel-Art-kurz ANRUF "ANYGET" VERWENDEND Beispiel-mein-irgendein W-kurz Die ANZEIGE ", die VON IRGENDWELCHEN KURZ Ist, IST "W-kurz WENN Beispiel-Art-lang ANRUF "ANYGET" VERWENDEND Beispiel-mein-irgendein W-lang ANZEIGE "LANG VON IRGENDWELCHEN IST" W-lang WENN ANDERES DIE UNGESTÜTZTE ANZEIGE "TIPPEN IRGENDWELCHE" EIN Ende-werten Sie aus