@Rainer:
Das möcht ich mir eigentlich nicht antun ;-)
Hab immerhin in etwa 10 Arrays zum übergeben.

@Baldur:
Ich hab's schon befürchtet, irgendwo hab ich's im Hinterkopf, dass es nur noch so geht. Ich versuchs mal. Nach Fixed Methode: DCL-S $ARR char(3) dim(100) und dann CALL xy und PARM $ARR, funktioniert wunderbar. Und in Freeform muss ich halt jetzt eine Prodzedur vorgängig definieren.