32-bit signed binary integer

#include <stdio.h>

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

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

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

#include <stdio.h>

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

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

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