#include <stdio.h>

extern "PLI" {
  short int cpli( short int * );
}

main() {
  short int x, y;
  x=5;
  y = cpli(&x);  /* by reference */
}
 

CPLI: PROC(ARG) RETURNS (FIXED BIN(15));
    DCL ARG FIXED BIN (15);
⋮
    RETURN (ARG);
    END;