COBOL, das Zusätzliche Programme Juni 1999 Datatype Abbildet 1-19 1 ANRUF "ANYSET" VERWENDEN Beispiel-mein-irgendein W-kurz . . . VERWENDEN DES ANRUFS "ANYFREE" Beispiel-mein-irgendein 1,15,4 ANYSET Zusammenfassung Setzt Daten in IRGENDWIE ein. ANYSET(IN irgendwie Undurchlässig-Irgendein-Art, < in der Art > Irgendein-Daten) Beschreibung Die ANYSET-Funktion speichert die gelieferten Daten in IRGENDWIE. Benutzer müssen die Art von IRGENDWIE verwenden zuerst einstellen GESETZT, bevor sie ANYSET benennen. Wenn keine vorhergehende Art eingestellt worden ist, wird eine CORBA-Ausnahme angehoben. Die Ablage innerhalb der IRGENDWELCHER wird durch den ANYSET-Anruf zugeteilt und ist besessen durch das ORB. Seitliche Benutzer des Klienten sind für das Benennen von ANYFREE, um eine IRGENDEINE Art freizugeben verantwortlich daß sie entweder einmal sie senden oder empfangen, haben sie beendet. Beispiel 01 Beispiel-mein-irgendwelche ZEIGER. . . . BEWEGUNG 12 ZU W-kurz GESETZTES Beispiel-Art-kurzes ZU ZUTREFFEND "GESETZTES" VERWENDEN DES ANRUFS Beispiel-mein-irgendein Beispiel-Art-Code-Länge Beispiel-Art-Code ANRUF "ANYSET" VERWENDEN Beispiel-mein-irgendein W-kurz 1,15,5 OBJDUP Zusammenfassung Kopiert einen Gegenstandhinweis. OBJDUP(IN-Zeiger Gegenstand-Hinweis, AUS Zeiger Kopieren-Gegenstand-Hinweis)