REPORT  Z17_018.

CLASS C1 DEFINITION.

          PUBLIC SECTION.

                    CLASS-METHODS class_constructor.

          PRIVATE SECTION.

                    CLASS-DATA access_program TYPE sy-repid.

ENDCLASS.

CLASS C1 IMPLEMENTATION.

          METHOD class_constructor.

                    access_program = sy-repid.

                    WRITE : access_program, '이 실행되었습니다.'.

          ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.

DATA : cref1 type ref to c1.

CREATE OBJECT cref1.