September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-75 2 Beschreibung Das STRSET Dienstprogrammfunktion stellt eine unbegrenzte Zeichenkette her und kopiert src_length Buchstaben vom src zum dest_pointer . Wenn src enthält abschließende Zwischenraumzeichen, die diese sollen nicht seien zur DESTZEICHENKETTE kopiert Sie. Das STRSETS Version dieser Funktion ist identisch, ausgenommen sie soll kopieren Sie abschließende Zwischenraumzeichen. Beispiel /* dieses ist ' Quell' CHAR(n) Datenelement*/ DCL SRC CHAR(160); DCL SRC_LENGTH ÖRTLICH FESTGELEGTES BIN(31) INIT(LENGTH(SRC)); /* dieses ist Zeiger-Zeichenkette* ' des Bestimmungsortes ' unbegrenzte,/ DCL DEST_PTR PTR; . . . /* dieser STRSET-Anruf verursacht eine Kopie der Zeichenkette in */ /* SRC-Feld und weist den Zeiger DEST_PTR zu. */ ANRUF STRSET(DEST_PTR, src, src_length); 2,16,41 TYPEGET Zusammenfassung TYPEGET(PTR, /* IN: addr(anyInfoBlock)*/ CHAR(*), /* HERAUS: typecode*/ ÖRTLICH FESTGELEGTES BIN(31)); /* IN: typecodelängen*/ // Extraktartname aus IRGENDEINEM heraus Beschreibung Das TYPEGET Dienstprogrammfunktion bringt den typencode von IRGENDWIE zurück . Diese Funktion kann sein verwendete, die Art von IRGENDWIE zu erhalten damit der korrekte Puffer zum ANYGET geführt wird Funktion. Ausnahmen Eine Verstümmelungausnahme tritt wenn die Länge des typeName auf überschritten zu TYPEGET ist zu klein, den typencode zu enthalten, der in den IRGENDWELCHEN gespeichert wird . Beispiel DCL 1 EXAMPL_TEMP_ANY_ARGS AUSGERICHTET, RESULTAT 3 PTR; DCL WS_SHORT ÖRTLICH FESTGELEGTES BIN(15); DCL WS_LONG ÖRTLICH FESTGELEGTES BIN(31);