How to use Hide Tech. and Get cursor field

Question

Hai Experts,
Can any one tell me about
how and when we use hide tech. and get cursor stmt in interactive report.
In my reqirement , i want to display PO header details like PO docno, Vendor No, and so on. when i am double clicking the EBELN , it will display the item details of the particular document number which i am clicked in the basic list.
if i am double click the vendor number, it will show the vendor details.
how can i get this?
Thanks in advance  for ur reply.
Regards,
Msivasamy

Answer 1

Thanks for ur reply.
I got the output in this way.
*& Report  SAPMZMMPO
REPORT  SAPMZMMPO no standard page heading.
tables: ekko.
DATA: f(40) TYPE c, off TYPE i, lin TYPE i, val(10) TYPE c, len TYPE i.
data: begin of iekko occurs 0,
        bukrs like ekko-bukrs,
        bsart like ekko-bsart,
        ekorg like ekko-ekorg,
        ekgrp like ekko-ekgrp,
        ebeln like ekko-ebeln,
        lifnr like ekko-lifnr,
        bedat like ekko-bedat,
      end of iekko.
data: begin of iekpo occurs 0,
        ebeln like ekko-ebeln,
        ebelp like ekpo-ebelp,
        matnr like ekpo-matnr,
        menge like ekpo-menge,
        meins like ekpo-meins,
        netpr like ekpo-netpr,
        matkl like ekpo-matkl,
        werks like ekpo-werks,
        lgort like ekpo-lgort,
        eeind like rm06e-eeind,
      end of iekpo.
data: begin of ilfa1 occurs 0,
        lifnr like lfa1-lifnr,
        name1 like lfa1-name1,
        stras like lfa1-stras,
        ort01 like lfa1-ort01,
      end of ilfa1.
*parameters: p_ebeln like ekko-ebeln default '4500006130'.
select-options: s_ebeln for ekko-ebeln DEFAULT '4500006130' TO '4500006135'
                 OPTION bt SIGN i.
*start-of-selection.
start-of-selection.
select bukrs bsart ekorg ekgrp ebeln lifnr bedat
        from ekko into corresponding fields of table iekko
        where ebeln in s_ebeln.
loop at iekko.
        write:/ iekko-ebeln HOTSPOT COLOR 5 INVERSE ON,
                iekko-lifnr HOTSPOT COLOR 3 INVERSE ON ,
                iekko-bukrs,iekko-bsart,iekko-ekorg,iekko-ekgrp.
        hide: iekko-ebeln,iekko-lifnr.
endloop.
iekko-lifnr,iekko-ebeln.
at line-selection.
  GET CURSOR FIELD f VALUE val .
WRITE: / 'Field: ', f,
        / 'Offset:', off,
        / 'Line:  ', lin,
        / 'Value: ', (10) val,
        / 'Length:', len.
case sy-lsind.
when 1.
*if val = iekko-ebeln.
if f = 'IEKKO-EBELN'.
        select  ebeln ebelp menge meins lgort werks
                matnr matkl netpr from ekpo
                into corresponding fields of table iekpo
                where ebeln = iekko-ebeln.
               for all entries in iekko where ebeln = iekko-ebeln.
        loop at iekpo.
            write:/ iekpo-ebelp,iekpo-matnr,iekpo-menge,iekpo-meins,
                    iekpo-werks,iekpo-lgort,iekpo-matkl,iekpo-netpr.
        endloop.
endif.
*if val = iekko-lifnr.
if f = 'IEKKO-LIFNR'.
        select lifnr name1 stras ort01 from lfa1
                into corresponding fields of table ilfa1
                where lifnr = iekko-lifnr.
        loop at ilfa1.
            write:/ ilfa1-lifnr,ilfa1-name1,ilfa1-stras,ilfa1-ort01.
        endloop.
endif.
when others.
      leave screen.
endcase.