MY_PROG: PROC OPTIONS(MAIN);
DCL CENTRY EXTERNAL ENTRY
RETURNS (FIXED BIN(31));
DCL X FIXED BIN(31);
DCL Y FIXED BIN(31);
X = 5;
/* BY VALUE */
Y=CENTRY((X));
END MY_PROG;
#pragma linkage (centry,PLI)
#include <stdio.h>
int centry(int x)
{
printf("x is %d\n",x);
return(x);
}
Sample PL/I usage
C function
MY_PROG: PROC OPTIONS(MAIN);
DCL CENTRY EXTERNAL ENTRY
RETURNS (FIXED BIN(31));
DCL X FIXED BIN(31);
DCL Y FIXED BIN(31);
X = 5;
/* BY REFERENCE */
Y=CENTRY(X);
END MY_PROG;
#pragma linkage (centry,PLI)
#include <stdio.h>
int centry(int *x)
{
printf("*x is %d\n",x);
return(*x);
}