At line selection & at user comand help?

hi
i had an req like,to disply an list 1,than perform the BDC for the selected material with check box from list 1,than after BDC,the data is displaed on list 2 with the VBELN no.,along with there BDC msg,now user want to click on each VBELN records as per as his wish & go into the VA32,to see the BDC changes,please tell how to call this VA32,from list 2.
my code is like this:
start of selection.
perfrom selctiom.
perform list1.
at user command.
when 'BDC'. -
> with records selected with check box on list 1.
perfor BDC.
perform DATA. -
> to display the records,with BDC message,which will be list 2.
endcase.
now i need to call VA32,for the slected VBELN records,from list 2.
but within perfrom,its not taking at-line selection.
even,when i write at line selection after PERFORM DATA,its not accepting,please telll how to do tis.
if any thing not clear please tell.
regds

START-OF-SELECTION.
PERFORM RETRIEVE.
perform display.
at USER-COMMAND.
case sy-ucomm.
    when 'PUSH'.
      clear:itab3,itab3[],ch.
      IF SY-LSIND = '1'.
        do.
          clear:ch.
          READ LINE SY-INDEX FIELD VALUE ch.
          IF SY-SUBRC NE 0.
            EXIT.
          ENDIF.
          IF ch eq 'X'.
            MOVE itab1-vbeln TO ITab3-vbeln.
            MOVE itab1-AUDAT TO ITab3-AUDAT.
            MOVE itab1-posnr TO ITab3-posnr.
            MOVE itab1-matnr TO ITab3-matnr.
            MOVE itab1-arktx TO ITab3-arktx.
            MOVE ITab1-zmeng TO ITab3-zmeng.
            MOVE ITab1-RFMNG TO ITab3-RFMNG.
            MOVE ITab1-qty    TO ITab3-qty.
            APPEND ITab3.
            CLEAR:itab1,itab3.
          endif.
        enddo.
      ENDIF.
      if itab3[] is not initial.
        clear:d.
        CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
            TEXT_QUESTION         = 'You want to Contuine.'
            TEXT_BUTTON_1         = 'YES'
            TEXT_BUTTON_2         = 'NO'
            DISPLAY_CANCEL_BUTTON = ''
          IMPORTING
            ANSWER                = d.
        if d = '1'.
          perform BDC.
          perform data.
at line-selection.
READ LINE SY-INDEX.
check not itab5-vbeln is initial.
         set parameter ID 'AUN' field itab5-vbeln.
         call transaction 'VA32' and skip first screen.
         clear:itab5-vbeln.
        else.
        endif.
      endif.
    when 'SA'.
      IF SY-LSIND = '1'.
        do.
          clear:ch.
          READ LINE SY-INDEX FIELD VALUE ch.
          IF SY-SUBRC NE 0.
            EXIT.
          ENDIF.
          IF ch eq ''.
            CH = 'X'.
            modify LINE SY-INDEX FIELD VALUE ch.
          endif.
        enddo.
      ENDIF.
    when 'DSA'.
      IF SY-LSIND = '1'.
        do.
          clear:ch.
          READ LINE SY-INDEX FIELD VALUE ch.
          IF SY-SUBRC NE 0.
            EXIT.
          ENDIF.
          IF ch eq 'X'.
            CH = ''.
            modify LINE SY-INDEX FIELD VALUE ch.
          endif.
        enddo.
      ENDIF.
endcase.
end-of-selection.

Similar Messages

At line-selection & At user-command

Hi friends,
I have a small doubt. Can we user AT LINE-SELECTION & AT USER-COMMAND in one report..plz gimme an example.
Thanks is advance,
regards,
Ram

hi, try these with example i have given.
Write the set pf-status under start-of-selection,
In the set pf-status under the function keys give
F2 Pick Choose.
u can validate the at line-selection by taking..
At line-selection.
case sy-lsind.
when 1.
message....
when 2.
message....
endcase.
similarly, for At user-command.
case sy-ucomm.
when 'back'.
message...
when...
endcase.
Syntax
AT USER-COMMAND.
Effect
This statement defines an event block whose event is triggered by the ABAP runtime environment if, during the display of a screen list, a function with a self-defined function code was chosen.
Note
Self-defined function codes are all those that include character combinations, except for the following:
The function codes PICK and PF## ("##" stands for 01 to 24) do not cause the event AT USER-COMMAND, but the events AT LINE-SELECTION and AT PF##.
All function codes that start with the character "%" are interpreted as system functions and do not cause the event AT USER-COMMAND. The system functions for lists are listed in the following table 1.
The function codes in the following table 2, likewise, do not cause the event AT USER-COMMAND, but are handled by the list processor.
Table 1
Function code Function
%CTX Call a context menu
%EX Exit
%PC Save to file
%PRI Print
%SC Search for ...
%SC+ Find next
%SL Search in office
%ST Save to report tree
Table 2
Function code Function
BACK Back
P- Scroll to previous page
P-- Scroll to first page
P+ Scroll to next page
P++ Scroll to last page
PFILE name Store list lines in a text file named abap.lst in standard character representation in the standard directory of the application server. If a name is entered using name, this is converted to lowercase letters and used as the file name.
PL- Scroll to first line of the page
PL-n Scroll n lines back
PL+ Scroll to last line of the page
PL+n Scroll n lines up
PNOP No effect
PP- Scroll back one page
PP-n Scroll n pages back
PP+ Scroll one page forward
PP+n Scroll n pages forwad
PPn Scroll to beginning of page n
PRI, PRINT Print
PS-- Scroll to first column
PS++ Scroll to last column
PS- Scroll one column to the left
PS-n Scroll n columns to the left
PS+ Scroll one column to the right
PS+n Scroll n columns to the right
PSn Scroll to column n
PZn Scroll to line n
RW Cancel
here is an example handling both the commands in a program.
EXAMPLE:
START-OF-SELECTION.
WRITE: 'Basic List',
/ 'SY-LSIND:', sy-lsind.
TOP-OF-PAGE.
WRITE 'Top-of-Page'.
ULINE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-pfkey.
WHEN 'TEST'.
WRITE 'Self-defined GUI for Function Codes'.
ULINE.
ENDCASE.
AT LINE-SELECTION.
SET PF-STATUS 'TEST' EXCLUDING 'PICK'.
PERFORM out.
sy-lsind = sy-lsind - 1.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'FC1'.
PERFORM out.
WRITE / 'Button FUN 1 was pressed'.
WHEN 'FC2'.
PERFORM out.
WRITE / 'Button FUN 2 was pressed'.
WHEN 'FC3'.
PERFORM out.
WRITE / 'Button FUN 3 was pressed'.
WHEN 'FC4'.
PERFORM out.
WRITE / 'Button FUN 4 was pressed'.
WHEN 'FC5'.
PERFORM out.
WRITE / 'Button FUN 5 was pressed'.
ENDCASE.
sy-lsind = sy-lsind - 1.
FORM out.
WRITE: 'Secondary List',
/ 'SY-LSIND:', sy-lsind,
/ 'SY-PFKEY:', sy-pfkey.
ENDFORM.
Hope this may be helpful.
Sri.
pls:award points.

