September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-79 2 Ausnahmen Eine Verstümmelungausnahme erhält, wenn die Länge der Quelle grösser ist, als gegeben angehoben Bestimmungsort. Beispiel /* dieses ist gelieferte Zeichenkette-Zeiger* PL/I unbegrenzte,/ DCL SRC_POINTER PTR; /* dieses ist die PL-/idarstellung von Zeichenkette*/ DCL DEST_WIDESTR WIDECHAR(64); DCL DEST_LEN ÖRTLICH FESTGELEGTES BIN(31) INIT(LENGTH(DEST_WIDESTR)); /* dieser WSTRGET-Anruf kopiert die Buchstaben in NAMEN*/ /* zum SUPPLIER_NAME */ ANRUF WSTRGET(SRC_POINTER, dest_widestr, dest_len); WENN CHECK_ERRORS('WSTRGET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,47 WSTRLEN Zusammenfassung WSTRLEN(PTR /* IN: wstring Zeiger*/ ÖRTLICH FESTGELEGTES BIN(31)); HERAUS: len von wstring */ // Rückkehr die Länge einer unbegrenzten breiten Zeichenkette Beschreibung Das WSTRLEN Dienstprogrammfunktionsrückkehr die Zahl Buchstaben in einem unbegrenzten breiten Zeichenkette. Beispiel DCL WIDE_STR_PTR PTR; DCL LEN ÖRTLICH FESTGELEGTES BIN(31); ANRUF WSTRLEN(WIDE_STR_PTR, len); 2,16,48 WSTRSET, WSTRSTS Zusammenfassung WSTRSET(PTR, /* HERAUS: Wstring PTR - kein Auflage*/ CHAR(*), /* IN: Breites Zeichenkette* PL/I/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: PL-/iW-zeichenkette-Längen*/ WSTRSTS(PTR, /* HERAUS: wstring PTR mit Auflage*/ CHAR(*), /* IN: Breites Zeichenkette* PL/I/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: PL-/iW-zeichenkette-Längen*/ // stellt eine unbegrenzte breite Zeichenkette von einem WIDECHAR(n) Datenelement her