Long floating-point number

Sample PL/I usage C function

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;

#pragma linkage (centry,PLI)
#include <stdio.h>
double centry(double x)
{
  printf("x is %f\n",x);
  return(x);
}

Sample PL/I usage C function

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;

#pragma linkage (centry,PLI)
#include <stdio.h>
double centry(double *x)
{
  printf("*x is %f\n",x);
  return(*x);
}