MY_PROG: PROC OPTIONS(MAIN); DCL CENTRY EXTERNAL ENTRY RETURNS (FLOAT DEC(16)); DCL X FLOAT DEC(16); DCL Y FLOAT DEC(16); X = 3.14159265; /* BY VALUE */ Y=CENTRY((X)); END MY_PROG;
#include <stdio.h> extern "PLI" { double centry(double x) } double centry(double x) { printf("x is %f\n",x); return(x); }
MY_PROG: PROC OPTIONS(MAIN); DCL CENTRY EXTERNAL ENTRY RETURNS (FLOAT DEC(16)); DCL X FLOAT DEC(16); DCL Y FLOAT DEC(16); X = 3.14159265; /* BY REFERENCE */ Y=CENTRY(X); END MY_PROG;
#include <stdio.h> extern "PLI" { double centry(double *x) } double centry(double *x) { printf("x is %f\n",x); return(*x); }