Link between EQUI + EQUIZ with IMRG

Question

Hi Gurus
i want to develop a report where on selection screen user enters euipment number and date of measurement.
now my problem is that how can I link EQUI with IMRG table
so that I can enter euipment no and specifies only reading date then i m not able to fetch the date based on euipment lying in this date range.
This date is found in table IMRG field is IDATE
If any ways i van find a relationship from equipment no (EQUI) and IMRG ( IK17 T code)
Plz help

Answer 1

Hi
Thanks Raam , I will check your program and try to implement it
my requirements are as below which is a rough estimation for fuel calculation
and based on the below program you tell me please how to proceed with final internal table , This program is not correct just to get an idea how I need the program.
REPORT Z_ESLP_FUEL LINE-SIZE  180 LINE-COUNT 75
         NO STANDARD PAGE HEADING.
TABLES : equi,
         equz,
         imptt,
         imrg,
         eqkt.
Type Declaration
TYPES: BEGIN OF ty_data  ,
         equnr      type equnr,         " Euipment no
         eqktx      type eqkt-eqktx,    " Equipment Text
         idate      type idate,         " Measuring Date
         recdu      type imrg-recdu,    " Unit of measuring ='KM','L','H'
         recdv      type imrg-recdv,    " Counter reading data
       END OF ty_data.
TYPES: BEGIN OF ty_final,
         equnr           type equnr,           "  Equipment no
         eqktx           type eqkt-eqktx,      "  Equipment Text
         min_date       type imrg-idate,      "  Min Date
         min_km      type imrg-recdv,      "  Max Km
         max_km      type imrg-recdv,      "  Min km
         t_max_min_km      type imrg-recdv,      "  Total min_km-max_km
         max_date       type imrg-idate,      "  Max Date
         min_hr      type imrg-recdv,      "  Max hr
         max_hr       type imrg-recdv,      "  Min hr
         t_max_min_hr      type imrg-recdv,      "  Total min_hr-max_hr
         min_lit     type imrg-recdv,      "  Max lit
         max_lit     type imrg-recdv,      "  Min lit
         t_max_min_lit      type imrg-recdv,      "  Total min_lit-max_lit
         fuel_con       type p decimals 2,    "  Total_hrs / t_max_min_hr
         km_l           type p decimals 2,    "  km / L
         lit_per_hr     type p decimals 2,    "  fuel comsumed / t_max_min_hr
       END OF ty_final.
DATA:    i_data TYPE TABLE OF ty_data,        " internal table
         wa_data TYPE ty_data,                  " work area
         i_final TYPE TABLE OF ty_final,        " internal table
         wa_final TYPE ty_final.                " work area
  SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
  SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
  SELECT-OPTIONS: p_equnr FOR equi-equnr no-extension no intervals,
                  p_idate FOR imrg-idate,   "NO-EXTENSION NO INTERVALS OBLIGATORY,
                  p_recdu FOR imrg-recdu.   "NO-EXTENSION NO INTERVALS default 'M3'" OBLIGATORY.
  SELECTION-SCREEN END OF BLOCK blk1.
  SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
  SELECTION-SCREEN END OF BLOCK blk2.
  SELECTION-SCREEN END OF BLOCK blk.
TOP-OF-PAGE.
FORMAT INTENSIFIED ON.
WRITE:/1(40) ' INVESTMENT LIMITED  '.
WRITE:/50(40) ' FUEL CONSUMPTION REPORT ' CENTERED   ,
         2 'Page', sy-pagno.
         FORMAT INTENSIFIED OFF.
  WRITE:/50(40) '----
' CENTERED .
  FORMAT INTENSIFIED ON.
  WRITE:/2 sy-datum COLOR 3, sy-uzeit .
  "WRITE:/1 S903-SPMON ."p_yearf.
  ULINE.
  "CENTERED.
   write: /2 'Date From     :'.
   write: /2 'Equipment No  :'.
   write: /2 'Unit          :'.
write: /2 'Period From   :'   ,p_yearf, ' Period to :' , p_yeart.
write: /2 'Sold to Party :'left-justified,p_kunag-low , '  to   '  , p_kunag-high.
write: /2 'Plant         :' left-justified , s_werks-low, '  to   '  , s_werks-high.
write: /2 'UOM           :' left-justified ,s_vrkme-low.
  SKIP.
  ULINE.
  WRITE:/1 sy-vline,
    2   'EQUIP NO',              10 sy-vline,
    11  'NAME',                  40 sy-vline,
    41  'min_date',              50 sy-vline,
    51  'max_date',              60 sy-vline,
    61  'min_km',                70 sy-vline,
    71  'max_km' ,               80 sy-vline,
    81  't_max_min_km',          90 sy-vline,
    91  'min_hr',               100 sy-vline,
    101 'max_hr',               110 sy-vline,
    111 't_max_min_hr' ,        120 sy-vline,
    121 'min_lit',              130 sy-vline,
    131 'max_lit',              140 sy-vline,
    141 't_max_min_lit',        150 sy-vline,
    151 'fuel_con',             160 sy-vline,
    161 'km_l',                 170 sy-vline,
    171 'lit_per_hr',           180 sy-vline,
  FORMAT COLOR 3 ON.
  ULINE.
END-OF-PAGE.
START-OF-SELECTION.
select cequnr beqktx bidate brecdv b~recdu
into corresponding fields of i_data
from equi AS a
         inner join equiz as b
         on a~equnr = b.equnr
         inner join imptt as c
         on aobjnr = cmpobj
         inner join eqkt as d
         on aequnr = dequnr
         inner join imrg as e
         on epoint = cpoint
         where c~equnr in p_equnr
         and
         b~idate in p_idate
         and
         b~recdu in p_recdu.   
