‎2008 May 13 11:55 AM
hiii,
can any one please explain me HOW TO DEVELOP THE ALV LIST USING OOPS CONCEPT.
please provide me some examples.
thank you,
mahesh
‎2008 May 13 12:02 PM
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
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
‎2008 May 13 12:02 PM
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
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
‎2008 Jul 10 9:31 AM
just go to SE38 editor and give BCALV*
u will get all examples regarding ALV using OOPS
‎2008 Sep 30 1:47 PM