SPLIT ALV Output-Line

Hi,
is it possible to split a Line in REUSE_ALV_LIST_DISPLAY?
Example Normal:
Line 1: MATNR MAKTX ZEINR ...
I want to have:
Line 1: MATNR MAKTX
Line 2: ZEINR
I don't want to use a Hierachie
thanks for help
Regards, Dieter

Hi,
you can try with the Hierarchial alv list using the Fm <b>REUSE_ALV_HIERSEQ_LIST_DISPLAY</b>, also try to have a look in the Demo program <b>BALVHD01</b>.
Regards
vijay

Similar Messages

Need to read text from FM 'BBP_PD_CONF_GETDETAIL' in a single line of ALV output

s
Hello Gurus, I have to read the attached text in which TDID and TDLINE need to read.Here i need to write logic like that in ALV output text of TDLINE related to TDID Htxt come in single line if there is more than 1 line used , same for NOTE and Itxt. Please help me out with some ogic to show data in alv output. I have used FM 'BBP_PD_CONF_GETDETAIL'. Thanks Sankil
TDID TDLINE HTXT Supplier Text HTXT Supplier Text NOTE Note NOTE Note ITXT Supplier Text ITXT Supplier Text NOTE Note NOTE Note

Hello Sankil
This can be achieved by using event AFTER_LINE_OUTPUT and also search with keyword AFTER_LINE_OUTPUT to get more examples
Please go through the below tutorial.
http://www.****************/Tutorials/ALV/Wordwrap/Index.htm
Thanks

How to insert blank lines in the ALV output.

Hi Friends,
Could any body help me out How to insert blank lines in the ALV output.?? Any Code pls...
Thank you,
Vikram.C

hi vikram
do like this
In the fieldcatalog table all the fields should be in editable mode
ie lw_fcat-edit = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
is_layout = lv_layout
it_fieldcat = lt_fcat[]
i_save = 'A'
is_variant = lv_variant
TABLES
t_outtab = lt_license[]
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.
ENDFORM. " display_data
*& Form user_command
FORM user_command USING r_ucomm TYPE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN 'ADD'. "
data: lv_ind type i.
data: lv_line type i.
describe table lt_license lines lv_line.
loop at lt_license into lw_license.
lv_ind = sy-tabix.
if lv_ind = lv_line.
append initial line to lt_license.
endif.
endloop.
ENDCASE.
ENDFORM. "user_command
reward points if useful
Rohan

How to create blank line in alv output

Hi all,
Iam getting alv output with currency values like below
text1    20.0 10.0 30.0
text2    25.0 11.0 30.0
text3    27.0 19.0 30.0
text1    24.0 18.0 30.0
text2    27.0 16.0 30.0
text3    29.0 15.0 30.0
text1    23.0 17.0 30.0
text2    22.0 13.0 30.0
text3    21.0 14.0 30.0
and so on...
My requirement is to create blank line after text3. Since its currency field even i claer work area iam able to get 0.0.
If i use no-zero in field catalog i will be able to get blank values for all 0.0, but thats not required.
Can u help me out how to crate blank line after one set of values(text1, text2, text3) in alv display
Thanks

Hi,
If i use no-zero, then all 0.0 will be replaced by blank, but that is not required.
I want only blank line to be displayed after set of line items.
Skip doesn't help in alv. Secondly if i append blank work area i will be getting 0.0 as it is a currency field.

Editable Checkbox and select the checked line in ALV output

HI,
I am looking for an ALV output using LIST_DISPLAY with an editable check box in each item in the output.It should be editable and also the line which is checked should be selected for further action.
Can you please help...
Thanks in Advance
Regards,
Gangolu

Hi
1) Declare your intertable with a field named <CHECK>.
For example:
data: begin of i_sales occurs 0,
             matnr like vbap-matnr,
             erdat like vbak-erdat,
             check type c, "checkbox
end of i_sales.
2) In your field catalog, put the first column as check box like below:
v_fieldcat-col_pos = 1.
v_fieldcat-fieldname = 'CHECK'.
v_fieldcat-seltext_m = 'check'.
v_fieldcat-checkbox = 'X'.
v_fieldcat-input = 'X'.
v_fieldcat-edit = 'X'.
append v_fieldcat to gt_fieldcat.
3) Call function 'REUSE_ALV_GRID_DISPLAY'
    FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
            I_CALLBACK_PROGRAM = sy-repid
            I_CALLBACK_PF_STATUS_SET = 'GUI_SET'
           I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
4) You must have a form called <USER_COMMAND> if you want to select that line and perform some action on it
Example:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM R_SELFIELD TYPE SLIS_SELFIELD.
Case R_UCOMM.
endcase
Regards
Dean Q.

Total is not getting displayed in the ALV output.

Hi,
Total is not getting displayed in the ALV output.
I m using :REUSE_ALV_BLOCK_LIST_APPEND & REUSE_ALV_BLOCK_LIST_DISPLAY
Are there any issues with it as the same settings are working fine with REUSE_ALV_LIST_DISPLAY
source code:
DATA: layout TYPE slis_layout_alv,
      IT_eventS TYPE slis_t_event,
      fcat   TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      rec_fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
TYPES: BEGIN OF ty_tab,
      belnr TYPE dberchz-belnr,
      belzart TYPE dberchz-belzart,
      net TYPE dberchz-nettobtr,
      END OF ty_tab.
DATA: lt_tab TYPE STANDARD TABLE OF ty_tab.
SELECT belnr belzart nettobtr
FROM dberchz
INTO TABLE lt_tab[]
WHERE belnr eq '000000000001'.
if sy-subrc ne 0.
ENDIF.
* defining layout
layout-colwidth_optimize = 'X'.
layout-def_status = 'X'.
*defning event
*event
*defining field catalog
fcat-col_pos = 1.
fcat-fieldname = 'BELNR'.
fcat-tabname = 'LT_TAB'.
APPEND fcat.
fcat-col_pos = 2.
fcat-fieldname = 'BELZART'.
fcat-tabname = 'LT_TAB'.
APPEND fcat.
fcat-col_pos = 3.
fcat-fieldname = 'NET'.
fcat-tabname = 'LT_TAB'.
fcat-do_sum = 'X'.
APPEND fcat.
*calling alv
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
    i_callback_program             = 'YZ_PLR'
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IT_EXCLUDING                   =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
    is_layout                        = layout
    it_fieldcat                      = fcat[]
    i_tabname                        = 'LT_TAB'
    it_events                        = IT_EVENTS[]
