Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Report: ALV with example

Former Member
0 Likes
653

HI,

do you have some samplecode for report with ALV Output ?

do you have some information hot wo use ALV ?

thx.

Gordon

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
619

Hi

You can referece the sample code.

TYPE-POOLS: slis.

TYPES:
  BEGIN OF ty_test,
    name TYPE syuname,
    start_date TYPE sydate,
    end_date TYPE sydate,
  END OF ty_test.

TYPES:
  ty_tb_test TYPE STANDARD TABLE OF ty_test.

DATA:
  i_test TYPE ty_tb_test,
  w_test TYPE ty_test,

  i_fieldcat TYPE slis_t_fieldcat_alv,
  w_fieldcat TYPE LINE OF    slis_t_fieldcat_alv,

  i_header TYPE slis_t_listheader,
  w_header TYPE LINE OF slis_t_listheader.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
  PARAMETERS: name TYPE syuname,
              start TYPE sydate,
              end TYPE sydate.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
  PERFORM fill_data.
  PERFORM field_define.
  PERFORM display_alv.

FORM fill_data.
  w_test-name = 'MBOORE'.
  w_test-start_date = '20080701'.
  w_test-end_date = '20080731'.
  APPEND w_test to i_test.
  CLEAR w_test.

  w_test-name = 'JDUFFY'.
  w_test-start_date = '20080715'.
  w_test-end_date = '20080810'.
  APPEND w_test to i_test.
  CLEAR w_test.

  w_test-name = 'JVNSOLD'.
  w_test-start_date = '20080601'.
  w_test-end_date = '20080720'.
  APPEND w_test to i_test.
  CLEAR w_test.
ENDFORM.

FORM field_define.
  w_fieldcat-fieldname = 'NAME'.
  w_fieldcat-seltext_l = 'name'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.

  w_fieldcat-fieldname = 'START_DATE'.
  w_fieldcat-seltext_l = 'start_date'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.

  w_fieldcat-fieldname = 'END_DATE'.
  w_fieldcat-seltext_l = 'end_date'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.
ENDFORM.

FORM display_alv.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program                = sy-repid
      i_callback_top_of_page            = 'DISPLAY_HEADER'
      IT_FIELDCAT                       = i_fieldcat
    TABLES
      t_outtab                          = i_test
    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.

FORM display_header.
  w_header-typ = 'H'.
  w_header-info = 'This test case has been passed'.
  APPEND w_header TO i_header.
  CLEAR w_header.

  w_header-typ = 'S'.
  CONCATENATE 'Where User Name - ' name INTO w_header-info.
  APPEND w_header TO i_header.
  CLEAR w_header.

  w_header-typ = 'S'.
  CONCATENATE 'Start Date - ' start INTO w_header-info.
  APPEND w_header TO i_header.
  CLEAR w_header.

  w_header-typ = 'S'.
  CONCATENATE 'End Date - ' end INTO w_header-info.
  APPEND w_header TO i_header.
  CLEAR w_header.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = i_header
*     I_LOGO                   =
*     I_END_OF_LIST_GRID       =
*     I_ALV_FORM               =
            .

ENDFORM.

5 REPLIES 5
Read only

uwe_schieferstein
Active Contributor
0 Likes
619

Hello Gordon

All you need to know about OO-based ALV (at least the basics) can be found in the excellent tutorial

[An Easy Reference For ALV Grid Control|https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d9719a415907]

For simplified ALV reports you may search the SDN for my sample reports (all of which begin with ZUS_SDN_... ).

Regards

Uwe

Read only

0 Likes
619

Thank you for yourhelp.

Do you habe samplecode for ALVtree, too ?

I need an ALV splitting. left frame = tree, right frame = alvgrid.

Read only

0 Likes
619

using CL_GUI_LIST_TREE you can get that. check the demo program..

SAPTLIST_TREE_CONTROL_DEMO

Read only

former_member206439
Contributor
0 Likes
619

This message was moderated.

Read only

Former Member
0 Likes
620

Hi

You can referece the sample code.

TYPE-POOLS: slis.

TYPES:
  BEGIN OF ty_test,
    name TYPE syuname,
    start_date TYPE sydate,
    end_date TYPE sydate,
  END OF ty_test.

TYPES:
  ty_tb_test TYPE STANDARD TABLE OF ty_test.

DATA:
  i_test TYPE ty_tb_test,
  w_test TYPE ty_test,

  i_fieldcat TYPE slis_t_fieldcat_alv,
  w_fieldcat TYPE LINE OF    slis_t_fieldcat_alv,

  i_header TYPE slis_t_listheader,
  w_header TYPE LINE OF slis_t_listheader.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
  PARAMETERS: name TYPE syuname,
              start TYPE sydate,
              end TYPE sydate.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
  PERFORM fill_data.
  PERFORM field_define.
  PERFORM display_alv.

FORM fill_data.
  w_test-name = 'MBOORE'.
  w_test-start_date = '20080701'.
  w_test-end_date = '20080731'.
  APPEND w_test to i_test.
  CLEAR w_test.

  w_test-name = 'JDUFFY'.
  w_test-start_date = '20080715'.
  w_test-end_date = '20080810'.
  APPEND w_test to i_test.
  CLEAR w_test.

  w_test-name = 'JVNSOLD'.
  w_test-start_date = '20080601'.
  w_test-end_date = '20080720'.
  APPEND w_test to i_test.
  CLEAR w_test.
ENDFORM.

FORM field_define.
  w_fieldcat-fieldname = 'NAME'.
  w_fieldcat-seltext_l = 'name'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.

  w_fieldcat-fieldname = 'START_DATE'.
  w_fieldcat-seltext_l = 'start_date'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.

  w_fieldcat-fieldname = 'END_DATE'.
  w_fieldcat-seltext_l = 'end_date'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.
ENDFORM.

FORM display_alv.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program                = sy-repid
      i_callback_top_of_page            = 'DISPLAY_HEADER'
      IT_FIELDCAT                       = i_fieldcat
    TABLES
      t_outtab                          = i_test
    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.

FORM display_header.
  w_header-typ = 'H'.
  w_header-info = 'This test case has been passed'.
  APPEND w_header TO i_header.
  CLEAR w_header.

  w_header-typ = 'S'.
  CONCATENATE 'Where User Name - ' name INTO w_header-info.
  APPEND w_header TO i_header.
  CLEAR w_header.

  w_header-typ = 'S'.
  CONCATENATE 'Start Date - ' start INTO w_header-info.
  APPEND w_header TO i_header.
  CLEAR w_header.

  w_header-typ = 'S'.
  CONCATENATE 'End Date - ' end INTO w_header-info.
  APPEND w_header TO i_header.
  CLEAR w_header.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = i_header
*     I_LOGO                   =
*     I_END_OF_LIST_GRID       =
*     I_ALV_FORM               =
            .

ENDFORM.