MY_PROG: PROC OPTIONS(MAIN);
     DCL CENTRY EXTERNAL ENTRY;
     DCL I(5) FIXED BIN(31,0);
     DCL J FIXED BIN(31);
     DCL P POINTER;
     P = ADDR(I);
     DO J = 1 TO 5;
       I(J) = J;
     END;
     CALL CENTRY (P);
END MY_PROG;
 

#include <stdio.h>

extern "PLI" {
  void centry(**x);
}

void centry(**x)
{
  /*   ...   */
}