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
|