*   IT_SORT                          =
*   I_TEXT                           = ' '
tables
    t_outtab                         = lt_tab[]
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
Thanks,
Gaurav

Hi
No I don't think, this is my code (based on your code) and it works fine:
TYPE-POOLS SLIS.
DATA: BEGIN OF LT_TAB OCCURS 0,
       BELNR LIKE BSEG-BELNR,
       GJAHR LIKE BSEG-GJAHR,
       WRBTR LIKE BSEG-WRBTR,
       WAERS LIKE BKPF-WAERS,
      END OF LT_TAB.
DATA: LAYOUT     TYPE SLIS_LAYOUT_ALV,
      IT_EVENTS TYPE SLIS_T_EVENT,
      FCAT       TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      REC_FCAT   TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
START-OF-SELECTION.
FCAT-COL_POS       = 1.
FCAT-FIELDNAME     = 'BELNR'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-REF_FIELDNAME = 'BELNR'.
FCAT-REF_TABNAME   = 'BSEG'.
APPEND FCAT.
FCAT-COL_POS       = 2.
FCAT-FIELDNAME     = 'GJAHR'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-REF_FIELDNAME = 'GJAHR'.
FCAT-REF_TABNAME   = 'BSEG'.
APPEND FCAT.
FCAT-COL_POS       = 3.
FCAT-FIELDNAME     = 'WRBTR'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-CFIELDNAME    = 'WAERS'.
FCAT-REF_FIELDNAME = 'WRBTR'.
FCAT-REF_TABNAME   = 'BSEG'.
FCAT-DO_SUM        = 'X'.
APPEND FCAT.
FCAT-COL_POS       = 4.
FCAT-FIELDNAME     = 'WAERS'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-REF_FIELDNAME = 'WAERS'.
FCAT-REF_TABNAME   = 'BKPF'.
FCAT-DO_SUM        = SPACE.
APPEND FCAT.
SELECT * FROM BSEG INTO CORRESPONDING FIELDS OF TABLE LT_TAB
    WHERE BUKRS = 'MAAB'
      AND BELNR = '0000000001'.
LT_TAB-WAERS = 'EUR'.
MODIFY LT_TAB FROM LT_TAB TRANSPORTING WAERS WHERE WAERS = SPACE.
*CALLING ALV
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
    EXPORTING
      I_CALLBACK_PROGRAM = 'ZPROVAMAX5'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT   = LAYOUT
      IT_FIELDCAT = FCAT[]
      I_TABNAME   = 'LT_TAB'
      IT_EVENTS   = IT_EVENTS[]
    TABLES
      T_OUTTAB    = LT_TAB[].
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.
I've also inserted a currency field
Max

ALV output converted into PDF format and send that PDF to user through mail

Hi Experts,
I have report earlier its output was in alv grid.
Now i want that ALV output converted into PDF format.And that PDF output send to user through mail.
Can u please tell how to do?
My code is here(output is displaying in ALV grid).
INCLUDE <icon>.
TYPE-POOLS: slis, kkblo.
TABLES : zmsd_freight_hdr, zmsd_freight_det, zmsd_blinfo, zmsd_diheader.
TABLES : lfa1.
DATA : t_hdr   LIKE   zmsd_freight_hdr   OCCURS 0 WITH HEADER LINE,
       T_DET   LIKE   ZMSD_FREIGHT_DET   OCCURS 0 WITH HEADER LINE,
       t_bl    LIKE   zmsd_blinfo        OCCURS 0 WITH HEADER LINE,
       t_di    LIKE   zmsd_diheader      OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_det OCCURS 0.
        INCLUDE STRUCTURE zmsd_freight_det.
DATA    type(30).
DATA: END OF t_det.
DATA: v_target2(30),
      v_zsammg LIKE t_det-zsammg,
      v_gsttotal LIKE t_det-zamount.
DATA : BEGIN OF t_data OCCURS 0,
         zsammg       LIKE zmsd_freight_hdr-zsammg,
         zdidbl       LIKE zmsd_freight_hdr-zdidbl,
         zvkorg       LIKE zmsd_freight_hdr-zvkorg,
         zinvno       LIKE zmsd_freight_hdr-zinvno,
         zttlamt      LIKE zmsd_freight_hdr-zttlamt,
         zstatus      LIKE zmsd_freight_hdr-zstatus,
         ztype        LIKE zmsd_freight_hdr-ztype,
         zconfirm     LIKE zmsd_freight_hdr-zconfirm,
         zconfirmdate LIKE zmsd_freight_hdr-zconfirmdate,
         erdat        LIKE zmsd_freight_hdr-erdat,
         ernam        LIKE zmsd_freight_hdr-ernam,
         erzet        LIKE zmsd_freight_hdr-erzet,
         aedat(10),
         aenam        LIKE zmsd_freight_hdr-aenam,
         aezet        LIKE zmsd_freight_hdr-aezet,
         zline        LIKE zmsd_freight_det-zline,
         zfptype      LIKE zmsd_freight_det-zfptype,
         zchrcode     LIKE zmsd_freight_det-zchrcode,
         zcurcode     LIKE zmsd_freight_det-zcurcode,
         zqty         LIKE zmsd_freight_det-zqty,
         zuom         LIKE zmsd_freight_det-zuom,
         zrate        LIKE zmsd_freight_det-zrate,
         zamount      LIKE zmsd_freight_det-zamount,
         zexrate      LIKE zmsd_freight_det-zexrate,
       zccode       LIKE zmsd_blinfo-zccode,      "MADK991565
         zccode       like ZMSD_FREIGHT_HDR-zfcode, "MADK991565
         zbldate(10),
         zbl          LIKE zmsd_blinfo-zbl,
         type(3),
         waerk        LIKE zmsd_freight_det-zcurcode,
         zamountl     LIKE zmsd_freight_det-zamount,
       END OF t_data.
DATA : w_layout      TYPE   slis_layout_alv,
       w_catalog     TYPE   slis_fieldcat_alv,
       t_catalog     TYPE   slis_t_fieldcat_alv,
       w_sort        TYPE   slis_sortinfo_alv,
       t_sort        TYPE   slis_t_sortinfo_alv.
DATA   V_ZINVNO    like   T_HDR-ZINVNO.                   "MADK991565
DATA : v_count TYPE i.
SELECTION-SCREEN BEGIN OF BLOCK a0 WITH FRAME TITLE text-001.
PARAMETERS     : p_zvkorg LIKE zmsd_freight_hdr-zvkorg OBLIGATORY .
SELECT-OPTIONS : s_zdidbl FOR zmsd_freight_hdr-zdidbl             ,
                  s_zccode FOR lfa1-lifnr                          ,
                  s_status FOR zmsd_freight_hdr-zstatus            ,
                  s_ztype FOR zmsd_freight_hdr-ztype              ,
                  s_erdat FOR zmsd_freight_hdr-erdat              ,
                  s_ernam FOR zmsd_freight_hdr-ernam              ,
                  s_zconfd FOR zmsd_freight_hdr-zconfirmdate       .
PARAMETERS     : p_zconf AS   CHECKBOX                            .
SELECTION-SCREEN END OF BLOCK a0.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-002.
PARAMETERS     : p_hdr    RADIOBUTTON GROUP rad DEFAULT 'X'        ,
                  p_det    RADIOBUTTON GROUP rad                    .
SELECTION-SCREEN END OF BLOCK a1.
INITIALIZATION.
AT SELECTION-SCREEN.
START-OF-SELECTION.
PERFORM get_data.
PERFORM process.
PERFORM display.
END-OF-SELECTION.
PERFORM fm_get_num_pages.
AT USER-COMMAND.
AT LINE-SELECTION.
TOP-OF-PAGE.
PERFORM fm_top_of_page USING '7010' sy-title space.
FORM get_data.
SELECT   *
    FROM   zmsd_freight_hdr
    INTO   TABLE t_hdr
   WHERE   zvkorg        EQ p_zvkorg
     AND   zdidbl        IN s_zdidbl
     AND   zstatus       IN s_status
     AND   ztype         IN s_ztype
     AND   erdat         IN s_erdat
     AND   ernam         IN s_ernam
     AND   zconfirmdate IN s_zconfd
     AND   ZFCODE        IN S_ZCCODE.                      "MADK991565
IF p_zconf = 'X'.
    DELETE t_hdr WHERE zconfirm NE 'C'.
ENDIF.
CHECK NOT t_hdr[] IS INITIAL.
SELECT   *
    FROM   zmsd_blinfo
    INTO   TABLE t_bl
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg.
SORT t_bl BY zsammg.
SELECT   *
    FROM   zmsd_diheader
    INTO   TABLE t_di
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg.
SORT t_di BY zsammg.
IF P_DET = 'X'. "MADK933361
SELECT   *
    FROM   zmsd_freight_det
    INTO   TABLE t_det
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg
   AND ZINVNO = T_HDR-ZINVNO .                           "MADK991565
SORT t_det BY zsammg zline.                            "MADK991565
   SORT T_DET BY ZSAMMG ZINVNO ZLINE.                     "MADK991565
ENDIF. "MADK933361
ENDFORM.
FORM process.
REFRESH t_data.
CLEAR v_gsttotal.                                         "MADK933361
LOOP AT t_hdr.
Start of MADK933361
    CLEAR: v_target2.
    v_zsammg = t_hdr-zsammg.
    V_ZINVNO = T_HDR-ZINVNO.                                "MADK991565
   AT NEW zsammg.                                         "MADK991565
     AT NEW ZINVNO.                                         "MADK991565
      PERFORM get_gst_value.
    ENDAT.
End of MADK933361
    PERFORM move_header.
    CHECK t_data-zccode IN s_zccode.
    IF p_det = 'X'.
CSF Project Changes Starts   DEV34    MADK985782
    LOOP AT T_DET WHERE ZSAMMG = T_HDR-ZSAMMG..
      LOOP AT t_det WHERE zsammg = t_hdr-zsammg AND
                          zinvno = t_hdr-zinvno.
CSF Project Changes Ends     DEV34    MADK985782
        PERFORM move_header.
        CHECK t_data-zccode IN s_zccode.
        MOVE-CORRESPONDING t_det TO t_data.
        t_data-zamountl = t_data-zamount * t_data-zexrate.
        APPEND t_data.
        CLEAR t_data.
      ENDLOOP.
    ELSE.
      APPEND t_data.
      CLEAR t_data.
    ENDIF.
    AT END OF zsammg.
      CLEAR v_gsttotal.
    ENDAT.
*Start of changes for IS090901289-PIA MADK991565
    AT END OF ZINVNO.
      CLEAR V_GSTTOTAL.
    ENDAT.
*End of changes for IS090901289-PIA MADK991565
ENDLOOP.
ENDFORM.
FORM move_header.
MOVE-CORRESPONDING t_hdr TO t_data.
t_data-zttlamt = t_data-zttlamt + v_gsttotal.             "MADK933361
t_data-waerk = 'SGD'.
IF NOT t_hdr-aedat IS INITIAL.
    WRITE: t_hdr-aedat TO t_data-aedat.
ELSE.
    CLEAR : t_data-aedat.
ENDIF.
READ TABLE t_bl WITH KEY zsammg = t_hdr-zsammg BINARY SEARCH.
IF sy-subrc EQ 0.
t_data-zccode = t_bl-zccode.   "MADK991565
    T_DATA-ZCCODE = T_HDR-ZFCODE.   "MADK991565
    IF NOT t_bl-zbldate IS INITIAL.
      WRITE: t_bl-zbldate TO t_data-zbldate.
    ENDIF.
    t_data-zbl     = t_bl-zbl.
    t_data-type    = 'DBL'.
ELSE.
    READ TABLE t_di WITH KEY zsammg = t_hdr-zsammg BINARY SEARCH.
    IF sy-subrc EQ 0.
    t_data-zccode = t_di-zdiforcode.     "MADK991565
      T_DATA-ZCCODE = T_HDR-ZFCODE.         "MADK991565
      t_data-type    = 'DI'.
    ENDIF.
ENDIF.
ENDFORM.
FORM display.
IF t_data[] IS INITIAL.
    MESSAGE s398(00) WITH 'No Data Selected'.
    EXIT.
ENDIF.
DATA : l_repid LIKE sy-repid.
l_repid = sy-repid.
REFRESH t_catalog.
CLEAR   t_catalog.
w_layout-cell_merge = 'X'.
PERFORM map_fields.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = l_repid
            i_callback_user_command = 'ALV_USER_COMMAND'
            is_layout               = w_layout
            it_fieldcat             = t_catalog[]
            i_grid_title            = sy-title
            i_save                  = 'A'
            it_sort                 = t_sort[]
       TABLES
            t_outtab                = t_data
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.
FORM map_fields.
Sort Order
CLEAR v_count.
PERFORM sf USING 'ZDIDBL'   'X' 'X'.
Fields to be displayed
CLEAR v_count.
IF p_hdr = 'X'.
    PERFORM af USING :
   DESCRIPTION       FIELD        LEN   RTABLE             RFIELD
    'DI/DBL         ' 'ZDIDBL'     '14' '                ' '        ',
    'Type           ' 'TYPE'       '04' '                ' '        ',
    'Forwarder Code ' 'ZCCODE'     '14' '                ' '        ',
    'BL Number      ' 'ZBL'        '14' '                ' '        ',
    'BL Date        ' 'ZBLDATE'    '10' '                ' '        ',
    'Invoice Number ' 'ZINVNO'     '15' '                ' '        ',
    'Extraction     ' 'ZSTATUS'    '05' 'ZMSD_FREIGHT_HDR' 'ZSTATUS ',
    'Freight Type   ' 'ZTYPE'      '05' 'ZMSD_FREIGHT_HDR' 'ZTYPE   ',
    'Confirmation   ' 'ZCONFIRM'   '05' 'ZMSD_FREIGHT_HDR' 'ZCONFIRM',
    'Confirm Date   ' 'ZCONFIRMDATE' '10' 'ZMSD_FREIGHT_HDR'
'ZCONFIRMDATE',
    'Total Amount   ' 'ZTTLAMT'    '18' '                ' '        ',
    'Created On     ' 'ERDAT'      '10' '                ' '        ',
    'Created By     ' 'ERNAM'      '10' '                ' '        ',
    'Changed On     ' 'AEDAT'      '10' '                ' '        ',
    'Changed By     ' 'AENAM'      '10' '                ' '        '.
ELSE.
    PERFORM af USING :
   DESCRIPTION         FIELD     LEN   RTABLE             RFIELD
    'DI/DBL           ' 'ZDIDBL'   '14' '                ' '        ',
    'Type             ' 'TYPE'     '04' '                ' '        ',
    'Forwarder Code   ' 'ZCCODE'   '14' '                ' '        ',
    'BL Number        ' 'ZBL'      '14' '                ' '        ',
    'BL Date          ' 'ZBLDATE' '10' '                ' '        ',
    'Invoice Number   ' 'ZINVNO'   '15' '                ' '        ',
    'Extraction       ' 'ZSTATUS' '05' 'ZMSD_FREIGHT_HDR' 'ZSTATUS ',
    'Freight Type     ' 'ZTYPE'    '05' 'ZMSD_FREIGHT_HDR' 'ZTYPE   ',
    'Confirmation     ' 'ZCONFIRM' '05' 'ZMSD_FREIGHT_HDR' 'ZCONFIRM',
    'Confirm Date     ' 'ZCONFIRMDATE' '10' 'ZMSD_FREIGHT_HDR'
'ZCONFIRMDATE',
    'Total Amount     ' 'ZTTLAMT' '18' '                ' '        ',
    'Freight Payment ' 'ZFPTYPE' '14' '                ' '        ',
    'Charge Code      ' 'ZCHRCODE' '10' '                ' '        ',
    'Currency         ' 'ZCURCODE' '08' '                ' '        ',
    'Quantity         ' 'ZQTY'     '13' '                ' '        ',
    'UoM              ' 'ZUOM'     '04' '                ' '        ',
    'Rate             ' 'ZRATE'    '15' '                ' '        ',
    'Amt(Foreign Curr)' 'ZAMOUNT' '16' '                ' '        ',
    'Exchange Rate    ' 'ZEXRATE' '13' '                ' '        ',
    'Amt(Local Curr) ' 'ZAMOUNTL' '16' '                ' '        ',
    'Created On       ' 'ERDAT'    '10' '                ' '        ',
    'Created By       ' 'ERNAM'    '10' '                ' '        ',
    'Changed On       ' 'AEDAT'    '10' '                ' '        ',
    'Changed By       ' 'AENAM'    '10' '                ' '        '.
ENDIF.
ENDFORM.
FORM af USING text
              field
              len
              table
              reffield.
v_count = v_count + 1.
w_catalog-col_pos       = v_count.
w_catalog-fieldname     = field.
w_catalog-ref_tabname   = table.
w_catalog-ref_fieldname = reffield.
w_catalog-seltext_s     = text.
w_catalog-seltext_m     = text.
w_catalog-seltext_l     = text.
w_catalog-outputlen     = len.
IF field = 'ZTTLAMT' OR field = 'ZAMOUNTL'.
    w_catalog-no_zero     = 'X'.
    w_catalog-cfieldname = 'WAERK'.
    w_catalog-datatype    = 'CURR'.
ENDIF.
IF FIELD = 'ZRATE' OR FIELD = 'ZAMOUNT'.
IF field = 'ZAMOUNT'.
    w_catalog-no_zero     = 'X'.
    w_catalog-cfieldname = 'ZCURCODE'.
    w_catalog-datatype    = 'CURR'.
ENDIF.
IF field = 'ZQTY' OR field = 'ZRATE'.
    w_catalog-no_zero     = 'X'.
    w_catalog-datatype = 'DEC'.
ENDIF.
APPEND w_catalog TO t_catalog.
CLEAR w_catalog.
ENDFORM.
FORM sf    USING   fieldname sortup group.
v_count = v_count + 1.
CLEAR w_sort.
w_sort-fieldname = fieldname.
w_sort-spos      = v_count.
w_sort-up        = sortup.
w_sort-group     = group.
APPEND w_sort TO t_sort.
ENDFORM.
FORM alv_user_command USING in_ucomm    LIKE sy-ucomm
                             in_selfield TYPE slis_selfield.
DATA: lfs_data LIKE t_data.
IF in_ucomm = '&IC1'.
    READ TABLE t_data INDEX in_selfield-tabindex INTO lfs_data.
    CHECK NOT lfs_data-zdidbl IS INITIAL.
    IF lfs_data-type = 'DBL'.
      DATA: l_zdbl LIKE zmsd_diheader-zdinum.
      l_zdbl = in_selfield-value.
      EXPORT l_zdbl TO MEMORY ID 'VBL'.
      CALL TRANSACTION 'ZMSD_BL01'.
    ENDIF.
    IF lfs_data-type = 'DI'.
      DATA: v_dinum LIKE zmsd_diheader-zdinum.
      v_dinum = in_selfield-value.
      EXPORT v_dinum TO MEMORY ID 'VDI'.
      CALL TRANSACTION 'ZMSD_DI01'.
    ENDIF.
ENDIF.
ENDFORM.
FORM get_gst_value.
LOOP AT t_det WHERE zsammg = v_zsammg
     AND ZINVNO = V_ZINVNO.                              "MADK991565
    CHECK t_data-zccode IN s_zccode.
    t_det-zamount = t_det-zamount * t_det-zexrate.
    SELECT SINGLE y0mmtarget2
            INTO   v_target2
            FROM   y0mmipstranslate
            WHERE y0mmdatatype = '70' AND
                   y0mmsource = t_det-zchrcode.
    SELECT SINGLE y0mmtarget1
           INTO   t_det-type
           FROM   y0mmipstranslate
           WHERE y0mmdatatype = '76' AND
                  y0mmsource = v_target2.
    IF t_det-type NE '3Z'.
      v_gsttotal    = v_gsttotal +
                           ( t_det-zamount * 5 / 100 ).
    ENDIF.
ENDLOOP.
Regards,
Raj.

Hello,
Following is the procedure to convert alv output to spool and then it to PDF Format.
After we display the ALV, we can check whether it is running in the background using system field u2018sy-batchu2018. Then,we call an function module named u2018GET_JOB_RUNTIME_INFOu2019 to get the current job information. Then go to spool request table tbtcp to get the spool id.
Get current job details
CALL FUNCTION u2018GET_JOB_RUNTIME_INFOu2019
       IMPORTING
            eventid                 = gd_eventid
            eventparm               = gd_eventparm
            external_program_active = gd_external_program_active
            jobcount                = gd_jobcount
            jobname                 = gd_jobname
            stepcount               = gd_stepcount
       EXCEPTIONS
            no_runtime_info         = 1
            OTHERS                  = 2.
SELECT * FROM tbtcp
                 INTO TABLE it_tbtcp
                 WHERE      jobname     = gd_jobname
                           AND jobcount = gd_jobcount
                           AND stepcount = gd_stepcount
                           AND listident <> u20180000000000u2032
                           ORDER BY   jobname
                                               jobcount
                                               stepcount.
READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
Finally, we can call function module u2018CONVERT_ABAPSPOOLJOB_2_PDFu2018 to convert spool reqeust(which is stored in OTF format) to PDF format. Then we can call either function module u2018SO_DOCUMENT_SEND_API1u2032 or SAP BCS (Business Communication Service) to send the pdf as an email attachment.
CALL FUNCTION u2018CONVERT_ABAPSPOOLJOB_2_PDFu2019
       EXPORTING
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       IMPORTING
            pdf_bytecount = gd_bytecount
       TABLES
            pdf = it_pdf_output
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed = 11
            OTHERS                   = 12.
Regards,
Sayali
Edited by: Sayali Paradkar on Apr 20, 2010 12:51 PM

How to display the data in PDF format : problem is splitting into 2 lines

Hi ,
I developed one report which downloads the data into PDF format and saved in C drive but my problem is
in my program : Line size of the report is 255 in PDF it is splitting into 2 lines. it has to show in a single line. how to do it. how to reduce the width of the output? i am sending my code below. anybody can suggest me how to do it. if possible please send me the code.
my code:
report zmaheedhar.
maheedhar-start
TABLES : vbak.
parameters : p_vbeln type vbak-vbeln.
data : begin of itab occurs 0,
        vbeln type vbak-vbeln,
        ERDAT type vbak-erdat,
        ERZET type vbak-erzet,
        ERNAM type vbak-ernam,
        ANGDT type vbak-angdt,
        BNDDT type vbak-bnddt,
        AUDAT type vbak-audat,
        VBTYP type vbak-vbtyp,
        TRVOG type vbak-trvog,
        AUART type vbak-auart,
        AUGRU type vbak-augru,
        GWLDT type vbak-gwldt,
        SUBMI type vbak-submi,
        LIFSK type vbak-lifsk,
        FAKSK type vbak-faksk,
        NETWR type vbak-netwr,
        WAERK type vbak-waerk,
        VKORG type vbak-vkorg,
       end of itab.
maheedhar-end
DATA: pripar TYPE pri_params,
      arcpar TYPE arc_params,
      lay TYPE pri_params-paart,
      lines TYPE pri_params-linct,
      rows TYPE pri_params-linsz.
DATA: val(1), val1(1).
*---> Local Printer Name defined in SAP, Change NHREMOTE to your local printer
DATA: dest TYPE pri_params-pdest VALUE 'ZNUL'.
DATA: name TYPE pri_params-plist VALUE 'Testing'.
DATA: i_pdf TYPE STANDARD TABLE OF tline.
DATA: spono TYPE tsp01-rqident.
maheedhar-start
top-of-page.
write: 'Sales Document' , 'C Date', 'Entry time', 'Created By','Quotation date',
       'Date','Document Date','SD document category','Transaction group','Sales Document Type',
       'Order reason'.
start-OF-SELECTION.
      select vbeln ERDAT ERZET ERNAM ANGDT BNDDT AUDAT
              VBTYP TRVOG AUART AUGRU GWLDT SUBMI LIFSK
              FAKSK NETWR WAERK VKORG from vbak
        into table itab
        where vbeln = p_vbeln.
maheedhar-end
--- Retreive local printer details
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
    destination            = dest
    no_dialog              = 'X'
    immediately            = ' '
IMPORTING
    out_archive_parameters = arcpar
    out_parameters         = pripar
    valid                  = val
    valid_for_spool_creation = val1
EXCEPTIONS
    archive_info_not_found = 1
    invalid_print_params   = 2
    invalid_archive_params = 3
    OTHERS                 = 4.
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.
*-- Set Spool printer details w.r.t local printer
pripar-prdsn = 'DSN'.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
    in_archive_parameters    = arcpar
    in_parameters            = pripar
    no_dialog                = 'X'
    list_name                = name
IMPORTING
    out_archive_parameters   = arcpar
    out_parameters           = pripar
    valid                    = val
    valid_for_spool_creation = val1
EXCEPTIONS
    archive_info_not_found   = 1
    invalid_print_params     = 2
    invalid_archive_params   = 3
    OTHERS                   = 4.
IF sy-subrc EQ 0.
---> Triggers the spool creation in the sense all the write statements from hereon will be written to spool instead of screen
NEW-PAGE PRINT ON
NEW-SECTION
PARAMETERS pripar
ARCHIVE PARAMETERS arcpar
NO DIALOG.
ELSE.
WRITE:/ 'Unable to create spool'.
ENDIF.
*--- Output statements
*WRITE:/ 'First Line', 'mahee','lklk','kikik','lokiuj','fffff','kijuyh','fgfgfgfg','gtgtgtgtgtgtgtgtggggggggggggggggggggggggggggggg'.
*WRITE:/ 'Second Line'.
LOOP at itab.
write: itab-vbeln,
        itab-ERDAT,
        itab-ERZET,
        itab-ERNAM,
        itab-ANGDT,
        itab-BNDDT,
        itab-AUDAT,
        itab-VBTYP.
ENDLOOP.
"---> Close spool
NEW-PAGE PRINT OFF.
spono = sy-spono.
Convert ABAP Spool to PDF
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
    src_spoolid                    = spono
    no_dialog                      = 'X'
TABLES
   pdf                            = i_pdf
EXCEPTIONS
   err_no_abap_spooljob           = 1
   err_no_spooljob                = 2
   err_no_permission              = 3
   err_conv_not_possible          = 4
   err_bad_destdevice             = 5
   user_cancelled                 = 6
   err_spoolerror                 = 7
   err_temseerror                 = 8
   err_btcjob_open_failed         = 9
   err_btcjob_submit_failed       = 10
   err_btcjob_close_failed        = 11
   OTHERS                         = 12.
Download PDF contents to presentation server
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    filename                        = 'c:\test.pdf'
    filetype                        = 'BIN'
TABLES
    data_tab                        = i_pdf
EXCEPTIONS
   file_write_error                = 1
   no_batch                        = 2
   gui_refuse_filetransfer         = 3
   invalid_type                    = 4
   no_authority                    = 5
   unknown_error                   = 6
   header_not_allowed              = 7
   separator_not_allowed           = 8
   filesize_not_allowed            = 9
   header_too_long                 = 10
   dp_error_create                 = 11
   dp_error_send                   = 12
   dp_error_write                  = 13
   unknown_dp_error                = 14
   access_denied                   = 15
   dp_out_of_memory                = 16
   disk_full                       = 17
   dp_timeout                      = 18
   file_not_found                  = 19
   dataprovider_exception          = 20
   control_flush_error             = 21
   OTHERS                          = 22.
thanks,
maheedhar

hi tripat,
actual problem is what u said it is decreased the wiidht of the output.
now the output is:
Sales Document C Date Entry time Created By Quotation date Date Document Date
SD document category Transaction group Sales Document Type Order reason
62741 07/29/1996 11:54:38 DARLENE 00/00/0000 00/00/0000 07/29/1996 C
actual output is:
output should come in a single line. it is splitting into 2 lines.
thanks,
maheedhar

How to get rid of the loop in ALV output from At selection screen event?

I have several push buttons on a selection screen.
Clikc on a button, then it pops up an editable ALV report. (This gets triggered AT SELECTION SCREEN event.). REUSE_ALV_GRID_DISPLAY_LVC..
On the ALV output, I enabled F4 for a couple of fields. Once I click on the F4 button, ONF4 method gets triggerd and a pop up appears with custom search helps.
choose a line and it fills the cell.
Upto this it works fine.
Now I click on the BACK button at the ALV output, it takes me to the selection screen. I click on the button again, it show the editable ALV. Now when I click on the F4 button, the pop up comes up twice and the cell gets filled from the second pop - up.
How to control this?
Probably I am not refreshing something?
(I am using REUSE_ALV_GRID_DISPLAY_LVC and tooks ome code for ONF4 event from BCALV_*DATATYPES (forgot the exact name) program.)
Thanks,
Ven

Hi,
FORM refresh_grid USING pw_grid TYPE REF TO cl_gui_alv_grid.
*Work area
DATA : wal_stable TYPE lvc_s_stbl.
CHECK NOT pw_grid IS INITIAL.
wal_stable-col = c_check.
wal_stable-row = c_check.
*Method to refresh grid
CALL METHOD pw_grid->refresh_table_display
       EXPORTING
         is_stable      = wal_stable
         i_soft_refresh = c_check
       EXCEPTIONS
         finished       = 1
         OTHERS         = 2.
ENDFORM.                    " refresh_grid
Thanks,
Sree.

Clearing of ALV output is not happening in one side of the output.

Hi All,
I have created a simple upload program and using a Post button I am posting the Material Document. I have uploaded the file, I am using a ALV splitter to display the output ( Line Item in left panel and Message log in the right panel).
If I upload another Excel file on the same screen, and click on 'Upload' button, left panel is getting refreshed with new set of line items whereas in the Right Panel Message Log details of First uploaded file is present, it is not getting refreshed.
I used Free(), Refresh and Refresh_Table_dsiplay keywords to clear it, but its not working.
In debug mode, If I see the internal table which is used to store the Message Log Details is empty, but the message is still present in the ALV output for newly uploaded file.
Kindly give your valuable inputs.
Thanks & Regards,
Karthikeyan G.

Hello Karthikeyan G,
have you tried to cl_gui_cfw=>flush after your Refresh_Table_Display?
Also,when you write ALV splitter, did you use easy-splitter or the regular splitter container?
You ran the methods against the correct instance, right
Hope that helps,
Frank.

Dynamic Header in ALV output

Hi All,
I have requirement like below
i have company code in the selection screen as select options.
i need to give the output in such a way that
suppose the end user given the company code as 100 110 120 then i need to display in the
<b>header section</b>
100 - description
and in list (body) the should contain the records related to 100(Company code ) only
in the next page
<b>header section</b> contains the
110 - description
and in the ALV list needs to contain only the records related to 110.
and so on.
Please help me how to proceed; I have bit knowledge in container programming.
Thanks in Advance
Chand

