1-26 COBOLCSprache, die Aktualisierten Juni 1999 Abbildet 1 Beispiel KAPUTEL "ARBEITSSPEICHER". Beispiel-Zeichenkette 01 ZEIGER. PROZEDURTEIL. . . . ANRUF "STRFREE" Beispiel-Zeichenkette VERWENDEND 1,15,15 STRGET Zusammenfassung Kopiert den Inhalt einer undurchlässigen unbegrenzten Zeichenketteart in ein Datenelement PIC X(n). STRGET(IN-Zeichenkette Undurchlässig-Zeichenkette-Art, IN nicht unterzeichnetem langem Länge-Von-Ziel-Bereich, AUS < PIC X > Ziel-Bereich) Beschreibung Diese Hilfsfunktion STRGET kopiert die Buchstaben in der undurchlässigen unbegrenzten Zeichenkette schreiben Sie zum spezifizierten Zielbereich. Wenn die Zeichenkette nicht genügende Buchstaben enthält, um das Ziel genau zu füllen, dann wird sie seien Sie der aufgefüllte Raum. NUL-Buchstaben werden nie kopiert. Eine CORBA-Ausnahme wird angehoben, wenn der Bestimmungsort nicht genug groß ist, ganzes zu speichern Zeichenkettedaten. Eine CORBA-Ausnahme wird angehoben, wenn die undurchlässige Zeichenkette nicht zugeteilt wird. Beispiel Mein-Zeichenkette 01 ZEIGER 01 DEST ABBILDUNG X(64). 01 DEST-len ABBILDUNG 9(10). . . . PROZEDURTEIL. . . . VERSCHIEBEN SIE LÄNGE VON DEST ZU DEST-len ANRUF "STRGET" VERWENDEND Mein-Zeichenkette, DEST-len, DEST . . .