topic Re: intractive Report in Application Development and Automation Discussions

intractive Report

Former Member — Sat, 02 Jun 2007 04:34:26 GMT

HI! Experts,

I need some good coding lines used for Intractive reports. this wil help me out in my studies as well as on job. Plz send me coding for intractive report which u guys hav developed. Thnaks.

Khan

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:38:16 GMT

Hi Khan,

Check this code,

type-pools: slis.

icon.

tables: zemp10,zemp12.

data: BEGIN OF WA1,

EMPID TYPE ZEMP10-EMPID,

EXPAND2,

BOX,

LIGHT,

END OF WA1.

DATA: BEGIN OF WA2,

EMPID TYPE ZEMP12-EMPID,

CITY TYPE ZEMP12-CITY,

STATE TYPE ZEMP12-STATE,

COUNTRY TYPE ZEMP12-COUNTRY,

INCENTIVE TYPE ZEMP12-INCENTIVE,

LIGHT,

END OF WA2.

DATA: ITAB1 LIKE STANDARD TABLE OF WA1 WITH HEADER LINE,

ITAB2 LIKE STANDARD TABLE OF WA2 WITH HEADER LINE,

it_events type slis_t_event,

wa_events like line of it_events,

CAT1 TYPE SLIS_T_FIELDCAT_ALV.

WA_CAT LIKE LINE OF CAT1.

*DATA IT_FCAT1 TYPE SLIS_T_FIELDCAT_ALV.

data wa_layout type slis_layout_alv.

data wa_keyinfo type slis_keyinfo_alv.

DATA CAT2 TYPE SLIS_T_FIELDCAT_ALV.

data wa_repid type sy-repid.

*********************************************

wa_keyinfo-header01 = 'EMPID'.

wa_keyinfo-item01 = 'EMPID'.

******************************************

perform fill_tables.

perform layout.

PERFORM FIELD.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING
I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = it_events

EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

read table it_events into wa_events with key name = 'USER_COMMAND'.

if sy-subrc = 0.

wa_events-form = 'FORM1'.

modify it_events from wa_events index sy-tabix.

endif.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '

I_CALLBACK_PROGRAM = 'ZVIJIALV7'

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = CAT1

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

IT_EVENTS = it_events

IT_EVENT_EXIT =

i_tabname_header = 'ITAB1'

i_tabname_item = 'ITAB2'

I_STRUCTURE_NAME_HEADER =
I_STRUCTURE_NAME_ITEM =

is_keyinfo = WA_KEYINFO

IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IR_SALV_HIERSEQ_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab_header = ITAB1

t_outtab_item = ITAB2

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

form fill_tables .

SELECT

empid

FROM zemp10 INTO TABLE ITAB1.

SELECT

empid city state country INCENTIVE

FROM ZEMP12 INTO TABLE ITAB2.

LOOP AT ITAB2.

IF ITAB2-INCENTIVE < 100.

ITAB2-LIGHT = '2'.

ELSEIF ITAB2-INCENTIVE > 100 AND ITAB2-INCENTIVE < 200.

ITAB2-LIGHT = '1'.

ELSE.

ITAB2-LIGHT = '3'.

ENDIF.

MODIFY ITAB2 INDEX SY-TABIX.

ENDLOOP.

LOOP AT ITAB1.

IF ITAB1-EMPID = '101'.

ITAB1-BOX = 'X'.

ITAB1-LIGHT = '2'.

ELSE.

ITAB1-LIGHT = '1'.

ENDIF.

MODIFY ITAB1 INDEX SY-TABIX.

ENDLOOP.

endform. " fill_tables

form LAYOUT .

WA_LAYOUT-ZEBRA = 'X'.

WA_LAYOUT-EXPAND_FIELDNAME = 'EXPAND2'. "FOR EXPANDING

WA_LAYOUT-EXPAND_ALL = 'X'.

WA_LAYOUT-LIGHTS_FIELDNAME = 'LIGHT'. " FOR LIGHT

