POINTER*4 (P, I)
INTEGER*4 I(3)
INTEGER*4 J(3) / 1, 2, 3 /
P = LOC(J)
CALL FCBCAOA (P)
PRINT *,
1  'UPDATED VALUES IN FORTRAN:', I
END

IDENTIFICATION DIVISION.
PROGRAM-ID. FCBCAOA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77  IX      PIC S9(9)
    USAGE IS BINARY.
LINKAGE SECTION.
1   X            USAGE IS POINTER.
1   Y.
    2  M         PIC S9(9)
                 USAGE IS BINARY
                 OCCURS 3 TIMES.
PROCEDURE DIVISION USING X.
     SET ADDRESS OF Y TO X.
     DISPLAY "COBOL ARG VALUES: ",
       M(1), " ", M(2), " ", M(3).
     PERFORM  VARYING IX
         FROM 1  BY 1
         UNTIL IX > 3
       SUBTRACT 1 FROM M(IX)
     END-PERFORM.
     EXIT PROGRAM.
END PROGRAM FCBCAOA.