At line-selection & at user-command event issue

hi
i am working on a interactive report,with at line & at user command event,on list 3 i have used a pf status,to trigger the at user command event,till that i was working with at line selection,which are working fine,but on list 3,i am able to see my pf status,but at user command event is not working properly,its still working like at line selection event,if i clk on record,it take to for nxt action,which i want to do through the action button of pf status.
In debugging i checked that it coming to at user command,but the action in sy-user is 'PICK' & its doing the operation.
WHEN '3'.
      IF itab4[] IS NOT INITIAL.
        SET PF-STATUS 'Z203'.
        LOOP AT itab4.
          AT FIRST.
            WRITE:/1 'Material' ,18 'Name'.
          ENDAT.
          WRITE:/1 itab4-matnr,8 itab4-maktx.
          HIDE:itab4-matnr.
        ENDLOOP.
      ELSE.
        WRITE:/ 'No Data Found'.
      ENDIF.
ENDCASE.
BREAK-POINT.
AT USER-COMMAND.
CASE sy-ucomm.
    WHEN 'CALL'.
      PERFORM bdc_mm02.
ENDCASE.
pls tel me how to use at line selection & at user command in same report to make both events working efficiently.
regds
vipin

Check whether you have assigned Function Key F2 to your function code 'CALL'. If so change that function key. The function key F2 is always linked to function code 'PICK'.
Regards
Sathar

At line-selection and user command

hi,
is it possible to use both at line selecion and at user command at a time.

Hi Kiran,
Yes, it is possible to use both at line selecion and at
user command at a time.
AT LINE-SELECTION.
Event in interactive reporting
This event is processed whenever the user chooses a valid line in the list (i.e. a line generated by statements such as WRITE,ULINE, or SKIP) with the cursor and presses the function key which has the function PICK in the interface definition. This should normally be the function key F2, because it has the same effect as double-clicking the mouse, or clicking once in the case of a hotspot.
The processing for the event AT LINE-SELECTION usually generates further list output (the details list) which completely covers the current list display. If you want the current list display to remain visible (to aid user orientation), you can do this with the key word WINDOW.
AT USER-COMMAND.
Event in interactive reporting
This event is executed whenever the user presses a function key in the list or makes an entry in the command field.
DATA: NUMBER1 TYPE I VALUE 20,
      NUMBER2 TYPE I VALUE 5,
      RESULT TYPE I.
START-OF-SELECTION.
WRITE: / NUMBER1, '?', NUMBER2.
AT USER-COMMAND.
CASE SY-UCOMM.
    WHEN 'ADD'.
      RESULT = NUMBER1 + NUMBER2.
    WHEN 'SUBT'.
      RESULT = NUMBER1 - NUMBER2.
    WHEN 'MULT'.
      RESULT = NUMBER1 * NUMBER2.
    WHEN 'DIVI'.
      RESULT = NUMBER1 / NUMBER2.
    WHEN OTHERS.
      WRITE 'Unknown function code'.
      EXIT.
ENDCASE.
WRITE: / 'Result:', RESULT.
After entry of a function code, the appropriate processing is performed under the event AT USER-COMMAND and the result is displayed in the details list.
Reward points if helpful,
Rgds,
Sumana

Set PF Status and At-Line Selection & At User-Command

Hi All
I've used set PF status, at user command and at-line selection in my program. initially when i click on the material number it was not drilling further that is it was not taking to secondary list. i commented the PF status and tried. then it was working fine. Later, after checking on couple of doc i added F.code PICK in my PF status and uncommented the set-PF status in my program it was working fine. Now my question is why this kind of behaviour. When i uncomment the PF status and run the program without the f.code PICK in my PF status(se41) it was not working but after inlcuding the F.code in my PF it is working. Any good explanation?
thks
Prabhu

hi,
generally fuction code is useful for the system to find on which button or in which area the user has clicked in. based on the function code the system executes the satatements that are in user command. in your case i think u didnt gave any functionality in user-command. when at-user command is a event in interactive reporting which is triggered based on the button u had clicked.
at line-selection event uses two system variables
   1. sy-lsind [ current list index number ]
   2. sy-lisel [ contains the current area in which user ckicked ].
   3. sy-ucomm [ function code of clicked button ].
using these 3 vars we can drill down to 21 lists [ including 1st list ]
if helpful reward some points.
with regards,
suresh.

Need clarification on AT LINE SELECTION & AT USER COMMAND

Hi all,
can we use AT LINE SELECTION and AT USER COMMAND events in the same report? If yes what r the precautions that we have to take?
Thanks in advance
venkat

Hi Venkat,
I had written this code while I was learning Menu Painter. It will help help you.
*& Report YTEST_MENUPAINTER *
REPORT ztest.
*Consider a scenario when the user asks for Material Details(Table : MARA )
*displayed in one List and based on the Material selected he wants the corresponding
*Storage Location Data for that Material (Table : MARD ).
TABLES : mara.
TYPES : BEGIN OF tp_mara,
 matnr TYPE mara-matnr,
 mtart TYPE mara-mtart,
 mbrsh TYPE mara-mbrsh,
 matkl TYPE mara-matkl,
 END OF tp_mara.
TYPES : BEGIN OF tp_marc,
 matnr TYPE marc-matnr,
 werks TYPE marc-werks,
 pstat TYPE marc-pstat,
 ekgrp TYPE marc-ekgrp,
 dispr TYPE marc-dispr,
 END OF tp_marc.
TYPES : BEGIN OF tp_mard,
 matnr TYPE mard-matnr,
 werks TYPE mard-werks,
 lgort TYPE mard-lgort,
 lfgja TYPE mard-lfgja,
 labst TYPE mard-labst,
 umlme TYPE mard-umlme,
 END OF tp_mard.
DATA : t_mara TYPE STANDARD TABLE OF tp_mara,
 t_marc TYPE STANDARD TABLE OF tp_marc,
 t_mard TYPE STANDARD TABLE OF tp_mard,
 wa_mara TYPE tp_mara,
 wa_marc TYPE tp_marc,
 wa_mard TYPE tp_mard.
