CALL-Programme als CALLP

[Ottersberg]

Moin,

DPGMR2          PR                  EXTPGM('XXXXXR2')   
D Mode                                CONST LIKE(ParmSel) 
D Season                              CONST LIKE(SLSSEA) 

Callp Aufruf

CALLP     PGMR2(02   :aSaison) 

da haben wir wieder einen typischen Fall von zu kompliziert gedacht. So einfach ist das also.

Ein Prototyp wird im rufenden Programm definiert, das Interface im gerufenen Programm (ersetzt den *ENTRY).

Aber das gerufene Programm muss kein Interface haben oder? So wie das Beispiel von mk.
Habe ich selbst gerade ausprobiert und es ging ohne. Es gab sogar die Rückgabe.

Gruß