Hi,
I did something very similar to your requirement.
There is a predefined event for Reuse_alv_list_display called 'BEFORE_LINE_OUTPUT'. In the event table, you have to specify the <event>-name = 'BEFORE_LINE_OUTPUT' and the <event>-form = 'ALV_BEFORE_LINE_OUTPUT'.
Then you need a form like
FORM alv_before_line_output
USING ps_lineinfo TYPE kkblo_lineinfo.                    "#EC CALLED
FIELD-SYMBOLS:
    <prot> TYPE typ_prot.
READ TABLE gt_prot INDEX ps_lineinfo-tabindex
    ASSIGNING <prot>.
CHECK g_file_no <> <prot>-file_no.
g_file_no = <prot>-file_no.
NEW-PAGE.
ENDFORM.                    "alv_before_line_output
In my program the global table displayed in ALV was gt_prot (of line type typ_prot) and the requirement was to start a new page for each file processed. The form stores the file processed in
g_file_no. If a new file is processed, a NEW-PAGE will trigger the TOP_OF_PAGE event of the alv. I will not copy the form here because we also issued some statistical values, system and user informations and so on.
But I hope you get it done.
The only remaining issue may be that the before_line_output event will cost some time because it is triggered for every output line. But my report was still quite fast.
regards,
Clemens

Need to sent alv output as html or as pdf attachment in mail

+Hello
I want to send an ALV output as attachement in html or as pdf format. how to do that? line size is greater than 600(nearly 40 fields).
+please help me in this query.
Regards
Guruvayurappan
Moderator Message: Please search before posting your question. Thread locked.
Edited by: Suhas Saha on Dec 29, 2011 4:57 PM

Hi,
For sending the ALV output as PDF attachment, you can create a spool (proper page size in print parameters) and convert the spool to PDF using the FM CONVERT_ABAPSPOOLJOB_2_PDF and then send the same as attachment in mail.
For send the data as HTML attachment, try the below FMs
WWW_ITAB_TO_HTML_HEADERS & WWW_ITAB_TO_HTML_LAYOUT to create the HTML layout
WWW_ITAB_TO_HTML to create the HTML for the actual data.
Hope this helps you.
Regards,
Sachinkumar Mehta

How to pass custom search help(F4 help) for a field in ALV output?

Hi,
I want to activate the F4 help in ALV output for a field for which we do not have search help assigned at table ,data element and domain level.
In field catalog i have enabled it by below line.
ls_fcat-F4AVAILABL = 'X'.
but because there are no standard input help available it is giving message as "No input help is available".
so how to pass our custom search help (g_search) for any field in ALV output.
I am using object oriented ALV grid display.
Thanks!!!
Rajesh Gupta.

hi,
check this out:
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/b3d5e890-0201-0010-c0ac-bba85ec2ae8d
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/acdefb13-0701-0010-f1a2-8eeefa7d3780
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/b3d5e890-0201-0010-c0ac-bba85ec2ae8d?quicklink=index&overridelayout=true

Problem in alv output download

HI All,
My problem is
My alv output table contains long text with value as 1000 characters.
when i am downloading my alv output into excel, it is downloading only 255 characters length.
is there any ways to download the entire long text into excel.
Please help me on this...
Thanks in advance.
Maruthi Konijeti

see the following example.
REPORT z_down_xml LINE-SIZE 132 NO STANDARD PAGE HEADING.
Databases
TABLES:
makt,                                "Mat description
marc,                                "Material / plant
t001w,                               "plant name
bhdgd.                               "Batch heading
Internal tables
DATA:
BEGIN OF gt_marc OCCURS 0,
    werks LIKE marc-werks,
    matnr LIKE marc-matnr,
END OF gt_marc,
Table to be downloaded as xml. Each line stores start and end tags
and the value
BEGIN OF gt_xml OCCURS 0,
    line(120),
END OF gt_xml,
g_maktx(120).
User-input
SELECT-OPTIONS:
s_werks FOR marc-werks,
s_matnr FOR marc-matnr.
START-OF-SELECTION.
Extract all required data
PERFORM main_processing.
END-OF-SELECTION.
SORT gt_marc BY werks matnr.
LOOP AT gt_marc.
    AT FIRST.                          "First tag must be root
      CLEAR gt_xml.
      gt_xml-line = ''.
    APPEND gt_xml.
    CLEAR gt_xml.
display data
    FORMAT COLOR 2 ON.
    WRITE :/ gt_marc-matnr, makt-maktx.
    FORMAT COLOR 2 OFF.
ENDLOOP.
The last tag must be the root closing tag --*
gt_xml-line = '</LOCATIONS>'.
APPEND gt_xml.
CLEAR gt_xml.
CALL FUNCTION 'DOWNLOAD'
       EXPORTING
            filename = 'C:PLANT1.XML'
            filetype = 'ASC'
       TABLES
            data_tab = gt_xml.
TOP-OF-PAGE.
MOVE sy-title TO bhdgd-line1.
MOVE sy-repid TO bhdgd-repid.
MOVE sy-uname TO bhdgd-uname.
MOVE sy-datum TO bhdgd-datum.
MOVE '0' TO bhdgd-inifl.
MOVE '132' TO bhdgd-lines.
FORMAT INTENSIFIED ON COLOR COL_HEADING.
PERFORM batch-heading(rsbtchh0).     "report header
Form READ_PLANT
FORM read_plant.
Get plant name
CLEAR t001w.
SELECT SINGLE name1
    INTO t001w-name1
    FROM t001w
   WHERE werks EQ gt_marc-werks.
ENDFORM.                               " READ_PLANT
Form MAIN_PROCESSING
FORM main_processing.
Material and plant basic data
SELECT werks matnr
    INTO TABLE gt_marc
    FROM marc
   WHERE werks IN s_werks
     AND matnr IN s_matnr.
ENDFORM.                               " MAIN_PROCESSING
Form READ_DESCRIPTION
FORM read_description.
Material name
CLEAR g_maktx.
SELECT SINGLE maktx
    INTO g_maktx
    FROM makt
   WHERE matnr EQ gt_marc-matnr
     AND spras EQ 'E'.
Replace special character
DO.
    REPLACE '&' WITH '*ù%;' INTO g_maktx.
    IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.
ENDDO.
DO.
    REPLACE '*ù%;' WITH '&' INTO g_maktx.
    IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.
ENDDO.
DO.
    REPLACE '/' WITH '/' INTO g_maktx.
    IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.
