Skip to Content
0
Former Member
Dec 05, 2008 at 08:42 AM

problem in triggering at line selection event in ooabap

27 Views

hi ppl,

Below is the code i did so far using interactive reports,but its showing error "statement END METHOD is missing".

REPORT y_program_on_ooabap1.

----


  • CLASS CL DEFINITION

----


*

----


DATA: lf_matnr TYPE matnr.

INITIALIZATION.

PARAMETERS: pa_matnr TYPE matnr.

SELECT-OPTIONS: so_matnr FOR lf_matnr.

----


  • CLASS cl DEFINITION

----


*

----


CLASS cl DEFINITION.

PUBLIC SECTION.

TYPES: BEGIN OF tw,

matnr TYPE matnr,

ernam TYPE ernam,

END OF tw,

tt TYPE STANDARD TABLE OF tw.

TYPES: BEGIN OF tw1,

matnr TYPE matnr,

maktx TYPE maktx,

END OF tw1.

DATA: itab TYPE tt,

wa TYPE tw,

wa1 TYPE tw1.

METHODS: retrive_data,

display_data.

ENDCLASS. "CL DEFINITION

----


  • CLASS CL IMPLEMENTATION

----


*

----


CLASS cl IMPLEMENTATION.

METHOD: retrive_data.

SELECT matnr ernam INTO TABLE itab FROM mara

WHERE matnr IN so_matnr.

"RETRIVE_DATA

ENDMETHOD. "retrive_data

METHOD: display_data.

LOOP AT itab INTO wa.

WRITE:/ wa-matnr,

wa-ernam.

ENDLOOP.

AT line-selecion.

CASE: sy-lsind.

WHEN 1.

SELECT SINGLE matnr maktx INTO CORRESPONDING FIELDS OF wa FROM makt WHERE matnr = wa-matnr.

WRITE:/ wa-matnr,

wa-maktx.

ENDMETHOD. "display_data

"DISPLAY_DATA

ENDCLASS. "CL IMPLEMENTATION

DATA: obj TYPE REF TO cl.

START-OF-SELECTION.

CREATE OBJECT: obj.

END-OF-SELECTION.

CALL METHOD obj->retrive_data.

CALL METHOD obj->display_data.