September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-69 2 2,16,31 SEQLSET Zusammenfassung SEQLSET(PTR, /* IN: Reihenfolgendaten-PTR*/ ÖRTLICH FESTGELEGTES BIN(31)); IN: neue Länge von folgendem */ // Änderungen die Zahl Elementen in der Reihenfolge Beschreibung Das SEQLSET Dienstprogrammfunktion wird verwendet, um die Reihenfolge die Größe neu zu bestimmen. Das new_length von die Reihenfolge kann irgendeine Menge von 1 zur gegenwärtigen Länge der Reihenfolge plus eine sein (aber nicht größer als die maximale Länge für die Reihenfolge). Merken Sie das, wenn eine Reihenfolge ist kleiner gebildet, dann der Inhalt der Elemente grösser als die neue Länge von Reihenfolge sind unbestimmt. Diese Funktion kann für gesprungen worden verwendet werden und unbegrenzt Reihenfolgen. Die Funktion wird mit unbegrenzten Reihenfolgen im Allgemeinen für das Einschränken verwendet machen Sie zu einer Teilmenge der Gesamtreihenfolge zugänglich. An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: ! Ausnahmen Eine Grenzausnahme wird geworfen, wenn ein Versuch, irgendein Element grösser einzustellen gebildet wird als die gegenwärtige Länge der Reihenfolge plus eine (oder grösser als die maximale Länge definiert für die Reihenfolge). Wenn eine UNGÜLTIGE Reihenfolge zu SEQLSET geführt wird ein BAD_SEQ Ausnahme wird eingestellt. Beispiel DCL 1 EXAMPL_MYSEQ_ARGS STIMMTE ÜBEREIN, 3 RESULTAT, 5 RESULT_SEQ PTR, 5 RESULT_BUF HIN- UND HERBEWEGUNG DEC(6); DCL ELEMENT_NUMFIXED BIN(31); ... SEQLSET(EXAMPL_MYSEQ_ARGS.RESULT.RESULT_SEQ, 5); WENN CHECK_ERRORS('SEQLSET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,32 SEQMAX Zusammenfassung SEQMAX(PTR, /* IN: Reihenfolgendaten-PTR*/ ÖRTLICH FESTGELEGTES BIN(31)); /* HERAUS: Maximum len von Reihenfolgen*/ // Rückkehr die gesetzte Länge des Maximums der Reihenfolge