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)
{
/* ... */
}
|