DATA : w_werks TYPE werks .
DATA : itab TYPE TABLE OF sy-ucomm.
START-OF-SELECTION.
*Collecting the material details form Table MARA
SELECT matnr
 mtart
 mbrsh
 matkl
 FROM mara
 INTO TABLE t_mara
 UP TO 200 ROWS.
END-OF-SELECTION.
SET PF-STATUS 'DETAIL'.
*Now I am Dispalying the Material Details in the Primary List
CLEAR wa_mara.
LOOP AT t_mara INTO wa_mara.
 IF sy-tabix EQ 1.
 FORMAT INTENSIFIED ON.
 FORMAT COLOR COL_KEY.
 WRITE : /5(16) 'Material Number'.
 FORMAT COLOR COL_NORMAL.
 WRITE : 24(15) 'Material Type',
 40(18) 'Industry Sector',
 58(18) 'Material Group' .
 ENDIF.
 FORMAT INTENSIFIED OFF.
 FORMAT COLOR COL_KEY.
 WRITE : /5(16) wa_mara-matnr.
 FORMAT COLOR COL_NORMAL.
 WRITE : 24(15) wa_mara-mtart,
 40(18) wa_mara-mbrsh,
 58(18) wa_mara-matkl.
*You can assume some sort of buffer is created in the memory and the values of
* wa_mara-matnr are put into it when you use the HIDE command
 HIDE wa_mara-matnr.
ENDLOOP.
*Now when user Double clicks a line (AT LINE-SELECTION event is trigerred) and
*the line contents of the line selected and the contents buffered using
*command interact and the value for the hidden variable is got into the variable
*refrenced using the HIDE command i.e.. wa_mara-matnr in our case
AT LINE-SELECTION.
IF sy-lsind = 1.
 FORMAT INTENSIFIED ON.
 WRITE: 'Plant Data for Material ' COLOR COL_NORMAL,
 35 wa_mara-matnr COLOR COL_TOTAL.
 REFRESH t_marc.
* Now I have the value of the Material in my hidden variable wa_mara-matnr
* Based on this I am selecting the Storage Location Data
 SELECT matnr
 werks
 pstat
 ekgrp
 dispr
 FROM marc
 INTO TABLE t_marc
 WHERE matnr = wa_mara-matnr.
 CLEAR wa_marc.
 FORMAT INTENSIFIED OFF.
 FORMAT COLOR COL_NORMAL.
 LOOP AT t_marc INTO wa_marc.
 IF sy-tabix EQ 1.
 FORMAT INTENSIFIED ON.
 FORMAT COLOR COL_NORMAL.
 WRITE : /24(6) 'Plant',
 30(22) 'Maintenance status',
 52(20) 'Purchasing Group',
 72(27) 'Material: MRP profile'.
 ENDIF.
 WRITE : /24(6) wa_marc-werks,
 30(22) wa_marc-pstat,
 52(20) wa_marc-ekgrp,
 72(27) wa_marc-dispr.
 CLEAR wa_marc.
 ENDLOOP.
 SKIP 5.
 FORMAT INTENSIFIED ON.
 WRITE: 'Storage Data for Material ' COLOR COL_NORMAL,
 35 wa_mara-matnr COLOR COL_TOTAL.
 REFRESH t_mard.
 SELECT matnr
 werks
 lgort
 lfgja
 labst
 umlme
 FROM mard
 INTO TABLE t_mard
 WHERE matnr = wa_mara-matnr.
 CLEAR wa_mard.
 FORMAT COLOR COL_NORMAL.
* Display the Storage Location Data in the Secondary List
 LOOP AT t_mard INTO wa_mard.
 IF sy-tabix EQ 1.
 FORMAT INTENSIFIED ON.
 FORMAT COLOR COL_NORMAL.
 WRITE : /24(6) 'Plant',
 30(20) 'Storage Location',
 50(12) 'Fiscal Year',
 62(15) 'Valuated stock',
 77(20) 'Stock in transfer'.
 ENDIF.
 WRITE : /24(6) wa_mard-werks,
 30(20) wa_mard-lgort,
 50(12) wa_mard-lfgja,
 62(15) wa_mard-labst,
 77(20) wa_mard-labst.
 ENDLOOP.
ENDIF.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'PLANT'.
 REFRESH itab. CLEAR itab.
 APPEND 'PLANT' TO itab.
 APPEND 'STORAGE' TO itab.
 SET PF-STATUS 'DETAIL' EXCLUDING itab .
 FORMAT INTENSIFIED ON.
 WRITE: 'Plant Data for Material ' COLOR COL_NORMAL,
 35 wa_mara-matnr COLOR COL_TOTAL.
 REFRESH t_marc.
 SELECT matnr
 werks
 pstat
 ekgrp
 dispr
 FROM marc
 INTO TABLE t_marc
 WHERE matnr = wa_mara-matnr.
 CLEAR wa_marc.
 FORMAT INTENSIFIED OFF.
 FORMAT COLOR COL_NORMAL.
 LOOP AT t_marc INTO wa_marc.
 IF sy-tabix EQ 1.
 FORMAT INTENSIFIED ON.
 FORMAT COLOR COL_NORMAL.
 WRITE : /24(6) 'Plant',
 30(22) 'Maintenance status',
 52(20) 'Purchasing Group',
 72(27) 'Material: MRP profile'.
 ENDIF.
 WRITE : /24(6) wa_marc-werks,
 30(22) wa_marc-pstat,
 52(20) wa_marc-ekgrp,
 72(27) wa_marc-dispr.
 CLEAR wa_marc.
 ENDLOOP.
 WHEN 'STORAGE'.
 REFRESH itab. CLEAR itab.
 APPEND 'PLANT' TO itab.
 APPEND 'STORAGE' TO itab.
 SET PF-STATUS 'DETAIL' EXCLUDING itab .
 FORMAT INTENSIFIED ON.
 WRITE: 'Storage Data for Material ' COLOR COL_NORMAL,
 35 wa_mara-matnr COLOR COL_TOTAL.
 REFRESH t_mard.
 SELECT matnr
 werks
 lgort
 lfgja
 labst
 umlme
 FROM mard
 INTO TABLE t_mard
 WHERE matnr = wa_mara-matnr.
 CLEAR wa_mard.
 FORMAT COLOR COL_NORMAL.
 LOOP AT t_mard INTO wa_mard.
 IF sy-tabix EQ 1.
 FORMAT INTENSIFIED ON.
 FORMAT COLOR COL_NORMAL.
 WRITE : /24(6) 'Plant',
 30(20) 'Storage Location',
 50(12) 'Fiscal Year',
 62(15) 'Valuated stock',
 77(20) 'Stock in transfer'.
 ENDIF.
 WRITE : /24(6) wa_mard-werks,
 30(20) wa_mard-lgort,
 50(12) wa_mard-lfgja,
 62(15) wa_mard-labst,
 77(20) wa_mard-labst.
 ENDLOOP.
ENDCASE.
My SE41 settings are.
 Application toolbar Test for Material Detail Display
Items 1 - 7 STORAGE PLANT
STORAG PLANT
Items 8 - 14
Items 15 - 21
Items 22 - 28
Items 29 - 35
Function keys Test for Material Detail Display
Standard Toolbar
SAVE BACK EXIT CANCEL PRINT FIND FIND NEXT
Recommended function key settings
F2 PICK Choose
F9 <..> Select
Shift-F2 <..> Delete
Shift-F4 <..> Save without check
Shift-F5 <..> Other <object>
Freely assigned function keys
F5 STORAGE STORAGE
F6 PLANT PLANT
F7
F8
Shift-F1
Hope this will help you.
Regards,
Arun Sambargi.
Message was edited by: Arun Sambargi

At line-selection /at user-command in alv

hai ,
 i used layout-listappend to output 3 alv's in one page .but
after using layout-listappend i_usercommand in reuse_alv_.. is not working .so i tried to use at line selection . please guide me to solve this problem how to use at line-selection in this prob or is there any other suitable way.

hi,
try this code it will help you
*& Report ZP_ALV8
REPORT zp_alv8.
TABLES: kna1, mara, vbak, mard.
TYPE-POOLS: slis.
**TYPE DECLERATION
TYPES: BEGIN OF ty_kna1,
 kunnr LIKE kna1-kunnr,
 land1 LIKE kna1-land1,
 name1 LIKE kna1-name1,
 ort01 LIKE kna1-ort01,
 END OF ty_kna1.
TYPES: BEGIN OF ty_mara,
 matnr LIKE mara-matnr,
 ersda LIKE mara-ersda,
 ernam LIKE mara-ernam,
 END OF ty_mara.
TYPES: BEGIN OF ty_vbak,
 vbeln LIKE vbak-vbeln,
 erdat LIKE vbak-erdat,
 ernam LIKE vbak-ernam,
 END OF ty_vbak.
TYPES: BEGIN OF ty_mard,
 matnr LIKE mard-matnr,
 werks LIKE mard-werks,
 lgort LIKE mard-lgort,
 END OF ty_mard.
**DATA DECLERATION
DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,
 wa_kna1 TYPE ty_kna1.
DATA: it_mara TYPE STANDARD TABLE OF ty_mara,
 wa_mara TYPE ty_mara.
DATA: it_vbak TYPE STANDARD TABLE OF ty_vbak,
 wa_vbak TYPE ty_vbak.
DATA: it_mard TYPE STANDARD TABLE OF ty_mard,
 wa_mard TYPE ty_mard.
DATA: it_fieldcat_kna1 TYPE slis_t_fieldcat_alv,
 wa_fieldcat_kna1 TYPE slis_fieldcat_alv,
 it_fieldcat_mara TYPE slis_t_fieldcat_alv,
 wa_fieldcat_mara TYPE slis_fieldcat_alv,
 it_fieldcat_vbak TYPE slis_t_fieldcat_alv,
 wa_fieldcat_vbak TYPE slis_fieldcat_alv,
 it_fieldcat_mard TYPE slis_t_fieldcat_alv,
 wa_fieldcat_mard TYPE slis_fieldcat_alv.
DATA: it_event_kna1 TYPE slis_t_event,
 wa_event_kna1 TYPE slis_alv_event,
 it_event_mara TYPE slis_t_event,
 wa_event_mara TYPE slis_alv_event,
 it_event_vbak TYPE slis_t_event,
 wa_event_vbak TYPE slis_alv_event,
 it_event_mard TYPE slis_t_event,
 wa_event_mard TYPE slis_alv_event.
DATA: wa_layout TYPE slis_layout_alv,
 it_listheader TYPE slis_t_listheader,
 wa_listheader TYPE slis_listheader.
selection-screen begin of block b1 with frame title text-001.
select-options: s_kunnr for kna1-kunnr default '1000' to '1050'.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
select-options: s_matnr for mara-matnr default '1' to '100'.
selection-screen end of block b2.
**INITIALIZATION
INITIALIZATION.
PERFORM layout.
PERFORM fieldcat_kna1.
PERFORM fieldcat_mara.
PERFORM event_kna1.
PERFORM event_mara.
PERFORM eventpopulate_kna1.
PERFORM eventpopulate_mara.
**START OF SELECTION AND FIRST LIST DISPLAY
START-OF-SELECTION.
SELECT kunnr land1 name1 ort01
 FROM kna1
 INTO TABLE it_kna1
 where kunnr in s_kunnr.
 UP TO 10 ROWS.
SELECT matnr ersda ernam
 FROM mara
 INTO TABLE it_mara
 where matnr in s_matnr.
 UP TO 20 ROWS.
PERFORM display.
**FORM LAYOUT
*& Form layout
 text
--> p1 text
<-- p2 text
FORM layout .
wa_layout-zebra ='X'.
wa_layout-get_selinfos = 'X'.
wa_layout-key_hotspot = 'X'.
ENDFORM. " layout
*FIELD CATALOUGE*******************************
*& Form fieldcat_kna1
 text
--> p1 text
<-- p2 text
FORM fieldcat_kna1 .
REFRESH it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'KUNNR'.
wa_fieldcat_kna1-seltext_l = 'CUSTOMER NUMBER'.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-key = 'X'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 1.
wa_fieldcat_kna1-emphasize = 'C21'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'LAND1'.
wa_fieldcat_kna1-seltext_l = 'COUNTRY CODE'.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 2.
wa_fieldcat_kna1-emphasize = 'C31'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'NAME1'.
wa_fieldcat_kna1-seltext_l = 'CUSTOMER NAME'.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 3.
wa_fieldcat_kna1-emphasize = 'C71'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
wa_fieldcat_kna1-fieldname = 'ORT01'.
wa_fieldcat_kna1-seltext_l = 'COUNTRY '.
wa_fieldcat_kna1-datatype = 'CHAR'.
wa_fieldcat_kna1-outputlen = 30.
wa_fieldcat_kna1-tabname = 'IT_KNA1'.
wa_fieldcat_kna1-hotspot = 'X'.
wa_fieldcat_kna1-col_pos = 4.
wa_fieldcat_kna1-emphasize = 'C51'.
APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.
CLEAR wa_fieldcat_kna1.
ENDFORM. " fieldcat_kna1
*& Form fieldcat_kna2
 text
