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

alv list using oops

Former Member
0 Likes
395

hiii,

can any one please explain me HOW TO DEVELOP THE ALV LIST USING OOPS CONCEPT.

please provide me some examples.

thank you,

mahesh

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
380

Hi,

I am sending you the link where you will get number of example as well as help for different type of alv list.

http://www.saptechnical.com/Tutorials/ALV/ALVMainPage.htm

https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/cda3992d-0e01-0010-90b2-c4e1f899...

one simple example ;

&----


*& Report YH1059_SMART_PP *

*& *

&----


*& *

*& *

&----


REPORT yh1059_smart_pp .

*types: begin of it_struct_spfli,

  • carrid type spfli-carrid,

  • connid type spfli-connid,

  • countryto type spfli-countryto,

  • countryfr type spfli-countryfr,

  • end of it_struct_spfli.

DATA: r_container TYPE REF TO cl_gui_custom_container,

my_alv_grid TYPE REF TO cl_gui_alv_grid,

  • it_st_spfli type table of it_struct_spfli.

t_spfli TYPE TABLE OF spfli.

  • ok_code type sy-ucomm,

  • save_ok like ok_code.

PERFORM get_data_spfli.

CALL SCREEN 100.

&----


*& Module STATUS_0100 OUTPUT

&----


  • text

----


MODULE status_0100 OUTPUT.

SET PF-STATUS 'ZALV'.

SET TITLEBAR 'ALV'.

CREATE OBJECT r_container

EXPORTING

  • PARENT =

container_name = 'MY_CONTAINER'

  • STYLE =

  • LIFETIME = lifetime_default

  • REPID =

  • DYNNR =

  • NO_AUTODEF_PROGID_DYNNR =

  • EXCEPTIONS

  • CNTL_ERROR = 1

  • CNTL_SYSTEM_ERROR = 2

  • CREATE_ERROR = 3

  • LIFETIME_ERROR = 4

  • LIFETIME_DYNPRO_DYNPRO_LINK = 5

  • others = 6

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CREATE OBJECT my_alv_grid

EXPORTING

  • I_SHELLSTYLE = 0

  • I_LIFETIME =

i_parent = r_container

  • I_APPL_EVENTS = space

  • I_PARENTDBG =

  • I_APPLOGPARENT =

  • I_GRAPHICSPARENT =

  • I_NAME =

  • EXCEPTIONS

  • ERROR_CNTL_CREATE = 1

  • ERROR_CNTL_INIT = 2

  • ERROR_CNTL_LINK = 3

  • ERROR_DP_CREATE = 4

  • others = 5

.

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 METHOD my_alv_grid->set_table_for_first_display

EXPORTING

  • I_BUFFER_ACTIVE =

  • I_BYPASSING_BUFFER =

  • I_CONSISTENCY_CHECK =

I_STRUCTURE_NAME = 'SPFLI'

  • IS_VARIANT =

  • I_SAVE =

  • I_DEFAULT = 'X'

  • IS_LAYOUT =

  • IS_PRINT =

  • IT_SPECIAL_GROUPS =

  • IT_TOOLBAR_EXCLUDING =

  • IT_HYPERLINK =

  • IT_ALV_GRAPHICS =

  • IT_EXCEPT_QINFO =

CHANGING

it_outtab = t_spfli

  • IT_FIELDCATALOG =

  • IT_SORT =

  • IT_FILTER =

  • EXCEPTIONS

  • INVALID_PARAMETER_COMBINATION = 1

  • PROGRAM_ERROR = 2

  • TOO_MANY_LINES = 3

  • others = 4

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

&----


*& Form get_data_spfli

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM get_data_spfli .

SELECT *

FROM spfli

INTO CORRESPONDING FIELDS OF TABLE t_spfli.

ENDFORM. " get_data_spfli

&----


*& Module USER_COMMAND_0100 INPUT

&----


  • text

----


MODULE user_command_0100 INPUT.

CASE sy-ucomm.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

Reward some points.

Regards,

Anomitro

