COBOL, das Zusätzliche Programme Juni 1999 Datatype Abbildet 1-25 1 Beschreibung Die Hilfsfunktion SEQSET speichert den gegenwärtigen Inhalt des Datenbereichs in Reihenfolge. Wenn die erbetene Elementzahl bereits besteht, wird sie überschrieben. Wenn die undurchlässige Reihenfolgenart nicht zugeteilt worden ist, wird eine CORBA-Ausnahme angehoben. Wenn die undurchlässige Reihenfolge gesprungen wird und die erbetene Elementzahl ist grösser als die gegenwärtige maximale Größe, wird eine CORBA-Ausnahme angehoben. Beispiel KAPUTEL "ARBEITSSPEICHER". Beispiel-Vektor-Reihenfolge 01. VEKTOR 03 Comp-1. 03 Vektor-folgend ZEIGER. 01 Element-numerisch ABBILDUNG 9(10) BINÄR. Folgend-Maximum 01 ABBILDUNG 9(10) BINÄR. . . . PROZEDURTEIL. . . . ANRUF "SEQMAX" VERWENDEND Vektor-folgend Folgend-Maximum FÜHREN Sie DAS VERÄNDERN Element-numerisch VON 1 DURCH 1 Durch BIS Element-numerisches > Folgend-Maximum FÜHREN Sie Prozess-init-Reihenfolge-Eintragung Durch BENENNEN SIE "VERWENDENDES SEQSET" Vektor-folgend Element-numerisch VEKTOR Ende-führen Sie durch . . . 1,15,14 STRFREE Zusammenfassung Gibt eine Zeichenkette frei. STRFREE(IN-ZeichenketteUndurchlässig-Zeichenkette-Art) Beschreibung Die Hilfsfunktion STRFREE gibt eine Zeichenkette frei. Wenn die undurchlässige Zeichenketteart nicht zugeteilt worden ist, wird das STRFREE ignoriert.