32-bit signed binary integer

Sample PL/I usage Fortran function

Sample PL/I usage	Fortran function
`P2FP32I: PROC OPTIONS(MAIN); DCL P2FF32I ENTRY OPTIONS(FORTRAN) RETURNS(FIXED BIN(31)); DCL X FIXED BIN(31); DCL Y FIXED BIN(31); X = 5; Y = P2FF32I(X); PUT SKIP LIST('VALUE RETURNED TO PL/I:', Y); END P2FP32I;`	`FUNCTION P2FF32I ( ARG ) INTEGER4 P2FF32I INTEGER4 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG P2FF32I = ARG END`

P2FP32I: PROC OPTIONS(MAIN);
  DCL P2FF32I ENTRY OPTIONS(FORTRAN)
      RETURNS(FIXED BIN(31));
  DCL X       FIXED BIN(31);
  DCL Y       FIXED BIN(31);
  X = 5;
  Y = P2FF32I(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FP32I;

FUNCTION P2FF32I ( ARG )
INTEGER*4 P2FF32I
INTEGER*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FF32I = ARG
END