WA_LAYOUT-LIGHTS_TABNAME = 'ITAB1'.

WA_LAYOUT-LIGHTS_FIELDNAME = 'LIGHT'. " FOR LIGHT

WA_LAYOUT-LIGHTS_TABNAME = 'ITAB2'.

WA_LAYOUT-BOX_FIELDNAME = 'BOX'. " FOR CHECKBOX

WA_LAYOUT-BOX_TABNAME = 'ITAB1'.

endform. " LAYOUT

FORM FIELD.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = WA_REPID

I_INTERNAL_TABNAME = 'ITAB1'

I_STRUCTURE_NAME = 'ZEMP10'

I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = CAT1

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

DELETE CAT1 WHERE FIELDNAME <> 'EMPID'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = WA_REPID

I_INTERNAL_TABNAME = 'ITAB2'

I_STRUCTURE_NAME = 'ZEMP12'

I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = CAT2

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

DELETE CAT2 WHERE FIELDNAME <> 'EMPID' AND

FIELDNAME <> 'CITY' AND

FIELDNAME <> 'STATE' AND

FIELDNAME <> 'INCENTIVE'.

APPEND LINES OF CAT2 TO CAT1.

ENDFORM.

form FORM1 using ucomm like sy-ucomm

sel_field type slis_selfield.

write : sel_field-fieldname.

write : sel_field-value.

endform.

Thanks,

Reward If Helpful.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:40:53 GMT

Hi,

Check this example..

TYPE-POOLS: slis.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.

DATA: BEGIN OF wa_ekko,

ebeln like ekko-ebeln,

ekorg like ekko-ekorg,

ekgrp like ekko-ekgrp,

END OF wa_ekko.

DATA: v_repid TYPE syrepid.

v_repid = sy-repid.

DATA it_ekko LIKE STANDARD TABLE OF wa_ekko WITH HEADER LINE.

SELECT * UP TO 100 ROWS

FROM ekko

INTO CORRESPONDING FIELDS OF TABLE it_ekko.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = v_repid

i_internal_tabname = 'WA_EKKO'

i_inclname = v_repid

CHANGING

ct_fieldcat = gt_fieldcat.

have hotspot for a PO.

DATA: s_fieldcat LIKE LINE OF gt_fieldcat.

s_fieldcat-hotspot = 'X'.

MODIFY gt_fieldcat FROM s_fieldcat TRANSPORTING hotspot

WHERE fieldname = 'EBELN'.

Pass the program.

v_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = v_repid

it_fieldcat = gt_fieldcat

i_callback_user_command = 'USER_COMMAND'

TABLES

t_outtab = it_ekko.

----

FORM display_detail *

----

........ *

----

--> UCOMM *
--> SELFIELD *

----

FORM user_command USING ucomm LIKE sy-ucomm

selfield TYPE slis_selfield.

IF ucomm = '&IC1'.

READ TABLE it_ekko INDEX selfield-tabindex.

IF sy-subrc = 0.

SET PARAMETER ID 'BES' FIELD it_ekko-ebeln.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ENDFORM.

Regards,

Padmam.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:45:19 GMT

hi Khan,

Refer to this thread

http://erpgenie.com/sap/abap/ireports.htm

Regards,

Santosh

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:47:06 GMT

Hi Khan,

REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE

HEADING.

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT user-command.

IF SY-UCOMM = 'IONE'.

PERFORM SALES_ORD.

ENDIF.

IF SY-UCOMM = 'ITWO'.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-UCOMM = 'IONE'.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-UCOMM = 'ITWO'.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

&----

*& Form SALES_ORD

*& FIRST SECONDARY LIST FORM

&----

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

&----

*& Form ITEM_DET

*& SECOND SECONDARY LIST FORM

&----

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:48:36 GMT

HI, thanks for ur reply. BUt I am little bit confused. In ur example, dont we use At Line-Selection command to get more detailed record on that particular line.

