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
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 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
| User | Count |
|---|---|
| 6 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |