IDENTIFICATION DIVISION.
PROGRAM-ID. CBFC64I.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1 X PIC S9(18) USAGE IS BINARY.
PROCEDURE DIVISION.
MOVE 5 TO X.
CALL "CBFF64I" USING X.
DISPLAY "UPDATED VALUE IN COBOL: ", X.
GOBACK.
END PROGRAM CBFC64I.
|
SUBROUTINE CBFF64I ( ARG )
INTEGER*8 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
ARG = ARG + 1
END
|