September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-71 2 Beschreibung Das SEQSET Dienstprogrammfunktion speichert die gelieferten Daten in das erbetene Element von unbegrenzte Reihenfolge. Wenn die erbetene Elementzahl grösser als der Strom ist Länge, die Größe der Reihenfolge wird erhöht, um unterzubringen erbeten Element. Wenn das gegenwärtige maximale Element plus eins dann eingestellt wird, erhält die Reihenfolge neu zugeteilt, um die vergrößerte Reihenfolge zu halten. An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: " Ausnahmen Eine Ausnahme wird geworfen, wenn ein Versuch, irgendein Element grösser einzustellen als gebildet wird gegenwärtige Länge der Reihenfolge plus eine. Beispiel DCL 1 MYSEQ_ARGS STIMMTE ÜBEREIN, RESULTAT 3, 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(MYSEQ_ARGS.RESULT.RESULT_SEQ, max_seq_ele); TUN SIE ELEMENT_NUM = 1 ZU MAX_SEQ_ELE; BENENNEN SIE PROCESS_INIT_SEQUENCE_ENTRY; BENENNEN SIE SEQSET(MYSEQ_ARGS.RESULT.RESULT_SEQ, ELEMENT_NUM, ADDR(MYSEQ_ARGS.RESULT.RESULT_BUF)); WENN CHECK_ERRORS('SEQSET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; ENDE; 2,16,34 STRÒBJ Zusammenfassung STRÒBJ(PTR, /* IN: * der IOR-Zeichenkette (ungültig-beendet)/ PTR); /* HERAUS: Gegenstandbezugs*/ // verursacht einen Gegenstandhinweis von einem IOR Beschreibung Das OBJSET Dienstprogrammfunktion verursacht einen Gegenstandhinweis von einem IOR.