I would like to be able to use an FD record layout in a derived class. I don't want any instance of the class to be able to use the fields in the record layout so I have them marked as private. I would rather use protected. Can this be done? below is the code that I am working with. If I make the private field protected I get the following compile error Error 2 COBCH0885 : Visibility attributes can only be used with native managed types at 01 select test-file assign to "\temp\test.dat" organization is indexed access is dynamic record key is test-key lock mode is manual file status is fileStatus . fd test-file . 01 test-rec private . 05 test-key pic x(07) private .
↧