ALV sum

[Former Member]

Hello,

I have an internal table declared like this:

data: begin of display occurs 0,

partner like but000-partner,

name_org1 like but000-name_org1,

name_org2 like but000-name_org2,

auszdat like ever-auszdat,

anlage like eanl-anlage,

sparte like eanl-sparte,

service like eanl-service,

eanlh_ab like eanlh-ab,

eanlh_bis like eanlh-bis,

tariftyp like eanlh-tariftyp,

aklasse like eanlh-aklasse,

operand like ettifn-operand,

ettifn_ab like ettifn-ab,

ettifn_bis like ettifn-bis,

wert1 like ettifn-wert1,

region like adrc-region,

NR type i,

end of display.

For the field NR, I'm making the fieldcat like this:

ls_fieldcat-fieldname = 'NR'.

ls_fieldcat-ref_fieldname = 'NR'.

ls_fieldcat-tabname = 'DISPLAY'.

ls_fieldcat-seltext_l = 'Contor'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

Ls fieldcat is declared like this : ls_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE .

When I run the program, it crashes right before the display.

If I comment the line ls_fieldcat-do_sum = 'X'. then the ALV list is displayed but when I try to do sum I receive this message: Desired operation cannot be perfomed on column ...

Can anybody tell me what I'm doing wrong?

Thanks.

[Former Member]

hi,

send ur report code..

[Former Member]

This is the code I use.

Hope it's usefull ...

tables: but000,

fkkvkp,

ever,

eanl,

evbs,

eanlh,

v_ehau,

ettifn,

adrc,

akkb.

TYPE-POOLS: slis.

DATA: ls_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,

fieldlayout TYPE slis_layout_alv,

ls_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE,

wa_sort TYPE slis_sortinfo_alv.

data: begin of display occurs 0,

partner like but000-partner,

name_org1 like but000-name_org1,

name_org2 like but000-name_org2,

auszdat like ever-auszdat,

anlage like eanl-anlage,

sparte like eanl-sparte,

service like eanl-service,

eanlh_ab like eanlh-ab,

eanlh_bis like eanlh-bis,

tariftyp like eanlh-tariftyp,

aklasse like eanlh-aklasse,

operand like ettifn-operand,

ettifn_ab like ettifn-ab,

ettifn_bis like ettifn-bis,

wert1 like ettifn-wert1,

region like adrc-region,

NR type i,

end of display.

select-OPTIONS p_ausz for ever-auszdat.

SELECT-OPTIONS p_anlag for eanl-anlage.

SELECT-OPTIONS p_spart for eanl-sparte.

SELECT-OPTIONS p_serv for eanl-service.

SELECT-OPTIONS p_bish for eanlh-bis.

select-OPTIONS p_aklas for eanlh-aklasse.

select-OPTIONS p_oper for ettifn-operand.

SELECT-OPTIONS p_ab for ettifn-ab.

SELECT-OPTIONS p_bisn for ettifn-bis.

SELECT-OPTIONS p_reg for adrc-region.

select but000_{partner but000}name_org1 but000~name_org2

ever~auszdat

eanl_{anlage eanl}sparte eanl~service

eanlh_{ab eanlh}bis eanlh_{tariftyp eanlh}aklasse

ettifn_{operand ettifn}ab ettifn_{bis ettifn}wert1

adrc~region

into display from but000

inner join fkkvkp on but000_{partner = fkkvkp}gpart

inner join ever on fkkvkp_{vkont = ever}vkonto

inner join eanl on ever_{anlage = eanl}anlage

inner join eanlh on eanl_{anlage = eanlh}anlage

inner join ettifn on eanlh_{anlage = ettifn}anlage

inner join evbs on eanl_{vstelle = evbs}vstelle

inner join v_ehau on evbs_{haus = v_ehau}haus

inner join adrc on v_ehau_{addrnumber = adrc}addrnumber

where ever~auszdat in p_ausz and

eanl~anlage in p_anlag and

eanl~sparte in p_spart and

eanl~service in p_serv and

eanlh~bis in p_bish and

eanlh~aklasse in p_aklas and

ettifn~operand in p_oper and

ettifn~ab in p_ab and

ettifn~bis in p_bisn and

adrc~region in p_reg.

display-NR = 1.

append display to display.

endselect.

sort display by partner.

delete ADJACENT DUPLICATES FROM display.

ls_fieldcat-fieldname = 'PARTNER'.

ls_fieldcat-ref_fieldname = 'PARTNER'.

ls_fieldcat-tabname = 'BUT000'.

