Code: Select all
DEF PROCconcatenate(a(), b(), RETURN c())
LOCAL A%, B% : A% = DIM(a(),1) : B% = DIM(b(),1)
DIM c(A% + B% + 1)
c(0 TO A%) = a() : c(A% + 1 TO) = b()
ENDPROC
Code: Select all
DEF PROCconcatenate(a(), b(), RETURN c())
LOCAL A%, B% : A% = DIM(a(),1) : B% = DIM(b(),1)
DIM c(A% + B% + 1)
c(0 TO A%) = a() : c(A% + 1 TO) = b()
ENDPROC