AT LINE-SELECTION的GET CURSOR FIELD用法

AT LINE-SELECTION用于在报表输出时，点击某行时所产生的操作，响应的位置在整行。
具体应用时一般和 HIDE 连用。
HIDE的功能是抓取某个field在某行中的值，与sy-linno相关

图解屏幕触发流程

实例1.

1. REPORT  ZDAMON_003.
   
2. DATA: square TYPE i,
   
3.       cube   TYPE i.
   
4. 
   
5. START-OF-SELECTION.
   
6.   FORMAT HOTSPOT."鼠标呈现手型
   
7.   DO 10 TIMES.
   
8.     square = sy-index ** 2.
   
9.     cube   = sy-index ** 3.
   
10.     WRITE / sy-index.
    
11.     HIDE: square, cube.
    
12.   ENDDO.
    
13. 
    
14. AT LINE-SELECTION.
    
15.   WRITE: square, cube.

复制代码

如果在应用中希望只是对某个field，点击有效，而不是整行，须使用如下的方式，参考实例2.
实例2.

1. DATA:f_vbeln LIKE likp-vbeln.
   
2. DATA it_likp LIKE TABLE OF likp WITH HEADER LINE.
   
3. 
   
4. START-OF-SELECTION.
   
5.   FORMAT HOTSPOT."鼠标呈现手型
   
6.   SELECT  vbeln  ernam
   
7.      INTO CORRESPONDING FIELDS OF TABLE it_likp
   
8.      FROM likp.
   
9. 
   
10.   LOOP AT it_likp FROM 1 TO 5 .
    
11.     ULINE AT /(43). "输出指定长度的线
    
12.     WRITE: /  sy-vline,it_likp-vbeln,sy-vline,it_likp-ernam,sy-vline,sy-tabix,sy-vline.
    
13.   ENDLOOP.
    
14.   ULINE AT /(43).
    
15. 
    
16. *----------------------------------------------报表联查
    
17. AT LINE-SELECTION.
    
18.   GET CURSOR FIELD  it_likp-vbeln VALUE f_vbeln.
    
19.   "加前置零
    
20.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
21.     EXPORTING
    
22.       input  = f_vbeln
    
23.     IMPORTING
    
24.       output = f_vbeln
    
25.     EXCEPTIONS
    
26.       OTHERS = 1.
    
27. 
    
28.   READ TABLE it_likp WITH KEY vbeln = f_vbeln.
    
29.   IF sy-subrc = 0.
    
30.     SET PARAMETER ID  'VL' FIELD it_likp-vbeln.
    
31.     CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
    
32.   ENDIF.

复制代码