2-74 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 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 CHAR(64); DCL DEST_LEN ÖRTLICH FESTGELEGTES BIN(31) INIT(LENGTH(DEST)); /* dieser STRGET-Anruf kopiert die Buchstaben in NAMEN*/ /* zu SUPPLIER_NAME-*/ ANRUF STRGET(SRC_POINTER, DEST, dest_len); WENN CHECK_ERRORS('STRGET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,39 STRLENG Zusammenfassung STRLENG(PTR /* IN: Zeichenkettezeiger*/ ÖRTLICH FESTGELEGTES BIN(31)); /* HERAUS: len von Zeichenkette*/ // Rückkehr die tatsächliche Länge einer unbegrenzten Zeichenkette Beschreibung Das STRLENG Dienstprogrammfunktionsrückkehr die Zahl Buchstaben in einer unbegrenzten Zeichenkette. Beispiel DCL STR_PTR PTR; DCL LEN ÖRTLICH FESTGELEGTES BIN(31); ANRUF STRLENG(STR_PTR, len); 2,16,40 STRSET, STRSETS Zusammenfassung STRSET (PTR, /* HERAUS: Zeichenkette PTR - kein Auflage*/ CHAR(*), /* IN: PL-/izeichenkette*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: PL-/izeichenkette-Längen*/ STRSETS(PTR, /* HERAUS: Zeichenkette-PTR mit Auflage*/ CHAR(*), /* IN: PL-/izeichenkette*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: PL-/izeichenkette-Längen*/ // stellt eine dynamische Zeichenkette von einem CHAR(n) Datenelement her