利用ABAP代码动态生成ABAP类

REPORT ZDYANMIC.
 DATA ls_vseoclass      TYPE vseoclass.
  DATA ls_imp_if         TYPE seor_implementing_r.
  DATA lt_imp_if         TYPE seor_implementings_r.
  DATA ls_imp_det        TYPE seoredef.
  DATA lt_methods_source TYPE seo_method_source_table.
  DATA ls_method_source  TYPE seo_method_source.
  DATA lv_method         type LINE OF SEOO_METHODS_R.

  data: lv_classname LIKE ls_vseoclass-clsname value 'ZCLJERRY8'.

  ls_vseoclass-clsname   = lv_classname.
  ls_vseoclass-state     = seoc_state_implemented.
  ls_vseoclass-exposure  = seoc_exposure_public.
  ls_vseoclass-descript  = `Dynamic proxy generated by Jerry's code`.
  ls_vseoclass-langu     = sy-langu.
  ls_vseoclass-clsccincl = abap_true.
  ls_vseoclass-unicode   = abap_true.
  ls_vseoclass-fixpt     = abap_true.
  ls_vseoclass-clsfinal  = abap_true.

  ls_imp_det = ls_imp_if-clsname       = lv_classname.
  ls_imp_det = ls_imp_if-refclsname    = 'IF_HELLOWORLD'.
  ls_imp_if-state      = seoc_state_implemented.
  APPEND ls_imp_if TO lt_imp_if.

     CLEAR: ls_method_source.
     datA: lv_name type string.
     ls_method_source-cpdname = 'IF_HELLOWORLD~PRINT'.
     APPEND '  mo_origin->print( ).'       TO ls_method_source-source.         "#EC NOTEXT

     APPEND ls_method_source TO lt_methods_source.

          clear: ls_method_source.
     ls_method_source-cpdname = 'CONSTRUCTOR'.
     APPEND 'mo_origin = io_origin.' TO ls_method_source-source.
     APPEND ls_method_source TO lt_methods_source.

  DATA:
        lt_implementation  TYPE seop_source_string,
        ls_mtdkey          TYPE seocpdkey,
        CV_IMPLEMENTATION TYPE SEOR_IMPLEMENTINGS_R,
        ls_source_code     TYPE seo_method_source,
        lt_methods TYPE SEOO_METHODS_R,
        lt_parameters TYPE SEOS_PARAMETERS_R,
        lt_attribute TYPE SEOO_ATTRIBUTES_R,
        ls_attribute LIKE LINE OF lt_attribute,
        ls_parameter LIKE LINE OF lt_parameters,
        ls_method LIKE LINE OF lt_methods.

  ls_method-clsname = lv_classname.
  ls_method-cmpname = 'CONSTRUCTOR'.
  LS_METHOD-state = 1. "implemented
  ls_method-exposure = 2. "public
  APPEND LS_METHOD TO LT_METHODS.

  ls_parameter-clsname = lv_classname.
  ls_parameter-cmpname = 'CONSTRUCTOR'.
  ls_parameter-version = 1.
  ls_parameter-descript = 'Jerry'.
  ls_parameter-type = 'IF_HELLOWORLD'.
  ls_parameter-SCONAME = 'IO_ORIGIN'.
  ls_parameter-CMPTYPE = 1. "METHOD
  ls_parameter-mtdtype = 0. "METHOD
  ls_parameter-pardecltyp = 0. "IMPORTING
  ls_parameter-parpasstyp = 1. "pass by reference
  ls_parameter-typtype = 3. "type ref to
  "ls_parameter- SCOTYPE = 0. "PARAMETER
  append ls_parameter TO lt_parameters.

  ls_attribute-clsname = lv_classname.
  ls_attribute-cmpname = 'MO_ORIGIN'.
  ls_attribute-state = 1.
  ls_attribute-attdecltyp = 0.
  ls_attribute-attexpvirt = 0. "private
  ls_attribute-typtype = 3. "type ref to
  ls_attribute-type = 'IF_HELLOWORLD'.
  APPEND ls_attribute TO lt_attribute.

  CALL FUNCTION 'SEO_CLASS_CREATE_COMPLETE'
    EXPORTING
      devclass                   = '$TMP'
      version                    = seoc_version_active
      authority_check            = abap_true
      overwrite                  = abap_true
      suppress_method_generation = abap_false
      genflag                    = abap_false
      method_sources             = lt_methods_source
      suppress_dialog            = abap_true
    CHANGING
      class                      = ls_vseoclass
      methods =  lt_methods
      parameters = lt_parameters
      implementings              = lt_imp_if
      attributes = lt_attribute
    EXCEPTIONS
      existing                   = 1
      is_interface               = 2
      db_error                   = 3
      component_error            = 4
      no_access                  = 5
      other                      = 6
      OTHERS                     = 7.

WRITE: / sy-subrc.