Answer / nitin sharma

Just check the following code

Building Interactive ALV list
using 'REUSE_ALV_LIST_DISPLAY'.

By Haritha

This program displays the Purchase Order header details on
the basic
list and on double-clicking any of the record on the basic
list,
the item-level information is displayed on the secondary
list.

REPORT ZPURCHASE_ORDER.

************************************************************
***********
* TYPE-POOLS DECLARATION
************************************************************
***********
TYPE-POOLS:
SLIS.

************************************************************
***********
* DATA DECLARATIONS
************************************************************
***********

DATA:
W_EBELN TYPE EKKO-EBELN,
W_PROG TYPE SY-REPID,
T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FS_FIELDCAT LIKE LINE OF T_FIELDCAT,
T_EVENTCAT TYPE SLIS_T_EVENT,
W_EVENTCAT LIKE LINE OF T_EVENTCAT.

************************************************************
***********
* SELECT-OPTIONS DECLARATION
************************************************************
***********
SELECT-OPTIONS:
S_EBELN FOR W_EBELN.

************************************************************
***********
* INTERNAL TABLE AND FIELD-STRING DECLARATIONS
************************************************************
***********

DATA:
T_EKKO LIKE
STANDARD TABLE
OF EKKO,
FS_EKKO LIKE LINE OF T_EKKO.

DATA:
T_EKPO LIKE
STANDARD TABLE
OF EKPO,
FS_EKPO LIKE LINE OF T_EKPO.

************************************************************
***********
* START-OF-SELECTION
************************************************************
***********
START-OF-SELECTION.
SELECT *
FROM EKKO
INTO TABLE T_EKKO
WHERE EBELN IN S_EBELN.

W_PROG = SY-REPID.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_PROG
I_CALLBACK_USER_COMMAND = 'PICK'
I_STRUCTURE_NAME = 'EKKO'
TABLES
T_OUTTAB = T_EKKO
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 pick
*&----------------------------------------------------------
----------*
* -->UCOMM text
* -->SELFIELD text
*-----------------------------------------------------------
----------*
FORM PICK USING COMMAND LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
READ TABLE T_EKKO INTO FS_EKKO INDEX SELFIELD-TABINDEX.

CASE COMMAND.
WHEN '&IC1'.
SELECT *
FROM EKPO
INTO TABLE T_EKPO
WHERE EBELN EQ FS_EKKO-EBELN.

W_PROG = SY-REPID.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'EKPO'
CHANGING
CT_FIELDCAT = T_FIELDCAT
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 T_FIELDCAT WHERE FIELDNAME EQ 'EBELN'.
DELETE T_FIELDCAT WHERE FIELDNAME EQ 'BUKRS'.
DELETE T_FIELDCAT WHERE FIELDNAME EQ 'LGORT'.
DELETE T_FIELDCAT WHERE FIELDNAME EQ 'WERKS'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_PROG
IT_FIELDCAT = T_FIELDCAT
IT_EVENTS = T_EVENTCAT
TABLES
T_OUTTAB = T_EKPO
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.

ENDCASE. " CASE COMMAND
ENDFORM. " FORM PICK

FORM T_EVENTCAT.
W_EVENTCAT-NAME = 'TOP_OF_PAGE'.
W_EVENTCAT-FORM = 'TOP'.
APPEND W_EVENTCAT TO T_EVENTCAT.
ENDFORM.

FORM TOP.
READ TABLE T_EKPO INTO FS_EKPO INDEX 1.
WRITE:/ 'Purchase Document Number'(001),30 FS_EKPO-EBELN,
/ 'Company Code'(002), 30 FS_EKPO-BUKRS,
/ 'Plant'(003), 30 FS_EKPO-WERKS,
/ 'Storage Location'(004),30 FS_EKPO-LGORT.
ENDFORM.

Test Run:


If we enter the Purchasing Document Number and execute,
the Basic list will be displayed as follows.










When we double click on a record,
the secondary list will be displayed as follows:















Yes, it is possible.

What are Call Transaction Modes?

2 Answers   Atos Origin,

---

how to copy client to client in scripts?

2 Answers  

---

In an Internal Table, I have 1000 records. I have to Retrieve One Record. In Performence wise what is the Best Query?

7 Answers  

---

Hello All, Requesting to all user of this site. Please post your Questions in Proper sub Category of chosen category. Some users post the questions in common category whether sub category for that is available ..like some users still post the SAP Script & ALE Related questions in common ABAP Category. Due to this it becomes very difficult to find the topic wise Questions. Please cooperate with the site & to other users. Thanks & Regards Tamseel

0 Answers  

---

Which bdc you prefer? : abap bdc

0 Answers  

---

could you tell me the difference between an INTERFACE AND CONVERSION?

7 Answers   Sony,

---

what are the characteristics of a bapi?

2 Answers  

---

How many default tab strips are there?

0 Answers  

---

11. what is the difference between user-exit & customer-exit?

2 Answers  

---

There is a file in application server. How can you upload it and separate it as per different fields?

2 Answers   HP,

---

What is new enhancement framework?

0 Answers   Infosys,

---

Hi all, For the past 1 year, I have been trying for job in SAP as a fresher, but no calls,no interviews.I know showing fake experience is unethical, but i dont have any alternative.After showing fake experience now iam getting calls,but still i feel guilty.Friends i have some questions. 1. If suppose i tell the truth in interview that i have shown fake experience,what would be the interviewer's reaction? Will accepting the fake go negative against me? 2.Whether i should accept the fake in technical round itself? (or) Maintain the fake,prove myself strong in technical round &then accept the fake in HR round? 3.Some of my friends(who have shown fake and well settled in MNC's ) are telling that during interview u should never accept as fake i.e., u should act confidently as a real experienced guy.Even if the interviewer come to know that u r a fake guy, but seeing ur confidence level ,he/she will select u ? Is it true? Friends, particularly interviewer's , HR's please give me ur valuabe solutions.Other's suggestions are also welcome.

4 Answers  

---