DIMENSION Array1(5)
Array1(1)='h'
Array1(2)='e'
Array1(3)='l'
Array1(4)='l'
Array1(5)='o'

? Proc1(@Array)

PROCEDURE Proc1
LPARAMETERS paArray
LOCAL lcResult, lnCnt
lcResult = ""
FOR lnCnt = 1 to ALEN(paArray, 1)
  lcResult = lcResult + paArray(lnCnt)
ENDFOR
RETURN lcResult