record layouts

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.

Tags: