2-64 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: " Ausnahmen Wenn die Funktion ausfällt, wenn sie genügenden Raum für die Reihenfolge zuteilt, dann eine Verteilung Ausnahme wird angehoben. Beispiel myseq_ARGS des dcl 1 STIMMTEN überein, 3 RESULTAT, 5 RESULT_seq PTR, 5 RESULT_BUF örtlich festgelegtes bin(31); DCL USEQLONG_TC CHAR(06) INIT('S{l}, 0 '); ... ALLOC POD_STATUS_INFORMATION SET(POD_STATUS_PTR); ANRUF PODSTAT(POD_STATUS_PTR); ANRUF SEQALOC(MYSEQ_ARGS.RESULT.RESULT_SEQ, 25, useqlong_tc, length(useqlong_tc)); WENN CHECK_ERRORS('SEQALOC ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,26 SEQDUPL Zusammenfassung SEQDUPL(PTR, /* IN: Reihenfolgendaten-PTR*/ PTR); /* HERAUS: Daten-PTR* des dupl folgendes/ // Duplikate ein unbegrenzter Reihenfolgenkennblock Beschreibung Das SEQDUPL Funktion verursacht eine Kopie einer unbegrenzten Reihenfolge. Die neue Reihenfolge hat die gleichen Attribute der ursprünglichen Reihenfolge. Die Reihenfolgendaten kopieren in a eben zugeteilter Puffer. Es ist die Verantwortlichkeit des Programmierers, dieses Gedächtnis freizugeben. An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: " Beispiel DCL 1 EXAMPL_SEQ_ARGS STIMMTE ÜBEREIN, 3 RESULTAT, 5 RESULT_SEQ PTR,