Fuel Consumption Report Modification - 21

Question

Hi Experts
I am working on fuel consumption modification. can anyone help me how to get max and min value for this program
I am getting one row correct with equipment no is enter but when I enter the range of equipment no it is taking long time and the result is repeating for each row
please correct my report
Thnaks in advanced
Piroz
REPORT Z_ESLP_FUEL2 LINE-SIZE  250 LINE-COUNT 75
         NO STANDARD PAGE HEADING.
TABLES : equi,
         equz,
         imptt,
         imrg,
         eqkt,
         iloa.
TYPES: BEGIN OF ty_equi," occurs 0,
       equnr type equi-equnr,
       END OF ty_equi.
TYPES: BEGIN of ty_eqkt," occurs 0,
       equnr type eqkt-equnr,
       eqktx type eqkt-eqktx,
       END OF ty_eqkt.
TYPES: BEGIN of ty_iloa ,"occurs 0,
       iloan type iloa-iloan,
       eqfnr type iloa-eqfnr,
       END OF ty_iloa.
TYPES: BEGIN of ty_imptt," occurs 0,
       mpobj type imptt-mpobj,
       END of ty_imptt.
TYPES: BEGIN of ty_imrg ,"occurs 0,
       idate type imrg-idate,
       recdv type imrg-recdv,
       recdu type imrg-recdu,
       END of ty_imrg.
TYPES: BEGIN OF ty_data  ,
       equnr      type equnr,         " Euipment no
       eqktx      type eqkt-eqktx,    " Equipment Text
       eqfnr       type iloa-eqfnr,     " Equipment Sort field
       idate      type imrg-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
       eqfnr           type iloa-eqfnr,       "  Equipment Sort field
       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 i,                "  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 i,                "  Total min_hr-max_hr
       min_lit         type imrg-recdv,       "  Max lit
       max_lit         type imrg-recdv,       "  Min lit
       t_max_min_lit    type i,                "  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 i           ,     "  fuel comsumed / t_max_min_hr
       END OF ty_final.
DATA: i_equi TYPE TABLE OF ty_equi,   "internal table
      wa_equi TYPE ty_equi, " work area
      i_eqkt TYPE TABLE OF ty_eqkt,   "internal table
      wa_eqkt TYPE ty_eqkt, " work area
      i_iloa TYPE TABLE of ty_iloa,   "internal table
      wa_iloa TYPE ty_iloa, " work area
      i_imptt TYPE TABLE of ty_imptt, "internal table
      wa_imptt TYPE ty_imptt,
      i_imrg  TYPE TABLE of ty_imrg,  "internal table
      wa_imrg TYPE ty_imrg,
      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
DATA :  max_date type date ,
         min_date type date,
         max_km TYPE p DECIMALS 2,
         min_km TYPE p DECIMALS 2,
         max_hr TYPE p DECIMALS 2,
         min_hr TYPE p DECIMALS 2,
         max_lit TYPE p DECIMALS 2,
         min_lit TYPE p DECIMALS 2,
         t_max_min_km  TYPE p DECIMALS 2,
         t_max_min_hr TYPE p DECIMALS 2,
         t_max_min_lit TYPE p DECIMALS 2.
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          :'.
  SKIP.
  ULINE.
  WRITE:/1 sy-vline,
    2   'EQUIP NO',              10 sy-vline,
    11  'NAME',                  40 sy-vline,
    41  'SORT',                  60 sy-vline,
    61  'MIN DATE',              74 sy-vline,
    75  'MIN KM',                87 sy-vline,
    88  'MAX DATE',                100 sy-vline,
    101  'MAX KM' ,              113 sy-vline,
    114 'TOTAL MAX-MIN',                126 sy-vline,
    127  'MIN HR',               139 sy-vline,
    140 'MAX HR',                152 sy-vline,
    153 'TOTAL MAX-MIN' ,               167 sy-vline,
    168 'MIN LIT',               180 sy-vline,
    181 'MAX LIT',               193 sy-vline,
    194 'TOTAL LIT',             206 sy-vline,
    207 'FUEL CON',              219 sy-vline,
    220 'KM L',                  232 sy-vline,
    233 'LIT PER KM',            246 sy-vline.
  FORMAT COLOR 3 ON.
  ULINE.
