September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-65 2 5 RESULT_BUF HIN- UND HERBEWEGUNG DEC(6); DCL 1 EXAMPL_SEQ_2_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 MAX_SEQ_ELE ÖRTLICH FESTGELEGTES BIN(31); ... ANRUF SEQMAX(EXAMPL_SEQ_ARGS.RESULT.RESULT_SEQ, max_seq_ele); TUN SIE ELEMENT_NUMBER = 1 ZU MAX_SEQ_ELE; BENENNEN SIE PROCESS_INIT_SEQUENCE_ENTRY; BENENNEN Sie SEQSET(EXAMPL_SEQ_2_ARGS.RESULT_1.RESULT_SEQ, ELEMENT_NUM, Vektor); ENDE; ANRUF SEQDUPL(EXAMPL_SEQ_ARGS.RESULT_1.RESULT_SEQ, EXAMPL_SEQ_2_ARGS.RESULT_1.RESULT_SEQ); ... 2,16,27 SEQFREE Zusammenfassung SEQFREE(PTR)-;/* IN: Reihenfolgendaten-PTR*/ // gibt eine unbegrenzte Reihenfolge frei Beschreibung SEQFREE wird verwendet, die Ablage freizugeben, die einer Reihenfolge über zugewiesen wird SEQALOC und SEQINIT . Obacht sollte angewendet werden, um nicht zu versuchen, diesen Zeiger zu dereferenzieren, nachdem man ihn, als dieses freigegeben hat kann einen Laufzeitfehler ergeben. Es ist zu SEQFREE wichtig vom innersten genistet Reihenfolge zu den äußersten oder Gedächtnisleckstellen tritt infolgedessen auf. An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: " Beispiel myseq_ARGS des dcl 1 STIMMTEN überein, 3 RESULTAT,