CHARACTER*10 X, Y
X = '1234567890'
CALL FCBCFLC(X, Y)
PRINT *,
1  'VALUE RETURNED TO FORTRAN: ', Y
END

IDENTIFICATION DIVISION.
PROGRAM-ID. FCBCFLC.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
1   X  PIC X(10) USAGE IS DISPLAY.
1   Y  PIC X(10) USAGE IS DISPLAY.
PROCEDURE DIVISION USING X, Y.
  DISPLAY "COBOL ARG VALUE: ", X.
  MOVE X TO Y.
  EXIT PROGRAM.
END PROGRAM FCBCFLC.