2-66 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 5 RESULT_seq PTR, 5 RESULT_Buf örtlich festgelegtes bin(31); DCL USEQLONG_TC CHAR(06) INIT('S{l}, 0 '); ... ANRUF SEQALOC(MYSEQ_ARGS.RESULT.RESULT_SEQ, 25, useqlong_tc, length(useqlong_tc)); WENN CHECK_ERRORS('SEQALOC ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; ... Anruf seqfree(EXAMPL_MYSEQ.RESULT.RESULT_SEQ); 2,16,28 SEQGET Zusammenfassung SEQGET(PTR, /* IN: Reihenfolgendaten-PTR*/ ÖRTLICH FESTGELEGTES BIN(31), /* IN: Elementzahl*/ PTR); /* HERAUS: addr(seq_buffer)*/ // holt das element_numberelement einer unbegrenzten Reihenfolge zurück Beschreibung Das SEQGET Dienstprogrammfunktion liefert Zugang zu einem spezifischen Element von einem unbegrenzten Reihenfolge. Die Daten werden vom spezifizierten Element in den gelieferten Datenbereich kopiert (d.h., das ' seq_buffer '). An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: " Ausnahmen Eine Grenzausnahme wird geworfen, wenn ein Versuch, irgendein Element grösser zu erhalten gebildet wird als die gegenwärtige Länge der Reihenfolge. Beispiel DCL 1 EXAMPL_SEQ_ARGS STIMMTE ÜBEREIN, 3 RESULTAT, 5 RESULT_SEQ PTR, 5 RESULT_BUF HIN- UND HERBEWEGUNG DEC(6); DCL ELEMENT_NUM ÖRTLICH FESTGELEGTES BIN(31); DCL NUM_SEQ_ELE ÖRTLICH FESTGELEGTES BIN(31); ...