DEF VAR cString     AS CHAR.
DEF VAR lString     AS LONGCHAR.
DEF VAR ii          AS INT.
DEF VAR iPos        AS INT  INIT 1. 

FIX-CODEPAGE(lString) = 'utf-8'.

DO ii = 1 TO 10:
    cString = SUBSTITUTE('Zuerich-&1&2', STRING(ii,'999'), '/').
    lString = lString + cString.
    iPos = LENGTH(cString).
END.

MESSAGE iPos SKIP
    STRING(lString)
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.