Short floating-point number

z/OS Language Environment Writing Interlanguage Communication Applications

Short floating-point number

z/OS Language Environment Writing Interlanguage Communication Applications
SA38-0684-00

Sample COBOL usage Fortran subroutine

IDENTIFICATION DIVISION.
PROGRAM-ID. CBFCSFP.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1   X  USAGE IS COMPUTATIONAL-1.
PROCEDURE DIVISION.
  MOVE 5.0E0 TO X.
  CALL "CBFFSFP" USING X.
  DISPLAY "UPDATED VALUE IN COBOL: ", X.
  GOBACK.
END PROGRAM CBFCSFP.

SUBROUTINE CBFFSFP ( ARG )
REAL*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
ARG = ARG + 1.0E0
END

Notices | Terms of use | Support | Contact z/OS | zFavorites