32-bit signed binary integer

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;
 

#include <stdio.h>

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

int centry(int x)
{
  printf("x is %d/n",x);
  return(x);
}
 

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;
 

#include <stdio.h>

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

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