September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-67 2 ANRUF SEQLEN(EXAMPL_SEQ_ARGS.RESULT.RESULT_SEQ, num_seq_ele); TUN SIE ELEMENT_NUM = 1 ZU NUM_SEQ_ELE; BENENNEN Sie SEQGET(RESULT_SEQ, element_num, addr(result_buf)); WENN CHECK_ERRORS('SEQGET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; BENENNEN SIE PROCESS_SEQUENCE_ENTRY; ENDE; 2,16,29 SEQINIT Zusammenfassung SEQINIT(PTR, /* HERAUS: Reihenfolgendaten-PTR*/ CHAR(*), /* IN: Reihenfolgentypecode*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: folgendes typecode len */ // initialisiert eine gesprungene Reihenfolge Beschreibung SEQINIT wird initialisieren eine gesprungene Reihenfolge verwendet. Sie stellt das Maximum und den Strom ein Länge zur Größe der gesprungenen Reihenfolge und des Reihenfolgentypecode zu der lieferte zu SEQINIT . Der Puffer wird auf NULL eingestellt. Wenn der Benutzer nur Teil von füllen möchte Reihenfolge, SEQLSET kann verwendet werden, anzuzeigen, wieviele Einzelteile der Reihenfolge haben gefüllt. Es ist wichtig, zu merken, daß es die Reihenfolge ist typecode, das sein muß geliefert an SEQINIT . An Verwendet Unbegrenzte Reihenfolgen: " Gesprungene Reihenfolgen: ! Ausnahmen Wenn ein unzulässiges typecode zu SEQINIT geführt wird wird eine Systemausnahme angehoben. Wenn initialisierter Reihenfolgendatenbereich wird innen, der vorhandene Datenbereich wird überschritten zurück geführt. Beispiel myseq_ARGS des dcl 1 AUSGERICHTET, 3 RESULTAT, 5 RESULT_seq PTR, 5 RESULT_DAT(10) örtlich festgelegtes bin(31); DCL SEQLONG10_TC CHAR(07) INIT('S{l}, 10 '); ... ALLOC POD_STATUS_INFORMATION SET(POD_STATUS_PTR); ANRUF PODSTAT(POD_STATUS_PTR); ANRUF SEQINIT(MYSEQ_ARGS.RESULT.result_seq, seqlong10_tc,