Prozedur variabel aufrufen

[BenderD]

Hallo Rolf,

das geht mit Prototyp, Procedure Pointer, MI und APIs, auf meiner Freeware Seite gibt es dazu ein Serviceprogramm (PROCP4NAME) plus Beispiel.

mfg

Dieter Bender

Hallo
Ich habe folgendes Problem:
VisualRPG 6.0 im Free-Format (es könnte auch native RPG-IV sein)

In einer gemeinsam benutzten Komponente gibt es verschiedene Prozeduren.
Eine dieser Prozeduren füllt eine Variable mit dem Namen einer Prozedur in derselben Komponente.
Diese Prozedur soll jetzt aufgerufen werden.
Wie muss ich das machen ? Irgendwie stehe ich auf dem Schlauch.

Danke schon mal
Rolf

[Stefan_Sk]

Hallo Rolf,

das geht mit Prototyp, Procedure Pointer, MI und APIs, auf meiner Freeware Seite gibt es dazu ein Serviceprogramm (PROCP4NAME) plus Beispiel.

mfg

Dieter Bender

Hallo
Ich habe mir das Serviceprogramm (PROCP4NAME) von Dieter Bender angeschaut.
Ist toll wen ich meine Prozeduren dynamisch laden könnte.
Meine Frage: giebt es auch eine Möglichkeit die parameter einer Procedur
zu ermitteln.

 D ReflectProc     PR              z   EXTPROC(CallPointer) 

Den im Beispiel von Dieter Bender ist der Rückgabewert ja schon bekannt.

Wünschenswert wäre ein Lösung mit der man verschiedene Proceduren mit
unterschiedlichen Pareametern aufrufen kann

/free
 
  ReflectProc(Parm1:parm2);
  // oder
  rueckgabe = ReflectProc(Parm1:parm2:parm3);
 
/end-free 

Geht das irgendwie oder nicht.
Wenn nein dann erspare ich mir mit dem dynamischen ermitteln von
Procedurpointern ja nur das einbinden des Serviceprogramms und das
das einbinden der underschiedlichen Prototypen bleibt.

mfg Stefan

[Fuerchau]

Du musst halt deine variablen Prozeduren mit einer einheitlichen Schnittstelle Aufrufen.
Z.B. übergibst du immer die Referenz auf eine Struktur:

d MyStruct ds
d NumParm 5I 0
d Adrparm * dim(256)

Mittels AdrParm kannst du dann bis zu 256 Parameter übergeben.
z.B.:

NumParm = 2;
AdrParm(0) = %addr(FieldA);
AdrParm(1)= %addr(FieldB);
callp MyDynamicProc(MyStruct);

In der Prozedur:

D MyParm1 ds based(AdrParm(1))
D MyParm2 ds based(AdrParm(2))
:

Reflection gibts nur in Java.