Interactive list report with screns

Question

hi! all
          I have an Executable report which has a screen as an input screen not selection-screen, and a classical list display as its output for the entered data. in that output display i have an hotspot column which acts as a base for the secondary screen.
         Now im not able to trigger the event +at line-selection + .
         where to place this event to fetch the selected data from the first screen.
Thanks and Regards,
Nagulan

Answer 1

Here is my code, kindly say me where to locate the at line-selection.
TABLES: vbrk, vbrp.
DATA: wk_fkart LIKE vbrk-fkart,
      wk_fkdat LIKE vbrk-fkdat,
      it_vbrk LIKE vbrk OCCURS 0 WITH HEADER LINE,
      wk_vbeln like vbrk-vbeln,
      it_vbrp like vbrp occurs 0 with header line,
      wk_vbrk like vbrk .
START-OF-SELECTION.
  CALL SCREEN 5000.
top-of-page.
  perform top_of_page.
*&      Module  STATUS_5000  OUTPUT
      text
MODULE status_5000 OUTPUT.
  SET PF-STATUS 'MLSTATUS'.
  SET TITLEBAR '500'.
ENDMODULE.                 " STATUS_5000  OUTPUT
*&      Module  USER_COMMAND_5000  INPUT
      text
MODULE user_command_5000 INPUT.
  CASE sy-ucomm.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CLOSE'.
      LEAVE PROGRAM.
    WHEN 'BACK'.
      SET SCREEN 0.
    WHEN 'PRNT'.
      LEAVE TO LIST-PROCESSING.
      PERFORM print.
    WHEN 'PRNV'.
      LEAVE TO LIST-PROCESSING.
      PERFORM get_data.
      PERFORM display_data.
    WHEN 'IDIS'  .
      leave to list-processing.
      perform get_data.
      perform idisplay_data.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_5000  INPUT
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM get_data .
  SELECT * FROM  vbrk INTO TABLE it_vbrk
         WHERE  fkart  = wk_fkart
         AND    fkdat  = wk_fkdat.
  IF sy-subrc <> 0.
    MESSAGE e001(zsd) WITH 'NO RECORDS FOUND'.
  ENDIF.
ENDFORM.                    " GET_DATA
*&      Form  DISPLAY_DATA
      text
-->  p1        text
<--  p2        text
FORM display_data .
  LOOP AT it_vbrk.
    WRITE:  /10 sy-vline,
            11 it_vbrk-vbeln ,
            20 sy-vline,
            21 it_vbrk-fkart,
            27 sy-vline,
            28 it_vbrk-fkdat,
            39 sy-vline,
            40 it_vbrk-netwr,
            63 sy-vline,
            64 it_vbrk-fksto,
            67 sy-vline.
  at last.
      ULINE : /10(58).
      WRITE : /23 '<<<<< REPORT OVER >>>>>'.
  endat.
  ENDLOOP.
ENDFORM.                    " DISPLAY_DATA
*&      Form  PRINT
      text
-->  p1        text
<--  p2        text
FORM print .
  DATA: pripar TYPE pri_params,
        val TYPE c,
        dest like PRI_PARAMS-PDEST,
        ARCPAR LIKE ARC_PARAMS.
        dest = 'ZLASER'.
  PERFORM get_data.
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
   EXPORTING
     copies                         = 1
     destination                    = DEST
     layout                         = 'X_PAPER'
     line_count                     = 65
     line_size                      = 72
     no_dialog                      = 'X'
     report                         = sy-repid
     priority                       = 2
   IMPORTING
   OUT_ARCHIVE_PARAMETERS         = ARCPAR
     out_parameters                 = pripar
     valid                          = val
   EXCEPTIONS
     archive_info_not_found         = 1
     invalid_print_params           = 2
     invalid_archive_params         = 3
     OTHERS                         = 4
  IF val <> space AND sy-subrc = 0.
    pripar-primm = 'X'.
    NEW-PAGE PRINT ON
    NEW-SECTION PARAMETERS pripar
    ARCHIVE PARAMETERS ARCPAR
    NO DIALOG.
    PERFORM display_data.
  ENDIF.
ENDFORM.                    " PRINT
*&      Form  TOP_OF_PAGE
      text
-->  p1        text
<--  p2        text
form TOP_OF_PAGE .
  WRITE : /25 'LIST REPORT IN MODULE POOL',
           65 sy-pagno,
          /25 'FOR:', wk_fkart,
          /25 'ON:',  wk_fkdat.
  SKIP 2.
  ULINE: /10(58).
  WRITE: /10 sy-vline,
          11 'Bill.no',
          20 sy-vline,
          21 'Type',
          27 sy-vline,
          28 'Bill date',
          39 sy-vline,
          40 'Bill Value',
          63 sy-vline,
          64 'canc',
          67 sy-vline.
  ULINE : /10(58).
endform.                    " TOP_OF_PAGE
*&      Form  IDISPLAY_DATA
      text
-->  p1        text
<--  p2        text
form IDISPLAY_DATA .
  LOOP AT it_vbrk.
    WRITE:  /10 sy-vline,
            11 it_vbrk-vbeln hotspot on,
            20 sy-vline,
            21 it_vbrk-fkart,
            27 sy-vline,
            28 it_vbrk-fkdat,
            39 sy-vline,
            40 it_vbrk-netwr,
            63 sy-vline,
            64 it_vbrk-fksto,
            67 sy-vline.
  at last.
      ULINE : /10(58).
      WRITE : /23 '<<<<< REPORT OVER >>>>>'.
  endat.
ENDLOOP.
endform.                    " IDISPLAY_DATA
*&      Form  GET_DATA_VBRP
      text
-->  p1        text
<--  p2        text
form GET_DATA_VBRP .
  SELECT * FROM  vbrp into table it_vbrp
         WHERE  vbeln  = wk_vbeln.
endform.                    " GET_DATA_VBRP
*&      Form  DISPLAY_DATA_VBRP
      text
-->  p1        text
<--  p2        text
form DISPLAY_DATA_VBRP .
loop at it_vbrp.
  write: /10 it_vbrp-vbeln,
          20 it_vbrp-posnr,
          25 it_vbrp-matnr,
          35 it_vbrp-arktx,
          55 it_vbrp-fkimg,
          65 it_vbrp-netwr,
          75 it_vbrp-aubel,
          85 it_vbrp-aupos.
endloop.
endform.                    " DISPLAY_DATA_VBRP
Thanks and Regads,
Nagulan