ENDDO.
ENDFORM.                               " READ_DESCRIPTION

Transpose ALV output format in Vertical

Hi ,
I want to transpose the ALV output. For this i have coded like below, but there is no output displaying.Please check the below code & advise me where to write our own fielcatalog & how to write the fieldcatogue.
TABLES:EKKO,EKPO.
TYPE-POOLS: SLIS.
TYPES:BEGIN OF PH_TY,
PH_EBELN LIKE EKKO-EBELN,
PH_AEDAT LIKE EKKO-AEDAT,
PH_LIFNR LIKE EKKO-LIFNR,
PH_SUBMI LIKE EKKO-SUBMI,
PH_EKORG LIKE EKKO-EKORG,
END OF PH_TY.
DATA: PH_ITAB TYPE STANDARD TABLE OF PH_TY.
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 : <HEADER> TYPE ANY,
                <DYNHEADER> TYPE ANY,
                <DYNDATA> TYPE ANY,
                <LS_TABLE> TYPE ANY,
                <DYNAMICTABLE> TYPE STANDARD TABLE,
                <IT_TABLE> TYPE STANDARD TABLE.
SELECTION-SCREEN:BEGIN OF BLOCK B1.
SELECT-OPTIONS:P_EBELN FOR EKKO-EBELN,
               P_LIFNR FOR EKKO-LIFNR,
               P_MATNR FOR EKPO-MATNR.
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
START-OF-SELECTION.
CREATE DATA L_DYNTABLE TYPE STANDARD TABLE OF PH_TY WITH NON-UNIQUE DEFAULT KEY.
ASSIGN L_DYNTABLE->* TO <IT_TABLE>.
SELECT EBELN AEDAT LIFNR SUBMI EKORG FROM EKKO
                  INTO TABLE <IT_TABLE> WHERE EBELN IN P_EBELN
                  AND LIFNR IN P_LIFNR.
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.
* WA_FIELDCAT-TABNAME = 'IT_TABLE'.
* WA_FIELDCAT-FIELDNAME = 'PH_EBELN'.
* WA_FIELDCAT-SELTEXT_M = 'PO'.
* APPEND WA_FIELDCAT TO LT_FIELDCAT.
* CLEAR WA_FIELDCAT.
DESCRIBE TABLE <IT_TABLE>.
DO
SY-TFILL TIMES.
    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.
    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.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = LT_LVC_CAT
    IMPORTING
      EP_TABLE        = L_DYNTABLE.
ASSIGN L_DYNTABLE->* TO <DYNAMICTABLE>.
CREATE DATA L_STRUCTURE LIKE LINE OF <DYNAMICTABLE>.
ASSIGN L_STRUCTURE->* TO <HEADER>.
CREATE DATA L_STRUCTURE LIKE LINE OF <IT_TABLE>.
ASSIGN L_STRUCTURE->* TO <LS_TABLE>.
DESCRIBE TABLE LT_FIELDCATALOGUE.
DO SY-TFILL TIMES.
    IF SY-INDEX = 1.
    READ TABLE LT_FIELDCATALOGUE INTO WA_FIELDCAT INDEX 1.
    ENDIF.
    ASSIGN COMPONENT 1 OF STRUCTURE <HEADER> TO <DYNHEADER>.
    IF SY-SUBRC NE 0. EXIT .ENDIF.
    READ TABLE LT_FIELDCATALOGUE INTO WA_FIELDCAT INDEX SY-INDEX.
    <DYNHEADER> = WA_FIELDCAT-SELTEXT_M.
    IF <DYNHEADER> IS INITIAL.
    <DYNHEADER> = WA_FIELDCAT-FIELDNAME.
    ENDIF.
    LOOP AT <IT_TABLE> INTO <LS_TABLE>.
      L_COL = SY-TABIX + 1.
      ASSIGN COMPONENT SY-INDEX OF STRUCTURE <LS_TABLE> TO <DYNDATA>.
      IF SY-SUBRC NE 0. EXIT .
      ENDIF.
      ASSIGN COMPONENT L_COL OF STRUCTURE <HEADER> TO <DYNHEADER>.
      IF SY-SUBRC NE 0.
      EXIT .
      ENDIF.
      WRITE <DYNDATA> TO <DYNHEADER> LEFT-JUSTIFIED.
    ENDLOOP.
    APPEND <HEADER> TO <DYNAMICTABLE>.
ENDDO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      IS_LAYOUT   = LT_LAYOUT
      IT_FIELDCAT = LT_FIELDCAT
    TABLES
      T_OUTTAB    = <DYNAMICTABLE>.

Hi,
Please go thorugh the below sample code , Commenting is done for your easy understanding.
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 :
<header>    TYPE ANY,
<dynheader> TYPE ANY,
<dyndata>   TYPE ANY,
<ls_table>      TYPE ANY,
<dynamictable>      TYPE STANDARD TABLE,
<it_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 <it_table>."*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 <it_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 <it_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 <dynamictable>."* Create structure as structure of the internal table
CREATE DATA l_structure LIKE LINE OF <dynamictable>.
ASSIGN l_structure->* TO <header>."* Create structure = structure of the internal table
CREATE DATA l_structure LIKE LINE OF <it_table>.
ASSIGN l_structure->* TO <ls_table>."* 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 <dynamictable>
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 <header> TO <dynheader>.
    IF sy-subrc NE 0. EXIT .ENDIF.
    READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX sy-index.
Fill 1st column
    <dynheader> = wa_fieldcat-seltext_m.
    IF <dynheader> IS INITIAL.
      <dynheader> = wa_fieldcat-fieldname.
    ENDIF."*Filling the other columns
    LOOP AT <it_table> INTO <ls_table>.
      l_col = sy-tabix + 1.
      ASSIGN COMPONENT sy-index OF STRUCTURE <ls_table> TO <dyndata>.
      IF sy-subrc NE 0. EXIT .ENDIF.
      ASSIGN COMPONENT l_col OF STRUCTURE <header> TO
<dynheader>.
      IF sy-subrc NE 0. EXIT .ENDIF.
      WRITE <dyndata> TO <dynheader> LEFT-JUSTIFIED.
    ENDLOOP.
    APPEND <header> TO <dynamictable>.
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    = <dynamictable>.
Regards,
Arun

SPLIT ALV Output-Line

Similar Messages

Maybe you are looking for