Errors using properties

I've been unable to find a way to use the properties in my program without the compiler complaining 'COBCH1304: Method not found in the repository'.

Here's the code:

Int.cbl:

      $SET REPOSITORY "UPDATE ON"
       CLASS-ID. Int INHERITS Base.
       
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       REPOSITORY.
           CLASS Base AS "base".
       
       OBJECT.
           DATA DIVISION.
           WORKING-STORAGE SECTION.
           01  val                     USAGE BINARY-LONG PROPERTY.
       END OBJECT.
       END CLASS Int.

Main.cbl:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. main.
       
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       REPOSITORY.
           CLASS Int
           PROPERTY val
           .
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  foo                         OBJECT REFERENCE Int.
       
       PROCEDURE DIVISION.
           INVOKE Int "NEW" RETURNING foo
           
           *> Errors here.
           MOVE 5 TO val OF foo
           DISPLAY "Value of foo is " val OF foo
           .
       END PROGRAM main.

I would be grateful for any help people could provide.

Parents Reply Children
No Data