QUERY data retrieval by program

1: sq02 create infoSet

2: selcet data read prog.  and add  your ABAP code to here .

    a:  selection screen

    b:select your data into  interal table it_data,  

REPORT  RSAQDVP_TEMPLATE .
*
*---------------------------------------------------------------------*
*   declarations
*   (insert your declarations in this section)
*---------------------------------------------------------------------*
data:
  MARD_UEB                       type MARD_UEB                      ,
  it_data type standard table of MARD_UEB                      .


field-symbols: <struc> type MARD_UEB                      .

*-------------------------------------------------------------------*
*   selection screen statements
*-------------------------------------------------------------------*
*   (define your selection-screen here)


* !! the following comment MUST NOT BE CHANGED !!
*<QUERY_HEAD>



*-------------------------------------------------------------------*
*   read data into IT_DATA
*-------------------------------------------------------------------*
*  (select your data here into internal table IT_DATA)



*------------------------------------------------------------*
*   output of the data
*   (this section can be left unchanged)
*------------------------------------------------------------*
loop at it_data assigning <struc>.
  move-corresponding <struc> to MARD_UEB                      .
* !! the following comment MUST NOT BE CHANGED !!
*<QUERY_BODY>
endloop.