END-OF-PAGE.
START-OF-SELECTION.
select a~equnr d~eqktx f~eqfnr e~idate e~recdu e~recdv
into corresponding fields of table i_data
from equi AS a
inner join equz as b
on a~equnr = b~equnr
inner join iloa as f
on b~iloan = f~iloan
inner join imptt as c
on a~objnr = c~mpobj
inner join eqkt as d
on a~equnr = d~equnr
inner join imrg as e
on e~point = c~point
where a~equnr in p_equnr
and
e~idate in p_idate and
e~recdu in ('KM','L','H').
"e~recdu in p_recdu.
equi
*select equnr from equi into table i_equi
*for all entries in I_DATA
**where objnr = i_equnr-mpobj.
*where equnr = i_data-equnr.
*endselect.
eqkt
*select equnr eqktx into table I_eqkt
*from eqkt
*FOR ALL ENTRIES IN I_DATA
*where equnr = i_data-Equnr.
*endselect.
iloa
*select eqfnr into table I_iloa
*from equz
*FOR ALL ENTRIES IN I_DATA
*on equziloan = iloailoan
*where iloan = i_data-iloan .
*endselect.
imrg
*select idate recdv recdu into table I_imrg
*from imrg
*FOR ALL ENTRIES IN I_DATA
*where imrg~objnr = i_date-mpobj.
*endselect.
loop  at i_data into wa_data.
CLEAR: wa_final.
  READ TABLE i_final into wa_final
           with key equnr = wa_data-equnr.
    if sy-subrc EQ 0.
     PERFORM prepare_get_equi.
     PERFORM prepare_get_eqkt.
     PERFORM prepare_get_iloa.
     PERFORM prepare_get_imptt.
     PERFORM prepare_get_imrg.
      PERFORM prepare_final_rec USING'M'. " Modify Existing Record
      ElSE.
      PERFORM prepare_final_rec USING'A'. " Append New Record.
    ENDIF.
    ENDLOOP.
    LOOP AT i_final into wa_final.
      SORT i_final by equnr  descending.
    at new equnr.
    read table i_final into wa_final index sy-tabix.
WRITE:/1 sy-vline,
2  wa_final-equnr                                                 , 10 sy-vline,
11 wa_final-eqktx                                                 , 40 sy-vline,
41 wa_final-eqfnr                                                 , 60 sy-vline,
61 wa_final-min_date                                              , 74 sy-vline,
75 wa_final-min_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED           , 87 sy-vline,
88 wa_final-max_date EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED         , 100 sy-vline,
101 wa_final-max_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 113 sy-vline,
114 wa_final-t_max_min_km EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED    , 126 sy-vline COLOR 2,
127 wa_final-min_hr EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 139 sy-vline,
140 wa_final-max_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 152 sy-vline,
168 wa_final-min_lit EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED         , 180 sy-vline,
181 wa_final-max_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 193 sy-vline,
194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2.
*168 wa_final-min_lit EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED         , 180 sy-vline,
*194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2,
*207 wa_final-fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 219 sy-vline,
*220 wa_final-km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 232 sy-vline,
*233 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 246 sy-vline.
uline.
uline .
endloop.
FORM prepare_final_rec  USING    p_mode TYPE char1.
select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv )
into  corresponding fields of (wa_final-max_date,wa_final-min_date, wa_final-max_km , wa_final-min_km)
from equi AS a
inner join equz as b
on aequnr = bequnr
inner join iloa as f
on biloan = filoan
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 a~equnr in p_equnr
and
e~idate in p_idate and
e~recdu =  'KM' .
"group by aequnr deqktx feqfnr eidate erecdu erecdv.
"endselect.
select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv )
into corresponding fields of (wa_final-max_date, wa_final-min_date, wa_final-max_hr, wa_final-min_hr)
from equi AS a
inner join equz as b
on aequnr = bequnr
inner join iloa as f
on biloan = filoan
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 a~equnr in p_equnr
and
e~idate in p_idate and
e~recdu =  'H'.
"group by aequnr deqktx feqfnr eidate erecdu erecdv.
"endselect.
select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv ) SUM( e~recdv )
into (wa_final-max_date,wa_final-min_date, wa_final-max_lit, wa_final-min_lit ,  wa_final-t_max_min_lit )
from equi AS a
inner join equz as b
on aequnr = bequnr
inner join iloa as f
on biloan = filoan
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 a~equnr in p_equnr
and
e~idate in p_idate and
e~recdu =  'L' .
"group by aequnr deqktx feqfnr eidate erecdu erecdv.
"endselect.
         wa_final-t_max_min_km   = ( wa_final-max_km - wa_final-min_km ).
         wa_final-t_max_min_hr  =  ( wa_final-max_hr - wa_final-min_hr ).
         "wa_final-t_max_min_lit   = ( wa_final-max_lit - wa_final-min_lit ).
        wa_final-fuel_con =
        fuel_con        type p decimals 2,     "  Total_hrs / t_max_min_hr
        km_l            type p decimals 2,     "  km / L
        lit_per_hr      type i           ,     "  fuel comsumed / t_max_min_hr
  IF p_mode = 'A'.
    wa_final-equnr = wa_data-equnr.
    wa_final-eqktx = wa_data-eqktx.
    wa_final-eqfnr = wa_data-eqfnr.
    APPEND wa_final TO i_final.
  ELSE.
    MODIFY i_final FROM wa_final
      TRANSPORTING
          max_date
          min_date
          max_km
          min_km
          max_hr
          min_hr
          max_lit
          min_lit
          t_max_min_km
          t_max_min_hr
          where equnr = wa_data-equnr.
  ENDIF.
"endselect.
ENDFORM.                    " PREPARE_FINAL_REC

Answer 1

Hi,
  I don't think so that there is such report which will give you operation wise consumption but you can make that fuel consumption as a activity type in ur standard value key and make some std value to put it in the routing, then if you go for operation wise confirmation then in that screen you will be able to put the consumption details in it.
you can take a report of that also in COOIS.
order wise consumption you can get from order report itself
reward poits if you find it useful.