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.
|