32-bit signed binary integer

#pragma linkage (cpli,PLI)
#include <stdio.h>
int extern 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;
 

#pragma linkage (cpli,PLI)
#include <stdio.h>
int extern 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;