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;