CLASS ALV에서 간단한 FIELD CATALOG 생성

FORM create_fieldcatlog_100 USING value(p_tname)
                            CHANGING p_lvc_fcat TYPE lvc_t_fcat.

  DATA : lt_fieldcat TYPE kkblo_t_fieldcat.
  DATA: ls_lvc_fcat TYPE lvc_s_fcat.


  CALL FUNCTION 'K_KKB_FIELDCAT_MERGE'
    EXPORTING
      i_callback_program     = sy-cprog
      i_tabname              = p_tname
*      i_strucname            =
*      i_bypassing_buffer     = i_bypassing_buffer
*      i_buffer_active        = l_buffer_active
      i_inclname             = sy-cprog
    CHANGING
      ct_fieldcat            = lt_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      OTHERS                 = 2.

  IF sy-subrc EQ 0.
    CALL FUNCTION 'LVC_TRANSFER_FROM_KKBLO'
         EXPORTING
              it_fieldcat_kkblo = lt_fieldcat[]
         IMPORTING
              et_fieldcat_lvc   = p_lvc_fcat.
  ENDIF.

ENDFORM.                    " create_fieldcatlog_100