class TestClass definition.
    class-data: staticValue type int value 0.

    public Section.
        data: pubValue type string value 'public value',
              inc type int value 0.
        methods pubMeth1,
                pubMeth2,
                pubMeth3,
                increaseStaticValue importing val type int
                                    exporting result type int.

    protected Section.
        data: protSection type string value 'protected value'.
        methods protMethod1.

    private Section.
        data: privSection type string value 'private Section'.
        methods privMethod1.
endclass.

class TestClass implementation.
    method pubMeth1.
        write: / concatenate 'access from public method with ' into pubValue.
    endmethod.

    method pubMeth2.
        write: / 'list of class values: ' concatenate pubValue .
    endmethod.

    method pubMeth3.
        inc = inc + 1.
    endmethod.

    method increaseStaticValue.
        write: / 'call of' concatenate pubValue.
    endmethod.

    method protMeth1.
        write: / 'call of' concatenate pubValue.
    endmethod.

    method privMeth1.
        write: / 'call of' concatenate pubValue.
    endmethod.
endclass.

data class_obj type ref to TestClass.

class_obj->pubMeth1().