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.
↧