X = '1234567890'
CALL F2PPFLC(X, Y)
1  'VALUE RETURNED TO FORTRAN: ', Y
END

F2PPFLC: PROC (X, Y) OPTIONS(FORTRAN);
  DCL X       CHARACTER(10);
  DCL Y       CHARACTER(10);
  PUT SKIP
      LIST('PL/I ARG VALUE:', X);
  Y = X;
  RETURN;
END F2PPFLC;