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