32-bit signed binary integer

z/OS Language Environment Writing Interlanguage Communication Applications

32-bit signed binary integer

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

Sample COBOL usage Fortran subroutine

IDENTIFICATION DIVISION.
PROGRAM-ID. CBFC32I.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1   X  PIC S9(9) USAGE IS BINARY.
PROCEDURE DIVISION.
  MOVE 5 TO X.
  CALL "CBFF32I" USING X.
  DISPLAY "UPDATED VALUE IN COBOL: ", X.
  GOBACK.
END PROGRAM CBFC32I.

SUBROUTINE CBFF32I ( ARG )
INTEGER*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
ARG = ARG + 1
END

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