IDENTIFICATION DIVISION.
PROGRAM-ID. CBFCFLC.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1   X  PIC X(10) USAGE IS DISPLAY.
1   Y  PIC X(10) USAGE IS DISPLAY.
PROCEDURE DIVISION.
  MOVE "1234567890" TO X.
  CALL "CBFFFLC" USING X, Y.
  DISPLAY "VALUE RETURNED TO COBOL: ", Y.
  GOBACK.
END PROGRAM CBFCFLC.
 

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