IDENTIFICATION DIVISION.
PROGRAM-ID. CBFCAOA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1   X.
    2 X1    OCCURS 3 TIMES
            PIC S9(9)
            USAGE IS BINARY.
1   P       USAGE IS POINTER.
PROCEDURE DIVISION.
  MOVE 0 TO X1(1).
  MOVE 1 TO X1(2).
  MOVE 2 TO X1(3).
  CALL "GETADDR" USING X, P.
  CALL "CBFFAOA" USING P.
  DISPLAY "UPDATED VALUES IN COBOL: ",
    X1(1), " ", X1(2), " ", X1(3).
  GOBACK.
IDENTIFICATION DIVISION.
PROGRAM-ID. GETADDR.
DATA DIVISION.
LINKAGE SECTION.
1   X.
    2  X1    OCCURS 3 TIMES
             PIC S9(9)
             USAGE IS BINARY.
1   P        USAGE IS POINTER.
PROCEDURE DIVISION USING X, P.
    SET P TO ADDRESS OF X.
    EXIT PROGRAM.
END PROGRAM GETADDR.
END PROGRAM CBFCAOA.
 

SUBROUTINE CBFFAOA ( ARG )
POINTER*4 (ARG, Y)
INTEGER*4 Y(3)
PRINT *,
1  'FORTRAN ARRAY ARG VALUES:', Y
DO J = 1, 3
  Y(J) = Y(J) + 1
ENDDO
END