ls_fieldcat-seltext_l = 'Partner'.

*ls_fieldcat-col_pos = 1.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'NAME_ORG1'.

ls_fieldcat-ref_fieldname = 'NAME_ORG1'.

ls_fieldcat-tabname = 'BUT000'.

ls_fieldcat-seltext_l = 'Nume 1'.

*ls_fieldcat-col_pos = 2.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'NAME_ORG2'.

ls_fieldcat-ref_fieldname = 'NAME_ORG2'.

ls_fieldcat-tabname = 'BUT000'.

ls_fieldcat-seltext_l = 'Nume 2'.

*ls_fieldcat-col_pos = 3.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

• ls_fieldcat-fieldname = 'AUSZDAT'.

*ls_fieldcat-ref_fieldname = 'AUSZDAT'.

*ls_fieldcat-tabname = 'EVER'.

**ls_fieldcat-seltext_l = 'AUSZDAT'.

*ls_fieldcat-col_pos = 1.

*APPEND ls_fieldcat.

*CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'ANLAGE'.

ls_fieldcat-ref_fieldname = 'ANLAGE'.

ls_fieldcat-tabname = 'EANL'.

ls_fieldcat-seltext_l = 'Instalatie'.

*ls_fieldcat-col_pos = 4.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'AB'.

ls_fieldcat-ref_fieldname = 'AB'.

ls_fieldcat-tabname = 'EANLH'.

ls_fieldcat-seltext_l = 'Valabi de la (cat. tarif)'.

*ls_fieldcat-col_pos = 5.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'BIS'.

ls_fieldcat-ref_fieldname = 'BIS'.

ls_fieldcat-tabname = 'EANLH'.

ls_fieldcat-seltext_l = 'Valabi pana la (cat. tarif)'.

*ls_fieldcat-col_pos = 6.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'TARIFTYP'.

ls_fieldcat-ref_fieldname = 'TARIFTYP'.

ls_fieldcat-tabname = 'EANLH'.

ls_fieldcat-seltext_l = 'Cat. tarif'.

*ls_fieldcat-col_pos = 7.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'AKLASSE'.

ls_fieldcat-ref_fieldname = 'AKLASSE'.

ls_fieldcat-tabname = 'EANLH'.

ls_fieldcat-seltext_l = 'Clasa calcul factura'.

*ls_fieldcat-col_pos = 8.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'OPERAND'.

ls_fieldcat-ref_fieldname = 'OPERAND'.

ls_fieldcat-tabname = 'ETTIFN'.

ls_fieldcat-seltext_l = 'Operand'.

*ls_fieldcat-col_pos = 9.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'AB'.

ls_fieldcat-ref_fieldname = 'AB'.

ls_fieldcat-tabname = 'ETTIFN'.

ls_fieldcat-seltext_l = 'Valabi de la (operand)'.

*ls_fieldcat-col_pos = 10.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'BIS'.

ls_fieldcat-ref_fieldname = 'BIS'.

ls_fieldcat-tabname = 'ETTIFN'.

ls_fieldcat-seltext_l = 'Valabi pana la (operand)'.

*ls_fieldcat-col_pos = 11.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'WERT1'.

ls_fieldcat-ref_fieldname = 'WERT1'.

ls_fieldcat-tabname = 'ETTIFN'.

ls_fieldcat-seltext_l = 'Valoare operand'.

*ls_fieldcat-col_pos = 12.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'REGION'.

ls_fieldcat-ref_fieldname = 'REGION'.

ls_fieldcat-tabname = 'ADRC'.

ls_fieldcat-seltext_l = 'Regiune'.

*ls_fieldcat-col_pos = 13.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'NR'.

ls_fieldcat-ref_fieldname = 'NR'.

ls_fieldcat-tabname = 'DISPLAY'.

*ls_fieldcat-ref_tabname = 'DISPLAY'.

ls_fieldcat-seltext_l = 'Contor'.

**ls_fieldcat-col_pos = 15.

ls_fieldcat-do_sum = 'X'.

*ls_fieldcat-no_sum = ''.

APPEND ls_fieldcat.

CLEAR ls_fieldcat.

fieldlayout-colwidth_optimize = 'X'.

fieldlayout-zebra = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• i_structure_name = 'display_t'

it_fieldcat = ls_fieldcat[]

is_layout = fieldlayout

i_callback_program = sy-repid

i_callback_pf_status_set = 'PF_STATUS_SET'

• i_callback_user_command = 'PROCESARE'

• it_sort = gt_sort[]

TABLES

t_outtab = display

EXCEPTIONS

program_error = 1

OTHERS = 2.

FORM pf_status_set USING extab TYPE slis_t_extab.

DATA: wa_extab LIKE LINE OF extab.

SET PF-STATUS 'STANDARD'.

ENDFORM.

[Former Member]

I am sure there is no table called DISPLAY and also there is no Field called NR in SAP. unless you create them.

ls_fieldcat-fieldname = 'NR'.
ls_fieldcat-ref_fieldname = 'NR'.  "Generally this is table fieldname
ls_fieldcat-tabname = 'DISPLAY'. "it should be a table(DB)
ls_fieldcat-seltext_l = 'Contor'.
ls_fieldcat-do_sum = 'X'.
APPEND ls_fieldcat.
CLEAR ls_fieldcat.

then only it will work.

for example the possible values will be like this

ls_fieldcat-ref_fieldname = 'KWMENG'.  "Generally this is table fieldname
ls_fieldcat-tabname = 'VBAP'. "it should be a table(DB)

[Former Member]

Hi,

See this.

TYPE-POOLS: slis.

DATA: int_fcat TYPE slis_t_fieldcat_alv,

wa_fcat TYPE slis_fieldcat_alv,

i_repid LIKE sy-repid,

it_sortcat TYPE STANDARD TABLE OF slis_sortinfo_alv ,

wa_sort TYPE slis_sortinfo_alv.

TYPES: BEGIN OF ty_final,

field1(5) TYPE c,

field2(10) TYPE c,

field3(10) TYPE c,

field4(10) TYPE c,

END OF ty_final.

DATA: it_final TYPE STANDARD TABLE OF ty_final,

it_final1 TYPE STANDARD TABLE OF ty_final.

DATA: wa_final TYPE ty_final.

wa_final-field1 = 'A'.

wa_final-field2 = 10.

wa_final-field3 = 10.

wa_final-field4 = 10.

APPEND wa_final TO it_final.

CLEAR: wa_final.

wa_final-field1 = 'B'.

wa_final-field2 = 20.

wa_final-field3 = 20.

wa_final-field4 = 20.

APPEND wa_final TO it_final.

CLEAR: wa_final.

wa_final-field1 = 'C'.

wa_final-field2 = 30.

wa_final-field3 = 30.

wa_final-field4 = 30.

APPEND wa_final TO it_final.

CLEAR: wa_final.

DATA: lv_tabname TYPE slis_tabname VALUE 'IT_FINAL'.

wa_fcat-tabname = 'it_final'.

wa_fcat-fieldname = 'FIELD1'.

wa_fcat-seltext_l = 'Primary'.

APPEND wa_fcat TO int_fcat.

wa_fcat-tabname = 'it_final'.

wa_fcat-fieldname = 'FIELD2'.

wa_fcat-seltext_l = 'First'.

wa_fcat-inttype = 'I'.

wa_fcat-do_sum = 'X'.

APPEND wa_fcat TO int_fcat.

wa_fcat-tabname = 'it_final'.

wa_fcat-fieldname = 'FIELD3'.

wa_fcat-seltext_l = 'Second'.

wa_fcat-do_sum(1) = 'X'.

wa_fcat-inttype = 'I'.

APPEND wa_fcat TO int_fcat.

wa_fcat-tabname = 'it_final'.

wa_fcat-fieldname = 'FIELD4'.

wa_fcat-seltext_l = 'Third'.

wa_fcat-do_sum(1) = 'X'.

wa_fcat-inttype = 'I'.

APPEND wa_fcat TO int_fcat.

wa_sort-spos = 2.

wa_sort-fieldname = 'FIELD2'.

wa_sort-tabname = 'IT_OUTPUT'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

APPEND wa_sort TO it_sortcat.

wa_sort-spos = 3.

wa_sort-fieldname = 'FIELD3'.

wa_sort-tabname = 'IT_OUTPUT'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

APPEND wa_sort TO it_sortcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = i_repid

it_fieldcat = int_fcat[]

it_sort = it_sortcat[]

i_save = 'X'

TABLES

t_outtab = it_final

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Thanks,

Jayshree

Edited by: Jayshree Kamlapure on Oct 22, 2008 1:57 PM

[Former Member]

change this domain.

NR type i.

[Former Member]

change this domain.

NR type i.

With what.. isn't i the only summable data type?

[GauthamV]

hi,

Remove reference field and table name in fieldcat and check.

[Former Member]

nope, not working

[Former Member]

hi,

in GRID_DISPLAY FM use are using gt_sort[] but i am afraid whether u r filling that before passing it to grid.

