P2FPFLC: PROC OPTIONS(MAIN);
  DCL P2FFFLC ENTRY OPTIONS(FORTRAN);
  DCL X       CHARACTER(10);
  DCL Y       CHARACTER(10);
  X = '1234567890';
  CALL P2FFFLC(X, Y);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPFLC;
 

SUBROUTINE P2FFFLC ( ARG1, ARG2 )
CHARACTER*10 ARG1, ARG2
PRINT *, 'FORTRAN ARG1 VALUE: ', ARG1
ARG2 = ARG1
END