3 REPLIES 3
Read only

Former Member
0 Likes
381

Hi,

I am sending you the link where you will get number of example as well as help for different type of alv list.

http://www.saptechnical.com/Tutorials/ALV/ALVMainPage.htm

https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/cda3992d-0e01-0010-90b2-c4e1f899...

one simple example ;

&----


*& Report YH1059_SMART_PP *

*& *

&----


*& *

*& *

&----


REPORT yh1059_smart_pp .

*types: begin of it_struct_spfli,

  • carrid type spfli-carrid,

  • connid type spfli-connid,

  • countryto type spfli-countryto,

  • countryfr type spfli-countryfr,

  • end of it_struct_spfli.

DATA: r_container TYPE REF TO cl_gui_custom_container,

my_alv_grid TYPE REF TO cl_gui_alv_grid,

  • it_st_spfli type table of it_struct_spfli.

t_spfli TYPE TABLE OF spfli.

  • ok_code type sy-ucomm,

  • save_ok like ok_code.

PERFORM get_data_spfli.

CALL SCREEN 100.

&----


*& Module STATUS_0100 OUTPUT

&----


  • text

----


MODULE status_0100 OUTPUT.

SET PF-STATUS 'ZALV'.

SET TITLEBAR 'ALV'.

CREATE OBJECT r_container

EXPORTING

  • PARENT =

container_name = 'MY_CONTAINER'

  • STYLE =

  • LIFETIME = lifetime_default

  • REPID =

  • DYNNR =

  • NO_AUTODEF_PROGID_DYNNR =

  • EXCEPTIONS

  • CNTL_ERROR = 1

  • CNTL_SYSTEM_ERROR = 2

  • CREATE_ERROR = 3

  • LIFETIME_ERROR = 4

  • LIFETIME_DYNPRO_DYNPRO_LINK = 5

  • others = 6

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CREATE OBJECT my_alv_grid

EXPORTING

  • I_SHELLSTYLE = 0

  • I_LIFETIME =

i_parent = r_container

  • I_APPL_EVENTS = space

  • I_PARENTDBG =

  • I_APPLOGPARENT =

  • I_GRAPHICSPARENT =

  • I_NAME =

  • EXCEPTIONS

  • ERROR_CNTL_CREATE = 1

  • ERROR_CNTL_INIT = 2

  • ERROR_CNTL_LINK = 3

  • ERROR_DP_CREATE = 4

  • others = 5

.

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 METHOD my_alv_grid->set_table_for_first_display

EXPORTING

  • I_BUFFER_ACTIVE =

  • I_BYPASSING_BUFFER =

  • I_CONSISTENCY_CHECK =

I_STRUCTURE_NAME = 'SPFLI'

  • IS_VARIANT =

  • I_SAVE =

  • I_DEFAULT = 'X'

  • IS_LAYOUT =

  • IS_PRINT =

  • IT_SPECIAL_GROUPS =

  • IT_TOOLBAR_EXCLUDING =

  • IT_HYPERLINK =

  • IT_ALV_GRAPHICS =

  • IT_EXCEPT_QINFO =

CHANGING

it_outtab = t_spfli

  • IT_FIELDCATALOG =

  • IT_SORT =

  • IT_FILTER =

  • EXCEPTIONS

  • INVALID_PARAMETER_COMBINATION = 1

  • PROGRAM_ERROR = 2

  • TOO_MANY_LINES = 3

  • others = 4

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

&----


*& Form get_data_spfli

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM get_data_spfli .

SELECT *

FROM spfli

INTO CORRESPONDING FIELDS OF TABLE t_spfli.

ENDFORM. " get_data_spfli

&----


*& Module USER_COMMAND_0100 INPUT

&----


  • text

----


MODULE user_command_0100 INPUT.

CASE sy-ucomm.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

Reward some points.

Regards,

Anomitro

Read only

Former Member
0 Likes
380

just go to SE38 editor and give BCALV*

u will get all examples regarding ALV using OOPS

Read only

Former Member
0 Likes
380

thanks all