String Function? Repeat

Code:
--------------------------------------------------------------------------------------------------------------------------
* String Repeat *
DATA :   str1  TYPE string VALUE 'XYZ',
              str2  TYPE string,
              times TYPE i  VALUE 5.

WRITE :/ ' Before string Repeat:', str1.
str2 = repeat( val = str1 occ = times ).   "repeats the string 5 times

WRITE :/ 'After string Repeat :', str2. 
--------------------------------------------------------------------------------------------------------------------------
Step1.

Step2. Output: