#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL n AS LONG
    n = 5
    #COBOL USING n
       IDENTIFICATION DIVISION.
       PROGRAM-ID. AddOne.
       DATA DIVISION.
       LINKAGE SECTION.
       01 N PIC 9(18).
       PROCEDURE DIVISION USING N.
           ADD 1 TO N.
           STOP RUN.
    #ENDCOBOL
    PRINT n
    FUNCTION = 0
END FUNCTION
