CLASS-METHODS class_constructor.

CLASS-METHODS s_get_format IMPORTING provider TYPE REF TO /ork/if_format_provider
                                         !type TYPE REF TO cl_abap_intfdescr
                               RETURNING VALUE(result) TYPE REF TO object.

TYPES: BEGIN OF ty_s_cm,
             current TYPE REF TO /ork/if_format_provider,
             invariant TYPE REF TO /ork/if_format_provider,
           END OF ty_s_cm.

BEGIN OF ty_s_type,
        /ork/if_culture_info TYPE REF TO cl_abap_intfdescr,
        /ork/if_format_info_date_time TYPE REF TO cl_abap_intfdescr,
        /ork/if_format_info_number TYPE REF TO cl_abap_intfdescr,
        /ork/if_format_info_structure TYPE REF TO cl_abap_intfdescr,
        /ork/if_format_info_table TYPE REF TO cl_abap_intfdescr,
        /ork/if_formattable TYPE REF TO cl_abap_intfdescr,
        /ork/if_format_provider TYPE REF TO cl_abap_intfdescr,
      END OF ty_s_type.

TYPES: BEGIN OF lty,
             /ork/if_culture_info TYPE REF TO /ork/if_culture_info,
             /ork/if_format_info_date_time TYPE REF TO /ork/if_format_info_date_time,
             /ork/if_format_info_number TYPE REF TO /ork/if_format_info_number,
             /ork/if_format_info_structure TYPE REF TO /ork/if_format_info_structure,
             /ork/if_format_info_table TYPE REF TO /ork/if_format_info_table,
             /ork/if_formattable TYPE REF TO /ork/if_formattable,
             /ork/if_format_provider TYPE REF TO /ork/if_format_provider,
           END OF lty.

CLASS-DATA cm_type TYPE ty_s_type READ-ONLY.