FORM fieldcat_mara .
wa_fieldcat_mara-fieldname = 'MATNR'.
wa_fieldcat_mara-seltext_l = 'MATERIAL NUMBER'.
wa_fieldcat_mara-datatype = 'CHAR'.
wa_fieldcat_mara-outputlen = 30.
wa_fieldcat_mara-tabname = 'IT_MARA'.
wa_fieldcat_mara-key = 'X'.
wa_fieldcat_mara-hotspot = 'X'.
wa_fieldcat_mara-col_pos = 1.
wa_fieldcat_mara-emphasize = 'C21'.
APPEND wa_fieldcat_mara TO it_fieldcat_mara.
CLEAR wa_fieldcat_mara.
wa_fieldcat_mara-fieldname = 'ERSDA'.
wa_fieldcat_mara-seltext_l = 'CREATED ON'.
wa_fieldcat_mara-datatype = 'CHAR'.
wa_fieldcat_mara-outputlen = 30.
wa_fieldcat_mara-tabname = 'IT_MARA'.
wa_fieldcat_mara-hotspot = 'X'.
wa_fieldcat_mara-col_pos = 2.
wa_fieldcat_mara-emphasize = 'C41'.
APPEND wa_fieldcat_mara TO it_fieldcat_mara.
CLEAR wa_fieldcat_mara.
wa_fieldcat_mara-fieldname = 'ERNAM'.
wa_fieldcat_mara-seltext_l = 'CREATED BY'.
wa_fieldcat_mara-datatype = 'CHAR'.
wa_fieldcat_mara-outputlen = 30.
wa_fieldcat_mara-tabname = 'IT_MARA'.
wa_fieldcat_mara-hotspot = 'X'.
wa_fieldcat_mara-col_pos = 3.
wa_fieldcat_mara-emphasize = 'C61'.
APPEND wa_fieldcat_mara TO it_fieldcat_mara.
CLEAR wa_fieldcat_mara.
ENDFORM. "fieldcat_kna2
*& Form FIELDCAT_VBAK
 text
FORM fieldcat_vbak.
wa_fieldcat_vbak-fieldname = 'VBELN'.
wa_fieldcat_vbak-seltext_l = 'SALES ORDER'.
wa_fieldcat_vbak-datatype = 'CHAR'.
wa_fieldcat_vbak-outputlen = 30.
wa_fieldcat_vbak-tabname = 'IT_VBAK'.
wa_fieldcat_vbak-hotspot = 'X'.
wa_fieldcat_vbak-col_pos = 3.
wa_fieldcat_vbak-emphasize = 'C31'.
APPEND wa_fieldcat_vbak TO it_fieldcat_vbak.
CLEAR wa_fieldcat_vbak.
wa_fieldcat_vbak-fieldname = 'ERDAT'.
wa_fieldcat_vbak-seltext_l = 'CREATED ON'.
wa_fieldcat_vbak-datatype = 'DATS'.
wa_fieldcat_vbak-outputlen = 30.
wa_fieldcat_vbak-tabname = 'IT_VBAK'.
wa_fieldcat_vbak-hotspot = 'X'.
wa_fieldcat_vbak-col_pos = 3.
wa_fieldcat_vbak-emphasize = 'C41'.
APPEND wa_fieldcat_vbak TO it_fieldcat_vbak.
CLEAR wa_fieldcat_vbak.
wa_fieldcat_vbak-fieldname = 'ERNAM'.
wa_fieldcat_vbak-seltext_l = 'CREATED BY'.
wa_fieldcat_vbak-datatype = 'CHAR'.
wa_fieldcat_vbak-outputlen = 30.
wa_fieldcat_vbak-tabname = 'IT_VBAK'.
wa_fieldcat_vbak-hotspot = 'X'.
wa_fieldcat_vbak-col_pos = 3.
wa_fieldcat_vbak-emphasize = 'C51'.
APPEND wa_fieldcat_vbak TO it_fieldcat_vbak.
CLEAR wa_fieldcat_vbak.
ENDFORM. "FIELDCAT_VBAK
*& Form fieldcat_mard
 text
FORM fieldcat_mard.
wa_fieldcat_mard-fieldname = 'MATNR'.
wa_fieldcat_mard-seltext_l = 'MATERIAL NUMBER'.
wa_fieldcat_mard-datatype = 'CHAR'.
wa_fieldcat_mard-outputlen = 30.
wa_fieldcat_mard-tabname = 'IT_MARD'.
wa_fieldcat_mard-hotspot = 'X'.
wa_fieldcat_mard-col_pos = 1.
wa_fieldcat_mard-emphasize = 'C31'.
APPEND wa_fieldcat_mard TO it_fieldcat_mard.
CLEAR wa_fieldcat_mard.
wa_fieldcat_mard-fieldname = 'WERKS'.
wa_fieldcat_mard-seltext_l = 'PLANT'.
wa_fieldcat_mard-datatype = 'CHAR'.
wa_fieldcat_mard-outputlen = 30.
wa_fieldcat_mard-tabname = 'IT_MARD'.
wa_fieldcat_mard-hotspot = 'X'.
wa_fieldcat_mard-col_pos = 2.
wa_fieldcat_mard-emphasize = 'C61'.
APPEND wa_fieldcat_mard TO it_fieldcat_mard.
CLEAR wa_fieldcat_mard.
wa_fieldcat_mard-fieldname = 'LGORT'.
wa_fieldcat_mard-seltext_l = 'STORAGE LOCATION'.
wa_fieldcat_mard-datatype = 'CHAR'.
wa_fieldcat_mard-outputlen = 30.
wa_fieldcat_mard-tabname = 'IT_MARD'.
wa_fieldcat_mard-hotspot = 'X'.
wa_fieldcat_mard-col_pos = 3.
wa_fieldcat_mard-emphasize = 'C81'.
APPEND wa_fieldcat_mard TO it_fieldcat_mard.
CLEAR wa_fieldcat_mard.
ENDFORM . "fieldcat_mard
**FORM DISPLAY
*& Form Display
 text
--> p1 text
<-- p2 text
FORM display .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
 EXPORTING
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'.
IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 is_layout = wa_layout
 it_fieldcat = it_fieldcat_kna1
 i_tabname = 'IT_KNA1'
 it_events = it_event_kna1
IT_SORT =
I_TEXT = ' '
 TABLES
 t_outtab = it_kna1
 EXCEPTIONS
 program_error = 1
 maximum_of_appends_reached = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 is_layout = wa_layout
 it_fieldcat = it_fieldcat_mara
 i_tabname = 'IT_MARA'
 it_events = it_event_mara
IT_SORT =
I_TEXT = ' '
 TABLES
 t_outtab = it_mara
 EXCEPTIONS
 program_error = 1
 maximum_of_appends_reached = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
 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.
ENDFORM. " Display
**EVENTS FOR KNA1 AND MARA
*& Form EVENT_KNA1
 text
--> p1 text
<-- p2 text
FORM event_kna1 .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = it_event_kna1
 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.
ENDFORM. " EVENT_KNA1
*& Form EVENT_MARA
 text
--> p1 text
<-- p2 text
FORM event_mara .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = it_event_mara
 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.
ENDFORM. " EVENT_MARA
**POPULATING EVENTS
*& Form eventpopulate_kna1
 text
--> p1 text
<-- p2 text
FORM eventpopulate_kna1 .
READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
 wa_event_kna1-form = 'TOP_OF_PAGE_KNA1'.
 MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.
ENDIF.
READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'USER_COMMAND'.
IF sy-subrc = 0.
 wa_event_kna1-form = 'USER_COMMAND_KNA1'.
 MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.
ENDIF.
ENDFORM. " eventpopulate_kna1
*& Form eventpopulate_mara
 text
--> p1 text
<-- p2 text
FORM eventpopulate_mara .
READ TABLE it_event_mara INTO wa_event_mara WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
 wa_event_mara-form = 'TOP_OF_PAGE_MARA'.
 MODIFY it_event_mara FROM wa_event_mara TRANSPORTING form WHERE name = wa_event_mara-name.
ENDIF.
READ TABLE it_event_mara INTO wa_event_mara WITH KEY name = 'USER_COMMAND'.
IF sy-subrc = 0.
 wa_event_mara-form = 'USER_COMMAND_MARA'.
 MODIFY it_event_mara FROM wa_event_mara TRANSPORTING form WHERE name = wa_event_mara-name.
ENDIF.
ENDFORM. " eventpopulate_mara
**TOP OF PAGE
*& Form TOP_OF_PAGE_KNA1
 text
FORM top_of_page_kna1.
wa_listheader-typ = 'H'.
wa_listheader-info = 'CUSTOMER DETAILS' .
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
WRITE:/ 'CUSTOMER DETAILS'.
ENDFORM. "TOP_OF_PAGE_KNA1
*& Form TOP_OF_PAGE_MARA
 text
FORM top_of_page_mara.
wa_listheader-typ = 'H'.
wa_listheader-info = 'MATERIAL DETAILS' .
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
WRITE:/ 'MATERIAL DETAILS' .
ENDFORM. "TOP_OF_PAGE_KNA1
**CODE FOR SECOND LIST DISPLAY FOR VBAK
*& Form USER_COMMAND
 text
 -->UCOMM text
 -->R_SELFIELD text
FORM user_command
 USING ucomm LIKE sy-ucomm
 r_selfield TYPE slis_selfield.
CASE UCOMM.
when '&IC1'.
 CASE R_SELFIELD-TABNAME.
 WHEN 'IT_KNA1'.
 DATA: CUST(10) TYPE n.
 CUST = r_selfield-value.
 SELECT vbeln erdat ernam
 FROM vbak
 INTO TABLE it_vbak
 WHERE kunnr = cust.
 PERFORM fieldcat_vbak.
 PERFORM display_vbak.
 WHEN 'IT_MARA'.
 DATA: MAT(18) TYPE N.
 MAT = R_selfield-value.
 SELECT matnr werks lgort
 FROM mard
 INTO TABLE it_mard
 WHERE matnr = mat.
 PERFORM fieldcat_mard.
 PERFORM display_mard.
 ENDCASE.
ENDCASE.
ENDFORM. "USER_COMMAND
**& Form USER_COMMAND_MARA
 text
 -->UCOMM text
 -->S_SELFIELD text
*FORM user_command_mara
 USING ucomm LIKE sy-ucomm
 s_selfield TYPE slis_selfield.
SELECT matnr werks lgort
 FROM mard
 INTO TABLE it_mard
 WHERE matnr = s_selfield-value.
PERFORM fieldcat_mard.
PERFORM display_mard.
*ENDFORM. "USER_COMMAND_MARA
*& Form DISPLAY_VBAK
 text
--> p1 text
<-- p2 text
FORM display_vbak .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
 IS_LAYOUT = wa_layout
 IT_FIELDCAT = it_fieldcat_vbak
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
 t_outtab = it_vbak
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.
ENDFORM. " DISPLAY_VBAK
*& Form display_mard
 text
FORM display_mard .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USER_COMMAND_MARD'
I_STRUCTURE_NAME =
 is_layout = wa_layout
 it_fieldcat = it_fieldcat_mard
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 it_events = it_event_mard
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_mard
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.
ENDFORM. "display_mard
regards
prasanth

How to use both At USER-COMMAND and AT LINE-SELECTION in one abap program

I am trying out a program where I need to use both line selection and user command events in one program. Suggest me how to do it.

USE the okcode 'PICK'. (I mean add a 'PICK' in the GUI staus or the menu.) When ever u use both the events u have to use PICK to trigger the at line selection.
U just need to add the PICK in the GUI status and ofcourse write code in the program.
AT LINE-SELECTION.
CASE sy-ucomm.
WHEN 'PICK'.
write:/ 'HELLO WORLD'.
ENDCASE.

Need help AT LINE SELECTION

Hi Guys,
I need ur help regarding my coding: AT LINE SELECTION.
Here is my codes, but it is not working.
AT LINE-SELECTION.
IF ( wa_list-auart = 'ZCS' AND wa_list-auart = 'ZSA' ).
 IF NOT wa_list-sonum IS INITIAL.
 SET PARAMETER ID 'AUN' FIELD wa_list-sonum.
 CALL TRANSACTION 'VF01' AND SKIP FIRST SCREEN.
 CLEAR wa_list-sonum.
 ENDIF.
ELSE.
 IF NOT wa_list-drnum IS INITIAL.
 SET PARAMETER ID 'AUN' FIELD wa_list-drnum.
 CALL TRANSACTION 'VF01' AND SKIP FIRST SCREEN.
 CLEAR wa_list-drnum.
 ENDIF.