Thanks.

khan.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:48:54 GMT

HI, thanks for ur reply. BUt I am little bit confused. In ur example, dont we use At Line-Selection command to get more detailed record on that particular line.

Thanks.

khan.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 04:58:06 GMT

HI! Potluri,

Thanks for replying. I am littly confused. in your report u used the below lines.

*******************************************

AT user-command.

IF SY-UCOMM = 'IONE'.

PERFORM SALES_ORD.

ENDIF.

IF SY-UCOMM = 'ITWO'.

PERFORM ITEM_DET.

ENDIF.

********************************************

but in that where earlier hav u define IONE & ITWO. What is that.

Dont we need to write At Line-selection command?

Thanks.

Khan.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 05:02:34 GMT

Hi,

We r using hotspot instead if At Line-selection.

Regards,

Padmam.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 05:02:46 GMT

Hi,

We r using hotspot instead of At Line-selection.

Regards,

Padmam.

Re: intractive Report

Former Member — Sat, 02 Jun 2007 05:09:18 GMT

Hi Khan,

If u want AT-LINE SELECTION,check the following example:

/* 3 Level Interactive Report */ &----

*& Report ZTEJ_INTAB1 *

*& *

&----

*& *

&----

REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE

HEADING.

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT LINE-SELECTION.

IF SY-LSIND = 1.

PERFORM SALES_ORD.

ENDIF.

IF SY-LSIND = 2.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-LSIND = 1.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-LSIND = 2.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

&----

*& Form SALES_ORD

*& FIRST SECONDARY LIST FORM

&----

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

&----

*& Form ITEM_DET

*& SECOND SECONDARY LIST FORM

&----

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

Re: intractive Report

Former Member — Sat, 02 Jun 2007 05:29:31 GMT

1.Created an interactive report to display all the purchase orders for the purchasing organization purchase groups and display the total and individual value of the purchase order using tables ekpo & ekko.

Ekpo – purchasing document item.

Ekko - purchasing document header.

Fields used from ekpo:

Menge – purchase order quantity.

Ebeln – purchasing document number.

Fields used in ekko :

Ekorg – purchasing organization.

Ebeln – purchasing document number.

Ekgrp – purchasing group.

Rlwrt – total value at time of release.

Selection-screen :

Select-options : purorg for ekko-ekorg..

REPORT ZDEMO15 .

TABLES : EKPO,EKKO,MARA.

DATA : BEGIN OF ITAB OCCURS 0,

MENGE LIKE EKPO-MENGE,

EBELN LIKE EKPO-EBELN,

EKORG LIKE EKKO-EKORG,

END OF ITAB.

DATA : BEGIN OF JTAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKGRP LIKE EKKO-EKGRP,

RLWRT LIKE EKKO-RLWRT,

END OF JTAB.

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS : PURORG FOR EKKO-EKORG.

SELECTION-SCREEN : END OF BLOCK B1.

START-OF-SELECTION.

SELECT EK_{EKORG EP}EBELN EP~MENGE FROM EKPO AS EP INNER JOIN EKKO AS EK

ON EP_{EBELN = EK}EBELN INTO CORRESPONDING FIELDS OF TABLE ITAB

WHERE EKORG IN PURORG.

END-OF-SELECTION.

LOOP AT ITAB.

WRITE 😕 ITAB-EBELN,

ITAB-MENGE.

HIDE ITAB-EBELN.

ENDLOOP.

TOP-OF-PAGE during line-selection.

WRITE : 'THIS IS INTERACTIVE REPORT'.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN '1'.

SELECT EBELN EKORG EKGRP RLWRT FROM EKKO INTO CORRESPONDING FIELDS OF

TABLE JTAB WHERE EBELN = ITAB-EBELN.

LOOP AT JTAB.

WRITE 😕 JTAB-EBELN,

JTAB-EKGRP,

JTAB-RLWRT.

ENDLOOP.

ENDCASE.