Procedur-Aufruf per Procedur-Pointer

[HeymannJ]

Hallo *all,

Möchte in einem Serviceprogramm eine Prozedur (Export) über einen Prozedur-Pointer aufrufen. Die aufzurufende Prozedur hat keinen Rückgabewert.
Bei der Umwandlung meckert der Compiler:

*RNF0520 Der LIKE-Name MYPROC ist nicht der Name eines Felds oder
Prototyps; die LIKE-Definition wird ignoriert.

     D myProc          PR
     D  inParm                       10A

     D myProc_ptr      PR                  like(myProc)
     D                                     EXTPROC(Proc_Pointer)
     D  inParm                       10A 

wenn ich das ganze mit Rückgabewert mache, funktioniert es.

woran kann das liegen?

Vielen dank im voraus.

[Fuerchau]

Like muss ein Feld sein.
Gibt man im Like einen Prototyp an, übernimmt Like die Definition des Returnwertes des Prototyps.
Hat der Prototyp keinen Returnwert, kann Like ja nichts definieren.

[HeymannJ]

Hallo Fuerchau,

sorry, ist ja logisch..., da hatte ich wohl ein kleines Verständnisproblem...

Vielen Dank für die schnelle Antwort.