topic Re: ABAP in Application Development and Automation Discussions

ABAP

Former Member — Wed, 25 Oct 2006 05:29:15 GMT

I WANT TO KNOW ALVS FORM SCRATCH I AM UNABLE TO UNDARDSTAND THE STANDARD ALV PROGRAMS OF ANY BODY HAS ANY MATERIAL PLZ FORWARD ME

Re: ABAP

Former Member — Wed, 25 Oct 2006 05:32:19 GMT

Hi rakhee,

1. in alv using FM,

there are mainly TWO main fm.

REUSE_ALV_FIELDCATALOG_MERGE

REUSE_ALV_LIST_DISPLAY

3. This is the most simple program.

4. just copy paste.

report abc.

*----

TYPE-POOLS : slis.

DATA : alvfc TYPE slis_t_fieldcat_alv.

DATA : alvfcwa TYPE slis_fieldcat_alv.

*----

data : begin of itab occurs 0.

include structure usr02.

data : end of itab.

*----

START-OF-SELECTION.

select * from usr02

into table itab.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB'

i_inclname = sy-repid

CHANGING

ct_fieldcat = alvfc

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

*----

IMPORTANT

LOOP AT ALVFC INTO ALVFCWA.

IF ALVFCWA-FIELDNAME = 'USTYP'.

ALVFCWA-NO_CONVEXT = 'X'.

MODIFY ALVFC FROM ALVFCWA.

ENDIF.

ENDLOOP.

*----

Display

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

it_fieldcat = alvfc

TABLES

t_outtab = itab

EXCEPTIONS

program_error = 1

OTHERS = 2.

regards,

amit m.

Re: ABAP

gopi_narendra — Wed, 25 Oct 2006 05:47:51 GMT

Using the OOPS Concepts

Note that this example uses table ZSFLIGHT. The table is equivalent to the table SFLIGHT.

Steps:

Create an executable program (Report)

Create a screen (100) and place a custom container named ALV_CONTAINER on the screen

Create a Pushbutton. Give it the text Exit and the functioncode EXIT

REPORT sapmz_hf_alv_grid .

TABLES: zsflight.

*----

G L O B A L I N T E R N A L T A B L E S

*----

DATA: gi_sflight TYPE STANDARD TABLE OF sflight.

*----

G L O B A L D A T A

*----

DATA: ok_code LIKE sy-ucomm,

g_wa_sflight LIKE sflight.

Declare reference variables to the ALV grid and the container

DATA:

go_grid TYPE REF TO cl_gui_alv_grid,

go_custom_container TYPE REF TO cl_gui_custom_container.

*----

S T A R T - O F - S E L E C T I O N.

*----

START-OF-SELECTION.

SET SCREEN '100'.

&----

*& Module USER_COMMAND_0100 INPUT

&----

MODULE user_command_0100 INPUT.

CASE ok_code.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Module STATUS_0100 OUTPUT

&----

MODULE status_0100 OUTPUT.

Create objects

IF go_custom_container IS INITIAL.

CREATE OBJECT go_custom_container

EXPORTING container_name = 'ALV_CONTAINER'.

CREATE OBJECT go_grid

EXPORTING

i_parent = go_custom_container.

PERFORM load_data_into_grid.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Form load_data_into_grid

&----

FORM load_data_into_grid.

Read data from table SFLIGHT

SELECT *

FROM zsflight

INTO TABLE gi_sflight.

Load data into the grid and display them

CALL METHOD go_grid->set_table_for_first_display

EXPORTING i_structure_name = 'SFLIGHT'

CHANGING it_outtab = gi_sflight.

ENDFORM. " load_data_into_grid

Regards

- Gopi