ex:

wa_sort-fieldname = 'NR'.

wa_sort-tabname = 'DISPLAY'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

APPEND wa_sort TO gt_sort.

Rgds.,

subash

[Former Member]

Hi,

I think there is no problem in do_sum..

I dont have all table which u have, so i commented some code...

but for NR its working and sum also coming..

See

*tables: but000,
*fkkvkp,
*ever,
*eanl,
*evbs,
*eanlh,
*v_ehau,
*ettifn,
*adrc,
*akkb.
TYPE-POOLS: SLIS.

DATA: LS_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
FIELDLAYOUT TYPE SLIS_LAYOUT_ALV,
LS_SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
WA_SORT TYPE SLIS_SORTINFO_ALV.

DATA: BEGIN OF DISPLAY OCCURS 0,
*partner like but000-partner,
*name_org1 like but000-name_org1,
*name_org2 like but000-name_org2,
*auszdat like ever-auszdat,
*anlage like eanl-anlage,
*sparte like eanl-sparte,
*service like eanl-service,
*eanlh_ab like eanlh-ab,
*eanlh_bis like eanlh-bis,
*tariftyp like eanlh-tariftyp,
*aklasse like eanlh-aklasse,
*operand like ettifn-operand,
*ettifn_ab like ettifn-ab,
*ettifn_bis like ettifn-bis,
*wert1 like ettifn-wert1,
*region like adrc-region,
NR TYPE I,
END OF DISPLAY.

*select-OPTIONS p_ausz for ever-auszdat.
*SELECT-OPTIONS p_anlag for eanl-anlage.
*SELECT-OPTIONS p_spart for eanl-sparte.
*SELECT-OPTIONS p_serv for eanl-service.
*SELECT-OPTIONS p_bish for eanlh-bis.
*select-OPTIONS p_aklas for eanlh-aklasse.
*select-OPTIONS p_oper for ettifn-operand.
*SELECT-OPTIONS p_ab for ettifn-ab.
*SELECT-OPTIONS p_bisn for ettifn-bis.
*SELECT-OPTIONS p_reg for adrc-region.

*select but000~partner but000~name_org1 but000~name_org2
*ever~auszdat
*eanl~anlage eanl~sparte eanl~service
*eanlh~ab eanlh~bis eanlh~tariftyp eanlh~aklasse
*ettifn~operand ettifn~ab ettifn~bis ettifn~wert1
*adrc~region
*into display from but000
*inner join fkkvkp on but000~partner = fkkvkp~gpart
*inner join ever on fkkvkp~vkont = ever~vkonto
*inner join eanl on ever~anlage = eanl~anlage
*inner join eanlh on eanl~anlage = eanlh~anlage
*inner join ettifn on eanlh~anlage = ettifn~anlage
*inner join evbs on eanl~vstelle = evbs~vstelle
*inner join v_ehau on evbs~haus = v_ehau~haus
*inner join adrc on v_ehau~addrnumber = adrc~addrnumber
*where ever~auszdat in p_ausz and
*eanl~anlage in p_anlag and
*eanl~sparte in p_spart and
*eanl~service in p_serv and
*eanlh~bis in p_bish and
*eanlh~aklasse in p_aklas and
*ettifn~operand in p_oper and
*ettifn~ab in p_ab and
*ettifn~bis in p_bisn and
*adrc~region in p_reg.

DISPLAY-NR = 1.
APPEND DISPLAY TO DISPLAY.
DISPLAY-NR = 4.
APPEND DISPLAY TO DISPLAY.

*endselect.

*sort display by partner.
*delete ADJACENT DUPLICATES FROM display.

