Hallo,
kann man in RPGLE ein Array mit einem Serviceprogramm austauschen und wie muss ich das definieren.
Ich habe es in etwa so versucht:

Programm was aufruft:

D array s 5a dim(10)
D z s 3i 0 inz(1)
d srfpgm pr like(GNEvent)
d array# like(array)

callp srfpgm(array(z));
*------------------------------------------------
Serviceprogramm was das Array füllen soll.

D array s 5a dim(10)
D z s 3i 0 inz(1)
d srfpgm pr ike(GNEvent)
d array# like(array)


p srfpgm b export
d srvpgm pi like(GNEvent)
d array# like(array)

array#(1) = 'TEST';
array#(2) ='TEST1';

return true;

im Programm was aufruft sind die Werte jetzt aber nicht gefüllt. Ich glaube auch nicht das es so geht. Ich habe es noch mit Pointern versucht, was ich auch nicht hin bekommen habe. Wie macht man das?