Funktion mit variabler länge

[Xanas]

So würde ich das gerne machen, nur so funktioniert das leider nicht.
Weiss jemande wie man das lösen könnte?

D UpperCase   B
D UpperCase   PI     32766A options(*varsize) // <-- das will er nicht
D   string           32766A options(*varsize)
 
D lower     C   Const('abcd...')
D upper     C   Const('ABCD...')
 
 /free
 
  return %xlate( lower: upper: string);
 
 /end-free
 
D UpperCase   E