ILE 下c/c++/cl/RPG等 混合编程

c procedure:c_module
#include
void PrintMsg(char* msg){
    printf(\"=======begin to run c procedure========\\n\");
    printf(\"%s\\n\", msg);
    printf(\"=======end run c procedure========\\n\");
}

cl procedure:cl_module
CL_MODULE:PGM PARM(&MSG)
  DCL VAR(&MSG) TYPE(*CHAR) LEN(30)
  /***********************************/
  SNDMSG MSG(&MSG) TOUSR(RAOYQ)
ENDPGM

c procedure:c_call
#include
void main(){
   CL_MODULE(\"CALL CL PRODURE FROM C CALLER\");
   PrintMsg(\"CALL C PRODURE FROM C CALLER\");
}

cl procedure:cl_call
PGM
   CALLPRC PRC(CL_MODULE) +
      PARM(\'CALL CL PRC WITH CL CALL\')
   CALLPRC PRC(PrintMsg) +
      PARM(\'CALL C PRC WITH CL CALL\')
ENDPGM