SORT i_data BY recdv descending.
LOOP AT i_data INTO wa_data.
        CLEAR: wa_data.
        READ TABLE i_data into wa_data
             WITH KEY equnr = wa_data-equnr.
            WITH key objnr = wa_data-mpobj.
BINARY SEARCH.
APPEND wa_data to wa_final.
*max_date
select single max(idate) into corresponding fields of
i_final from imrg
         where c~equnr in p_equnr
         and
         b~idate in p_idate
         and
         b~recdu in p_recdu.
sort i_final by idate DESCENDING .
LOOP AT i_final INTO wa_final.
MOVE-CORRESPONDING i_final to wa_final-max_date.
append i_final to wa_final-max_date.
*min_date
select single min(idate) into corresponding fields of
i_final from imrg
         where c~equnr in p_equnr
         and
         b~idate in p_idate
         and
         b~recdu in p_recdu.
sort i_final by idate ASCENDING .
LOOP AT i_final INTO wa_final.
MOVE-CORRESPONDING i_final to wa_final-min_date.
append i_final to wa_final-min_date.
*max_km
select single max(recdv) into corresponding fields of
i_final from imrg
     where c~equnr in p_equnr
        and
        b~idate in p_idate
        and
        b~recdu = 'KM'.
sort i_final by recdv DESCENDING .
loop at i_final into wa_final.
MOVE-CORRESPONDING i_final wa_final-max_km .
append i_final to wa_final-max_km.
*min_km
select single min(recdv) into corresponding fields of
i_final from imrg
     where c~equnr in p_equnr
        and
        b~idate in p_idate
        and
        b~recdu = 'KM'.
sort i_final by recdv ASCENDING .
loop at i_final into wa_final.
MOVE-CORRESPONDING i_final to wa_final-min_km .
append i_final to wa_final-min_km.
total max and min km
t_max_min_km = max_km - min_km
append i_final to wa_final-t_max_min_km.
*max_hr
select single max(recdv) from imrg into corresponding fields of i_final
where c~equnr in p_equnr
        and
        b~idate in p_idate
        and
        b~recdu = 'H'.
sort i_final by recdv DESCENDING .
LOOP AT i_final into wa_final.
MOVE-CORRESPONDING i_final to wa_final-max_hr.
append i_final to wa_final-max_hr.
*min_hr
select single min(recdv) from imrg into corresponding fields of i_final
where c~equnr in p_equnr
        and
        b~idate in p_idate
        and
        b~recdu = 'H'.
sort i_final by recdv ASCENDING .
LOOP AT i_final into wa_final.
MOVE-CORRESPONDING i_final to wa_final-min_hr.
append i_final to wa_final-min_hr.
t_max_min_hr
total max and min hr
t_max_min_hr = min_hr - max_hr
*MOVE CORRESPONDING i_final to wa_final-t_max_min_hr .
append i_final to wa_final-t_max_min_hr.
*max_lit
select single max(recdv) from imrg into corresponding fields of i_final
where c~equnr in p_equnr
        and
        b~idate in p_idate
        and
        b~recdu = 'l'.
sort i_final by recdv DESCENDING.
LOOP AT i_final into wa_final.
MOVE-CORRESPONDING i_final to wa_final-max_recdv.
append i_final TO wa_final-max_recdv.
*min_lit
select single min(recdv) from imrg into corresponding fields of i_final
where c~equnr in p_equnr
        and
        b~idate in p_idate
        and
        b~recdu = 'l'.
sort i_final by recdv ASCENDING.
LOOP AT i_final into wa_final.
MOVE-CORRESPONDING i_final to wa_final-min_recdv.
append i_final to wa_final-min_recdv.
*t_max_min_lit
total max and min lit
t_max_min_lit = min_lit - max_lit
*MOVE CORRESPONDING t_max_min_lit to i_final.
append i_final to wa_final-t_max_min_lit.
*fuel_con
*fuel_con = t_max_min_hr .
*km_l
km_l = t_max_min_km / t_max_min_lit.
*MOVE CORRESPONDING km_l to i-final.
append i_final to wa_final-km_l  .
lit_per_hr
*lit_per_hr = wa_final-fuel_con / wa_final-t_max_min_hr.
*append i_final to wa_final-lit_per_hr.
     IF SY_SUBRC EQ 0.
     PERFORM prepare_final_rec USING 'M'. "Modift Exixting Record
    ELSE.
    PERFORM prepare_final_rec USING 'A'. "Append New Record
     ENDIF.
     ENDLOOP.
      LOOP AT i_final INTO wa_final.
      WRITE:/1  sy-vline,
             2  wa_final-equnr,                 10 sy-vline,
            11  wa_final-eqktx,                 40 sy-vline,
            41  wa_final-min_date,              50 sy-viine,
            51  wa_final-max_date              60 sy-vline,
            61  wa_final-min_km,                70 sy-vline,
            71  wa_final-max_km,                80 sy-vline,   
            81  wa_final-t_max_min_km,          90 sy-vline,
            91  wa_final-min_hr,               100 sy-vline,
            101 wa_final-max_hr,               110 sy-vline,
            111 wa_final-t_max_min_hr,         120 sy-vline,
            121 wa_final-min_lit,              130 sy-vline,
            131 wa_final-max_lit,              140 sy-vline,
            141 wa_final-t_max_min_lit,        150 sy-vline,
            151 wa_final-fuel_con,             160 sy-vline,
            161 wa_final-km_l,                 170 sy-vline,
            171 wa_final-lit_per_hr,           180 sy-vline.
      ENDLOOP.
      uline.
*&         FORM PREPARE_FINAL_REC                     
           TEXT                                       *
     ->P_0670      text