Rows to Column Conversion in ABAP

[Former Member]

Hi

I wanted to create a report in which I need to convert rows in to column.

e.g i have table it_zdemo contains the following values

track id carno

10 ACX711

10 PCX123

11 ACR123

11 RCD455

12 IOM566

12 LOP433

I need to print the report as follows

10 11 12

ACX711 ACR123 IOM566

PCX123 RCD455 LOP433

Any suggestions?

Regards

Vengat.G

Moderator message : Spec dumping is not allowed, search for available information. Thread locked.

Edited by: Vinod Kumar on Aug 24, 2011 4:07 PM

[Former Member]

Check the below code.

ABAP - Convert ALV Rows Into Column.

REPORT ZALV .

• Type pools declaration for ALV

TYPE-POOLS: slis.

*Declarations for ALV, dynamic table and col no for transpose

DATA: l_col TYPE sy-tabix,

l_structure TYPE REF TO data,

l_dyntable TYPE REF TO data,

wa_lvc_cat TYPE lvc_s_fcat,

lt_lvc_cat TYPE lvc_t_fcat,

lt_fieldcatalogue TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv,

lt_layout TYPE slis_layout_alv.

*Field symbols declarations

FIELD-SYMBOLS :

TYPE ANY,

TYPE ANY,

TYPE ANY,

TYPE ANY,

TYPE STANDARD TABLE,

TYPE STANDARD TABLE.

*Input the name of the table

PARAMETERS p_table TYPE dd02l-tabname OBLIGATORY.

*Initialization event

INITIALIZATION.

*Start of selection event

START-OF-SELECTION.

• Create internal table of dynamic type

CREATE DATA l_dyntable TYPE STANDARD TABLE OF (p_table)

WITH NON-UNIQUE DEFAULT KEY.

ASSIGN l_dyntable->* TO .

*select statement to select data from the table as input into

*our dynamic internal table.

*Here i have restricted only till 5 rows.

*You can set a variable and give no of rows to be fetched

*The variable can be set in your select statement

SELECT * INTO CORRESPONDING FIELDS OF TABLE

FROM (p_table) up to 5 rows.

*Fieldcatalogue definitions

wa_lvc_cat-fieldname = 'COLUMNTEXT'.

wa_lvc_cat-ref_table = 'LVC_S_DETA'.

APPEND wa_lvc_cat TO lt_lvc_cat.

wa_fieldcat-fieldname = 'COLUMNTEXT'.

wa_fieldcat-ref_tabname = 'LVC_S_DETA'.

wa_fieldcat-key = 'X'..

APPEND wa_fieldcat TO lt_fieldcat.

DESCRIBE TABLE .

DO sy-tfill TIMES.

• For each line, a column 'VALUEx' is created in the fieldcatalog

• Build Fieldcatalog

WRITE sy-index TO wa_lvc_cat-fieldname LEFT-JUSTIFIED.

CONCATENATE 'VALUE' wa_lvc_cat-fieldname

INTO wa_lvc_cat-fieldname.

wa_lvc_cat-ref_field = 'VALUE'.

wa_lvc_cat-ref_table = 'LVC_S_DETA'.

APPEND wa_lvc_cat TO lt_lvc_cat.

• Build Fieldcatalog

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = wa_lvc_cat-fieldname.

wa_fieldcat-ref_fieldname = 'VALUE'.

wa_fieldcat-ref_tabname = 'LVC_S_DETA'.

APPEND wa_fieldcat TO lt_fieldcat.

ENDDO.

• Create dynamic internal table

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = lt_lvc_cat

IMPORTING

ep_table = l_dyntable. ASSIGN l_dyntable->* TO .

• Create structure as structure of the internal table

CREATE DATA l_structure LIKE LINE OF .

ASSIGN l_structure->* TO.

• Create structure = structure of the internal table

CREATE DATA l_structure LIKE LINE OF .

ASSIGN l_structure->* TO .

• Create field catalog from our table structure

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_structure_name = p_table

CHANGING

ct_fieldcat = lt_fieldcatalogue

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

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

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

ENDIF.

DESCRIBE TABLE lt_fieldcatalogue.

• Fill the internal to display

DO sy-tfill TIMES.

IF sy-index = 1.

READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX 1.

ENDIF.

• For each field of it_table

ASSIGN COMPONENT 1 OF STRUCTURE

TO .

IF sy-subrc NE 0.

EXIT .

ENDIF.

READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX sy-index.

• Fill 1st column

= wa_fieldcat-seltext_m.

IF IS INITIAL.

= wa_fieldcat-fieldname.

ENDIF.

*Filling the other columns

LOOP AT INTO .

l_col = sy-tabix + 1.

ASSIGN COMPONENT sy-index OF STRUCTURE TO .

IF sy-subrc NE 0. EXIT .ENDIF.

ASSIGN COMPONENT l_col OF STRUCTURE

TO.

IF sy-subrc NE 0.

EXIT .

ENDIF.

WRITE TO LEFT-JUSTIFIED.

ENDLOOP.

APPEND

TO .

ENDDO.

*Layout for ALV output

lt_layout-zebra = 'X'.

lt_layout-no_colhead = 'X'..

lt_layout-colwidth_optimize ='X'.

lt_layout-window_titlebar = 'ALV GRID TRANSPOSED'.

*ALV Grid output for display

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

is_layout = lt_layout

it_fieldcat = lt_fieldcat

TABLES

t_outtab = .

[Former Member]

Check this link <Link removed by moderator>

Edited by: Vinod Kumar on Aug 24, 2011 4:08 PM