Pointer to a structure

Sample C++ usage PL/I subroutine
#include <stdio.h>

struct date   {
  int day;
  int month;
  int year   } today;

extern "PLI" {
  void cpli(struct date **);
}

main()
{
  struct date *temp = &today;
  int i;
  cpli (&temp);
}
 
CPLI: PROC (ARG);
    DCL ARG POINTER;
    DCL 1 TODAY BASED (ARG),
        2 DAY FIXED BIN(31),
        2 MONTH FIXED BIN(31),
        2 YEAR FIXED BIN(31);
⋮
    END;