kkblo

Former Member — Wed, 12 Mar 2008 08:46:04 GMT

how can we use kkblo typepool in alv? can u give me any example plz.

Re: kkblo

Former Member — Wed, 12 Mar 2008 08:53:11 GMT

hi check this,

REPORT zvnm_normal_alv.

TYPE-POOLS: slis,

KKBLO.

TYPES: BEGIN OF ty_ekpo,

ebeln TYPE ebeln,

ebelp TYPE ebelp,

matnr TYPE matnr,

bukrs TYPE bukrs,

END OF ty_ekpo.

DATA: it_ekpo TYPE STANDARD TABLE OF ty_ekpo,

it_fieldcat TYPE slis_t_fieldcat_alv,

it_default_fieldcat TYPE slis_t_fieldcat_alv,

lt_rt_fieldcat_kkblo TYPE KKBLO_T_FIELDCAT,

it_events TYPE slis_t_event,

lx_fieldcat TYPE slis_fieldcat_alv,

is_layout TYPE slis_layout_alv,

i_layout TYPE slis_layout_alv,

cs_variant TYPE disvariant,

lv_disvariant LIKE disvariant.

PARAMETERS: p_ebeln TYPE ebeln.

START-OF-SELECTION.

SELECT ebeln

ebelp

matnr

bukrs

FROM ekpo

INTO TABLE it_ekpo

WHERE ebeln = p_ebeln.

IF sy-subrc = 0.

lx_fieldcat-fieldname = 'EBELN'.

lx_fieldcat-tabname = 'IT_EKPO'.

lx_fieldcat-ref_fieldname = 'EBELN'.

lx_fieldcat-ref_tabname = 'EKPO'.

APPEND lx_fieldcat TO it_fieldcat.

CLEAR lx_fieldcat.

lx_fieldcat-fieldname = 'EBELP'.

lx_fieldcat-tabname = 'IT_EKPO'.

lx_fieldcat-ref_fieldname = 'EBELP'.

lx_fieldcat-ref_tabname = 'EKPO'.

APPEND lx_fieldcat TO it_fieldcat.

CLEAR lx_fieldcat.

lx_fieldcat-fieldname = 'MATNR'.

lx_fieldcat-tabname = 'IT_EKPO'.

lx_fieldcat-ref_fieldname = 'MATNR'.

lx_fieldcat-ref_tabname = 'EKPO'.

lx_fieldcat-edit = 'X'.

APPEND lx_fieldcat TO it_fieldcat.

CLEAR lx_fieldcat.

lx_fieldcat-fieldname = 'BUKRS'.

lx_fieldcat-tabname = 'IT_EKPO'.

lx_fieldcat-ref_fieldname = 'BUKRS'.

lx_fieldcat-ref_tabname = 'EKPO'.

APPEND lx_fieldcat TO it_fieldcat.

CLEAR lx_fieldcat.

ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = I_BYPASSING_BUFFER
I_BUFFER_ACTIVE = ' '

i_callback_program = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
i_callback_user_command = 'F_USER_COMMAND'
I_STRUCTURE_NAME = I_STRUCTURE_NAME

is_layout = iS_layout

it_fieldcat = it_fieldcat

IT_EXCLUDING = IT_EXCLUDING
IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
IT_SORT = IT_SORT
IT_FILTER = IT_FILTER
IS_SEL_HIDE = IS_SEL_HIDE
I_DEFAULT = 'X'

I_SAVE = 'A'

IS_VARIANT = IS_VARIANT
IT_EVENTS = IT_EVENTS
IT_EVENT_EXIT = IT_EVENT_EXIT
IS_PRINT = IS_PRINT
IS_REPREP_ID = IS_REPREP_ID
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER = IR_SALV_LIST_ADAPTER
IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER
ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

TABLES

t_outtab = IT_EKPO

EXCEPTIONS

program_error = 1

OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Re: kkblo

Former Member — Wed, 12 Mar 2008 09:07:57 GMT

Hi,

KKBLO is a type pool .you can use this in ALV.

Regards,

vineela.

topic kkblo in Application Development and Automation Discussions

kkblo

Re: kkblo

Re: kkblo