*ls_fieldcat-fieldname = 'PARTNER'.
*ls_fieldcat-ref_fieldname = 'PARTNER'.
*ls_fieldcat-tabname = 'BUT000'.
*ls_fieldcat-seltext_l = 'Partner'.
**ls_fieldcat-col_pos = 1.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'NAME_ORG1'.
*ls_fieldcat-ref_fieldname = 'NAME_ORG1'.
*ls_fieldcat-tabname = 'BUT000'.
*ls_fieldcat-seltext_l = 'Nume 1'.
**ls_fieldcat-col_pos = 2.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'NAME_ORG2'.
*ls_fieldcat-ref_fieldname = 'NAME_ORG2'.
*ls_fieldcat-tabname = 'BUT000'.
*ls_fieldcat-seltext_l = 'Nume 2'.
**ls_fieldcat-col_pos = 3.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*
*
*ls_fieldcat-fieldname = 'AUSZDAT'.
**ls_fieldcat-ref_fieldname = 'AUSZDAT'.
**ls_fieldcat-tabname = 'EVER'.
***ls_fieldcat-seltext_l = 'AUSZDAT'.
**ls_fieldcat-col_pos = 1.
**APPEND ls_fieldcat.
**CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'ANLAGE'.
*ls_fieldcat-ref_fieldname = 'ANLAGE'.
*ls_fieldcat-tabname = 'EANL'.
*ls_fieldcat-seltext_l = 'Instalatie'.
**ls_fieldcat-col_pos = 4.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'AB'.
*ls_fieldcat-ref_fieldname = 'AB'.
*ls_fieldcat-tabname = 'EANLH'.
*ls_fieldcat-seltext_l = 'Valabi de la (cat. tarif)'.
**ls_fieldcat-col_pos = 5.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'BIS'.
*ls_fieldcat-ref_fieldname = 'BIS'.
*ls_fieldcat-tabname = 'EANLH'.
*ls_fieldcat-seltext_l = 'Valabi pana la (cat. tarif)'.
**ls_fieldcat-col_pos = 6.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'TARIFTYP'.
*ls_fieldcat-ref_fieldname = 'TARIFTYP'.
*ls_fieldcat-tabname = 'EANLH'.
*ls_fieldcat-seltext_l = 'Cat. tarif'.
**ls_fieldcat-col_pos = 7.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'AKLASSE'.
*ls_fieldcat-ref_fieldname = 'AKLASSE'.
*ls_fieldcat-tabname = 'EANLH'.
*ls_fieldcat-seltext_l = 'Clasa calcul factura'.
**ls_fieldcat-col_pos = 8.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'OPERAND'.
*ls_fieldcat-ref_fieldname = 'OPERAND'.
*ls_fieldcat-tabname = 'ETTIFN'.
*ls_fieldcat-seltext_l = 'Operand'.
**ls_fieldcat-col_pos = 9.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'AB'.
*ls_fieldcat-ref_fieldname = 'AB'.
*ls_fieldcat-tabname = 'ETTIFN'.
*ls_fieldcat-seltext_l = 'Valabi de la (operand)'.
**ls_fieldcat-col_pos = 10.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'BIS'.
*ls_fieldcat-ref_fieldname = 'BIS'.
*ls_fieldcat-tabname = 'ETTIFN'.
*ls_fieldcat-seltext_l = 'Valabi pana la (operand)'.
**ls_fieldcat-col_pos = 11.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'WERT1'.
*ls_fieldcat-ref_fieldname = 'WERT1'.
*ls_fieldcat-tabname = 'ETTIFN'.
*ls_fieldcat-seltext_l = 'Valoare operand'.
**ls_fieldcat-col_pos = 12.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.
*
*ls_fieldcat-fieldname = 'REGION'.
*ls_fieldcat-ref_fieldname = 'REGION'.
*ls_fieldcat-tabname = 'ADRC'.
*ls_fieldcat-seltext_l = 'Regiune'.
**ls_fieldcat-col_pos = 13.
*APPEND ls_fieldcat.
*CLEAR ls_fieldcat.

LS_FIELDCAT-FIELDNAME = 'NR'.
LS_FIELDCAT-REF_FIELDNAME = 'NR'.
LS_FIELDCAT-TABNAME = 'DISPLAY'.
*ls_fieldcat-ref_tabname = 'DISPLAY'.
LS_FIELDCAT-SELTEXT_L = 'Contor'.
**ls_fieldcat-col_pos = 15.
LS_FIELDCAT-DO_SUM = 'X'.
*ls_fieldcat-no_sum = ''.
APPEND LS_FIELDCAT.
CLEAR LS_FIELDCAT.

FIELDLAYOUT-COLWIDTH_OPTIMIZE = 'X'.
FIELDLAYOUT-ZEBRA = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING


I_STRUCTURE_NAME = 'display_t'
IT_FIELDCAT = LS_FIELDCAT[]
IS_LAYOUT = FIELDLAYOUT
I_CALLBACK_PROGRAM = SY-REPID
*i_callback_pf_status_set = 'PF_STATUS_SET'

I_CALLBACK_USER_COMMAND = 'PROCESARE'
IT_SORT = LS_SORT[]
TABLES
T_OUTTAB = DISPLAY
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.

*FORM pf_status_set USING extab TYPE slis_t_extab.
*DATA: wa_extab LIKE LINE OF extab.
*
*
*SET PF-STATUS 'STANDARD'.
*
*
*ENDFORM.

check other code of ur report

thanks