Pointer to a structure

MY_PROG: PROC OPTIONS(MAIN);
     DCL CENTRY EXTERNAL ENTRY;
     DCL 1 TODAY,
         2 DAY FIXED BIN(31),
         2 MONTH FIXED BIN(31),
         2 YEAR FIXED BIN(31);
     DCL P POINTER;
     P = ADDR(TODAY);
     CALL CENTRY (P);
END MY_PROG;
 

struct date   {
  int day;
  int month;
  int year;  };
extern "PLI" {
  void centry (struct date **x);
}

void centry(struct date **x)
{
  printf("Day is %d\n",(x)->day);
}