How to capture the line clicked

Question

Hello All,
My program finds the wrong naming conventions in the program defined on the selection screen, and outputs all the lines and line no with in the program with incorrect naming conventions.
for eg:
data: begin of lv_output    25
end of lv_output               32
now
when i click on the line it should goto the line clicked in the program defined on the selection screen.
for this
i used event
AT LINE-SELECTION.
  CALL FUNCTION 'RS_TOOL_ACCESS'
which is now taking me into the program but not to the line i clicked .
how can i get this?plz advise
Thanks

Answer 1

Hi,
Refer this basic code for checking the field name and field value on which the user currently clicked.
TABLES : LFA1, LFB1.
TYPES : BEGIN OF VENDOR,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
        ORT01 LIKE LFA1-ORT01,
        END OF VENDOR,
        BEGIN OF VENDOR1,
        LIFNR LIKE LFA1-LIFNR,
        LAND1 LIKE LFA1-LAND1,
        BUKRS LIKE LFB1-BUKRS,
        END OF VENDOR1.
DATA : VENDOR_TAB TYPE STANDARD TABLE OF VENDOR INITIAL SIZE 20 WITH HEADER LINE,
       VENDOR1_TAB TYPE STANDARD TABLE OF VENDOR1 INITIAL SIZE 20 WITH HEADER LINE,
       FLDNAME(25),
       FLDVALUE(25).
TOP-OF-PAGE DURING LINE-SELECTION.
  WRITE :/ 'SECONDART LIST FOR VENDOR ID:', VENDOR_TAB-LIFNR COLOR 3.
  ULINE.
START-OF-SELECTION.
  SELECT LIFNR NAME1 ORT01
  FROM LFA1
  INTO CORRESPONDING FIELDS OF TABLE VENDOR_TAB.
AT LINE-SELECTION.
  GET CURSOR FIELD FLDNAME VALUE FLDVALUE. "<--get the fieldname and fieldvalue
  CASE FLDNAME.
    WHEN 'VENDOR_TAB-LIFNR' OR 'VENDOR_TAB-NAME1' OR 'VENDOR_TAB-ORT01'.
      IF SY-LSIND EQ 1.
        SELECT A~LIFNR A~LAND1 B~BUKRS
          FROM LFA1 AS A
          INNER JOIN LFB1 AS B
          ON A~LIFNR = B~LIFNR
          INTO CORRESPONDING FIELDS OF TABLE VENDOR1_TAB
          WHERE A~LIFNR = VENDOR_TAB-LIFNR.
        WRITE : /1 TEXT-001, 13 TEXT-004, 46 TEXT-005.
        ULINE.
        LOOP AT VENDOR1_TAB.
          WRITE : /1 VENDOR1_TAB-LIFNR, 13 VENDOR1_TAB-LAND1, 46 VENDOR1_TAB-BUKRS.
        ENDLOOP.
        ULINE.
        IF SY-SUBRC <> 0.
          MESSAGE E005.
        ENDIF.
      ENDIF.
    WHEN OTHERS.
      MESSAGE E006.
  ENDCASE.
END-OF-SELECTION.
  WRITE : /1 TEXT-001, 13 TEXT-002, 46 TEXT-003.
  ULINE.
  FORMAT HOTSPOT.
  LOOP AT VENDOR_TAB.
    WRITE : /1 VENDOR_TAB-LIFNR, 13 VENDOR_TAB-NAME1, 46 VENDOR_TAB-ORT01.
    HIDE : VENDOR_TAB-LIFNR. "<--store the value user clicked
  ENDLOOP.
  ULINE.
Hope this helps you.
Regards,
Tarun