RPGLEのポインタでプロシージャを呼び出す方法

Question

サービスモジュールでコールバックを使用します。手続きパラメータとして渡したいコールバック関数のポインタ。

サービスモジュールのコールバック関数をどのように呼び出すことができますか？

psevdocode：

メインコード：機能
PROCPTRキーワードに建て

dcl-pr Proc2; 
    ptr pointer;  
end-pr; 

dcl-s ptr inz(%Addr(Proc1)) 

Proc2(ptr); 

dcl-proc Proc1; 
dcl-pi *n; 
    parm1 char(123); 
end-pi; 
    ...  
end-proc Proc1; 

サービスプログラムの開発

dcl-proc Proc2; 
dcl-pi *n; 
    ptr pointer; 
end-pi; 

     dcl-s param char(123) inz('xxxaaaqqq') 

    *ptr(param); // call callback 

end-proc Proc2; 

Answer 1

%のPADDR（）（手順アドレスを取得）（固定フォーマットdの-specs）
POINTER（* PROC）（フリーフォーマットd-specs）

dcl-pr Proc2; 
    ptr pointer(*PROC); 
end-pr; 

Proc2(%paddr(Proc1)); 

dcl-proc Proc1; 
dcl-pi *n *IND; 
    parm1 char(123); 
    parm2 int(10); 
end-pi; 
    ...  
end-proc Proc1; 

* SRVPGM

dcl-proc Proc2; 
dcl-pi *n; 
    ptr pointer(*PROC) 
end-pi; 

//defined prototype for callback 
// as EXTernal PROCedure pointed to by ptr 
dcl-pr callback extproc(ptr) *IND; 
    cbParm char(123); 
    cbParm2 int(10); 
end-pr; 

    dcl-s param char(123) inz('xxxaaaqqq') 
    dcl-s myInt int(10); 
    dcl-s success ind; 

    success = callback(param:myInt); // call callback 

end-proc Proc2; 

Answer 2

この記事では、プロシージャポインタを使用する方法の例があります。

https://github.com/OSSILE/OSSILE/tree/master/code_examples/rpg/interfaces