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.