ENDIF.
The requirements are:
1. Data selection on column Item + Magnifying Glass Icon click will direct user to transaction code VF01 ====>>its working, but the problem is when i click the line item no 1, it wasnt work. Line item no 1 only but the rest items its workin.
2. Sales Order No (VBAK-VBELN) will be the default value on document column of VF01 if Sales Order Type (VBAK-AUART) = ZCS or ZSA else Delivery No (LIKP-VBELN) will be the default value on document column of VF01. ===>the problem is when i click the line item, there is no default Sales Order No or Delivery NO on parameter 'AUN' <Document column> based on if statement.
3. Warning Message Select a line item to proceed. will be displayed if no line item selected on magnifying glass icon click. ===> help me on how to codes this one if i click to a non line item, there should be a Warning Message Select a line item to proceed.
Thanks in advance.
zhien.

hi joycee
i think one of the command written by u
:-"IF NOT wa_list-sonum IS INITIAL."
shoud be written like
:- IF wa_list-sonum IS NOT INITIAL.

Help with at-line selection event...

Hello experts,
I am currently modifying my report to let the users click on either the asset number or
the equipment number and go to its respective transaction. If he clicks the asset number,
it would take him to transaction AW01N and if he otherwise clicks on the equipment number,
it would take him to transaction IE03. But there are couple of problems that I am facing.
First is, I have hotspotted my field which is named asset_subnum which contains the asset and
the asset subnumber. So it would look like this:
1234567879-0000
Now, can I split it at '-' then put those in 2 variables lets say lv_asset and lv_asset_sub
then I will hide those 2 variables?
Also, I am using field-symbols as my 'work area' of my internal table. How can I declare it in at
line-selection?
Anyway, below is my code guys:
LOOP AT it_output ASSIGNING <fs_output>.
IF <fs_output>-parent IS INITIAL.
 WRITE: (17) <fs_output>-asset_subnum CENTERED.
 ELSE.
 WRITE: (17) <fs_output>-asset_subnum RIGHT-JUSTIFIED.
 ENDIF.
 FORMAT HOTSPOT OFF.
 WRITE: (17) <fs_output>-parent_subnum CENTERED,
 (30) <fs_output>-funcloc CENTERED,
 (40) <fs_output>-description CENTERED.
 IF p_equip = 'X'.
 FORMAT HOTSPOT ON.
 WRITE: (18) <fs_output>-equip_num CENTERED.
 FORMAT HOTSPOT OFF.
 ENDIF.
 WRITE: (15) <fs_output>-asset_sub CENTERED,
 (40) <fs_output>-location CENTERED,
 (15) <fs_output>-accq_cost CENTERED,
 (20) <fs_output>-acc_dep CENTERED,
 (20) <fs_output>-asset_book_val CENTERED,
 sy-vline.
endloop.
When I try to hide my fields like:
HIDE <fs_output>-equip_num.
it is giving me a dump saying:
HIDE is not allowed for lines of internal tables.
Help would be greatly appreciated.Thanks a lot guys and take care!

Hi viraylab,
Minor Problem.
1. U are using field-symbols,
 and the definition must be of this type
