2-70 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 Beschreibung Das SEQMAX Dienstprogrammfunktion holt die gegenwärtige maximale Länge von gegeben gesprungen zurück oder unbegrenzte Reihenfolge. Im Fall von einer gesprungenen Reihenfolge, würde dieses auf eingestellt gesprungene Größe. In den unbegrenzten Reihenfolgen ist dieses mindestens die Größe der Anfangszahl von Elemente erklärt für die unbegrenzte Reihenfolge (z.B., durch SEQALOC Das Heraus Parametermaximum sollte als ÖRTLICH FESTGELEGTES BIN(31) gespeichert werden variabel. An Verwendet Worden Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: ! Ausnahmen Ein BAD_SEQ Ausnahme wird zurückgebracht, wenn ein ungültiger Zeiger an SEQMAX geliefert wird . Beispiel myseq_ARGS des dcl 1 STIMMTEN überein, 3 Resultat, result_seq 5 PTR, result_BUF 5 örtlich festgelegtes bin(31); DCL USEQLONG_TC CHAR(06) INIT('S{l}, 0 '); DCL MYSEQ_maxLENGTH ÖRTLICH FESTGELEGTES BIN(31) init(0); ... ANRUF SEQALOC(MYSEQ_ARGS.RESULT.RESULT_SEQ, 25, useqlong_tc, length(useqlong_tc)); WENN CHECK_ERRORS('SEQALOC ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; SEQMAX(MYSEQ_ARGS.RESULT.RESULT_SEQ, myseq_length); ANRUF CHECK_ERRORS('SEQMAX '); MAXIMALE REIHENFOLGENCLänge DISPLAY('INITAL = '||MYSEQ_LENGTH); 2,16,33 SEQSET Zusammenfassung SEQSET(PTR, /* IN: Reihenfolgendaten-PTR*/ ÖRTLICH FESTGELEGTES BIN(31), /* IN: Elementzahl*/ PTR); /* IN: addr(seq_buffer)*/ // Speicher die Daten in das element_numberelement von // eine unbegrenzte Reihenfolge.