variable calls im free-format RPG

[Fuerchau]

@Birgitta
Meine Hochachtung. Wie immer, gewusst wo !
Funktioniert das auch mit Prozeduren ?

[B.Hauser]

@Birgitta
Meine Hochachtung. Wie immer, gewusst wo !
Funktioniert das auch mit Prozeduren ?

Leider nein!
Bei Prozeduren muss man mit Procedure Pointern arbeiten.

D ProcDSIN        PR                  ExtProc(MyProcPtr)  
D   ParmDSIN                          like(DSIN)     
  
D MyProcPtr       S               *   ProcPtr   
 /Free
    MyProcPtr = %PAddr('MYPROCEDURE');
    ProcDSIN(MyDSIN); 
 /End-Free 

Birgitta