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;

#include <stdio.h>

extern "PLI" {
  double centry(double x)
}

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;

#include <stdio.h>

extern "PLI" {
double centry(double *x)
}

double centry(double *x)
{
printf("x is %f\n",x);
return(*x);
}