样例代码

 CLASS lcl_main定义创建私有最终。
   公共部分。
     类型：tys_mara mara的类型标准表。
     数据：mara的lt_mara类型标准表，
           ls_mara TYPE玛拉。
     类方法：
     get_instance
           返回值（rr_main）类型REF到lcl_main。
     方法：
           get_data
             导出get_mara TYPE mara，
           display_alv
            导出dis_mara TYPE mara，
           构造函数。
 ENDCLASS。  " lcl_main定义
 初始化。
 * -------------------------------------------------  --------------------- *
 * CLASS lcl_main的实现
 * -------------------------------------------------  --------------------- *
 *
 * -------------------------------------------------  --------------------- *
 CLASS lcl_main的实现。
   方法get_instance。
     创建对象rr_main。
   终结法。  " get_instance
   方法get_data。
     如果lt_mara []是INITIAL。
       SELECT * INTO TABLE lt_mara从mara。
     万一。
   终结法。  " get_data
   METHOD构造函数。
   终结法。  "建设者
   方法display_alv。
     数据：
         lr_layout类型参考cl_salv_layout，
         lr_salv类型参考cl_salv_table，
         lx_salv类型参考cx_salv_msg，
         lr_functions类型参考cl_salv_functions_list。
     尝试。
         呼叫方法cl_salv_table =>工厂
           输入
             r_salv_table = lr_salv
           改变
             t_table = lt_mara。
         lr_layout = lr_salv-> get_layout（）。
         lr_salv-> display（）。
       捕捉cx_salv_msg INTO lx_salv。
         MESSAGE"未找到数据" TYPE" E"。
     ENDTRY。
   终结法。  " display_alv
 ENDCLASS。  " lcl_main IMPLEMENTATION
 选择开始。
   数据：lr_main类型参考lcl_main。
   lr_main = lcl_main => get_instance（）。
   调用方法lr_main-> get_data（）。
   调用方法lr_main-> display_alv（）。