FIELD-SYMBOLS : <fs> STRUCTURE T001 DEFAULT T001.
(so that u are able to directly use the field names
<FS>-fieldname
2. Hence,
3. instead of
LOOP AT it_output ASSIGNING <fs_output>.
just use
LOOP AT it_output .
(The problem is coming bcos of ASSIGNING)
4. the field symbol will automatically have
the data of the internal table in the loop.
5. To verify this point,
 just copy paste my small code.
6.
report abc.
data : t001 like t001 occurs 0 with header line.
FIELD-SYMBOLS : <fs> STRUCTURE T001 DEFAULT T001.
START-OF-SELECTION.
select * from t001 into table t001.
*------ UNCOMMENT TO GET ERROR / COMMENT 2ND LINE THEN
*loop at t001 ASSIGNING <fs>.
 loop at t001 .
 write :/ <fs>-bukrs.
 hide <fs>-bukrs.
 endloop.
AT LINE-SELECTION.
WRITE T001-BUKRS.
regards,
amit m.

At line-selection and At-user command

Hi friends,
Can we use both those events at a time in report?
If so can any body provide me sample code?
Regards

Example for AT LINE-SELECTION
REPORT demo_list_at_line_selection.
START-OF-SELECTION.
WRITE 'Basic List'.
AT LINE-SELECTION.
WRITE: 'Secondary List by Line-Selection',
 / 'SY-UCOMM =', sy-ucomm.
When you run the program, the basic list appears with the standard list status. The detail list shows that SY-UCOMM has the value PICK.
Example for AT USER-COMMAND
REPORT demo_list_at_user_command NO STANDARD PAGE HEADING.
START-OF-SELECTION.
WRITE: 'Basic List',
 / 'SY-LSIND:', sy-lsind.
TOP-OF-PAGE.
WRITE 'Top-of-Page'.
ULINE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-pfkey.
 WHEN 'TEST'.
 WRITE 'Self-defined GUI for Function Codes'.
 ULINE.
ENDCASE.
AT LINE-SELECTION.
SET PF-STATUS 'TEST' EXCLUDING 'PICK'.
PERFORM out.
sy-lsind = sy-lsind - 1.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'FC1'.
 PERFORM out.
 WRITE / 'Button FUN 1 was pressed'.
 WHEN 'FC2'.
 PERFORM out.
 WRITE / 'Button FUN 2 was pressed'.
 WHEN 'FC3'.
 PERFORM out.
 WRITE / 'Button FUN 3 was pressed'.
 WHEN 'FC4'.
 PERFORM out.
 WRITE / 'Button FUN 4 was pressed'.
 WHEN 'FC5'.
 PERFORM out.
 WRITE / 'Button FUN 5 was pressed'.
ENDCASE.
sy-lsind = sy-lsind - 1.
FORM out.
WRITE: 'Secondary List',
 / 'SY-LSIND:', sy-lsind,
 / 'SY-PFKEY:', sy-pfkey.
ENDFORM.
When you run the program, the system displays the following basic list with a the page header defined in the program:
You can trigger the AT LINE-SELECTION event by double-clicking a line. The system sets the status TEST and deactivates the function code PICK. The status TEST contains function codes FC1 to FC5. These are assigned to pushbuttons in the application toolbar. The page header of the detail list depends on the status.
Here, double-clicking a line no longer triggers an event. However, there is now an application toolbar containing five user-defined pushbuttons. You can use these to trigger the AT USER-COMMAND event. The CASE statement contains a different reaction for each pushbutton.
For each interactive event, the system decreases the SY-LSIND system field by one, thus canceling out the automatic increase. All detail lists now have the same level as the basic list and thus overwrite it. While the detail list is being created, SY-LSIND still has the value 1.
I hope it helps.
For more details have a look at below link.
http://help.sap.com/saphelp_di471/helpdata/EN/9f/dba3ae35c111d1829f0000e829fbfe/content.htm
Best Regards,
Vibha
*Please mark all the helpful answers

How to use AT LINE-SELECTION and AT USER-COMMAND in one report????

Dear all,
I have a problem in reports I want to use AT USER-COMMAND.and AT LINE-SELECTION.both in the one report.
But as soon as I use SET PF-STATUS my AT LINE-SELECTION event stop workingand only AT USER-COMMAND is working.
How can I use both of them in one report for your reference I am giving my test program below.
REPORT ZTEST111 .
SET PF-STATUS '100'.
DO 10 TIMES.
WRITE:/ SY-INDEX.
HIDE SY-INDEX.
ENDDO.
START-OF-SELECTION.
AT LINE-SELECTION.
MESSAGE I002(SY) WITH SY-INDEX.
AT USER-COMMAND.
MESSAGE I002(SY) WITH 'USER COMMAND'.
END-OF-SELECTION.
Thanks in advance
Sachin Gautam

hi
Syntax
AT USER-COMMAND.
Effect
This statement defines an event block whose event is triggered by the ABAP runtime environment if, during the display of a screen list, a function with a self-defined function code was chosen.
Note
Self-defined function codes are all those that include character combinations, except for the following:
The function codes PICK and PF## ("##" stands for 01 to 24) do not cause the event AT USER-COMMAND, but the events AT LINE-SELECTION and AT PF##.
All function codes that start with the character "%" are interpreted as system functions and do not cause the event AT USER-COMMAND. The system functions for lists are listed in the following table 1.
The function codes in the following table 2, likewise, do not cause the event AT USER-COMMAND, but are handled by the list processor.
Table 1
Function code Function
%CTX Call a context menu
%EX Exit
%PC Save to file
%PRI Print
%SC Search for ...
%SC+ Find next
%SL Search in office
%ST Save to report tree
Table 2
Function code Function
BACK Back
P- Scroll to previous page
P-- Scroll to first page
P+ Scroll to next page
P++ Scroll to last page
PFILE name Store list lines in a text file named abap.lst in standard character representation in the standard directory of the application server. If a name is entered using name, this is converted to lowercase letters and used as the file name.
PL- Scroll to first line of the page
PL-n Scroll n lines back
PL+ Scroll to last line of the page
PL+n Scroll n lines up
PNOP No effect
PP- Scroll back one page
PP-n Scroll n pages back
PP+ Scroll one page forward
PP+n Scroll n pages forwad
PPn Scroll to beginning of page n
PRI, PRINT Print
PS-- Scroll to first column
PS++ Scroll to last column
PS- Scroll one column to the left
PS-n Scroll n columns to the left
PS+ Scroll one column to the right
PS+n Scroll n columns to the right
PSn Scroll to column n
PZn Scroll to line n
RW Cancel

At user-command & At Line-selection

Hi,
I am using ECC5 ver. of ABAP.
Can I use AT USER-COMMAND and AT LINE-SELECTION
in the same report?
I have used it but only At user command works, not At line selection.
When I remove Set pf-Status, At line selection works.
Here is my code.
REPORT PF&ATLINE.
AT LINE-SELECTION.
MESSAGE 'Line Selected' TYPE 'I'.
AT USER-COMMAND.
IF sy-ucomm = 'PUSH'.
    MESSAGE 'Button Pushed' type 'I'.
elseif sy-ucomm = 'EXIT'.
    LEAVE PROGRAM.
ENDIF.
START-OF-SELECTION.
SET PF-STATUS 'ZRND3'.
DO 10 TIMES.
    WRITE:/01 SY-INDEX HOTSPOT.
ENDDO.
END-OF-SELECTION.

Hi Rajiv,
Setting the PICK function code to F2 will definitely solve it..
and it triggers the at user-command and at line-selection event as per user interaction...
If it is not working properly... then there might me something wrong in your code...
can you place the code... so that we can know the exact problem
regards
padma

AT LINE SELECTION AN AT USER-COMMAND IN ONE REPORT

hiiii friends.....
hw can i go for both at line selection an at user comond in one report....
ie if double click on basic list it should shw sm output an when i choose menu optoin it should perform sm other output......

You need to crate a PF-Status and in the PF-staus you need to include some essentials buttons and the button for your list on the USER-COMMAND.
Say,
BACK
EXIT
CANC
PICK ... should be assigned to F2 .. to work with LINE-SELECTION.
NEW_LIST ... for USER-COMMAND
In your report:
START-OF-SELECTION.
SET PF-STATUS 'Z_OWN'.
AT LINE-SELECTION.
WRITE : 'I AM LINE SELECTION'.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'NEW_LIST'.
WRITE / 'I AM CALLED FROM USER COMMAND'.
ENDCASE.
Regards,
Naimesh Patel

ITS URGENT QUES ON AT LINE-SELECTION AND AT USER-COMMAND

ITS URGENT...WHEN I SELECT MULTIPUL VALUES IN BASIC LIST ,I HAVE TO GET THOSE SELECTED MULTIPUL VALUES IN SECONDARY LIST THAT CAN BE AFTER(AT LINE-SELECTION OR AT USER-COMMAND)............?

hey
this code modify's simlarly u can read n display secondary window
 DO .
Reading the internal table whose data is displayed into wrk area.....
 READ LINE SY-INDEX FIELD VALUE INT_DISPLAY-SHIPMENT_ID INTO WF_SHIPMENT_ID.
Reading the check box value
 READ LINE SY-INDEX FIELD VALUE WG_CHK.
If all the records are read and there is no code left to read
 IF SY-SUBRC <> 0 .
 EXIT.
 ENDIF.
To highlight the line which is selected by the user
 IF WG_CHK = WL_X.
 MODIFY CURRENT LINE
 LINE FORMAT COLOR COL_NEGATIVE INVERSE
 FIELD VALUE WG_CHK FROM WL_SPACE.
 MODIFY CURRENT LINE
 LINE FORMAT INPUT OFF.
Also append the record read into new internal table which u will display in secondary window.......
 ENDIF.
 ENDDO.
AT USER-COMMAND. or AT LINE SELECTION . u can write this code.........
DISPLAYING A POP-UP WINDOW .
 WINDOW STARTING AT 10 50
 ENDING AT 120 70.
and then write the table into which u have stored the read entry which user had selected
reward points if useful

At line selection & at user comand help?

Similar Messages

Maybe you are looking for