T.code ME55

Question

Hi Experts ,
I want to know where exactly the ALV GRID DISPLAY Function Module has been called in the program of T.code ME55(RM06BF00) , Actually my requirement is to add one more field (available stock of the material ) in the ALV Output of the T.code ME55 . I tried to find the field catalogue in the prog. RM06BF00 , but could'nt find it anywhere in the prog. Then I copied the prog. into a Z Report and after executing the Z report in the Selection screen I entered Release Code = G3 and Scope of List = ALV .
But an exit message comes saying ' Scope of list ALV not defined (please correct)' . However for another scope of list it is coming . Plese help .
Thanks ,
Suvendu

Answer 1

*& Report  ZBREAKDOWN
REPORT  ZBREAKDOWN NO STANDARD PAGE HEADING..
tables: CRHD, QMEL, QMFE, QMIH, QMUR, TQ80_T, TQ15T, QPGT, QPGR, t001w.
type-pools slis.
data : it_list type slis_t_listheader with header line,
       gt_evnt type slis_t_event with header line.
data : begin of outstand_wa occurs 0,
********Work Center Header
OBJTY       LIKE CRHD-OBJTY    ,  " Object types of the CIM resource
OBJID       LIKE CRHD-OBJID    ,  " Object ID of the resource
ARBPL       LIKE CRHD-ARBPL    ,  " Work center
WERKS       like CRHD-WERKS    ,  " Plant
VERWE       LIKE CRHD-VERWE    ,  " Work center cat.
VERAN       LIKE CRHD-VERAN    ,  " Person responsible for the work center
*********Quality Notification
CROBJTY     LIKE QMEL-CROBJTY  ,  " Object types of the CIM resource
ARBPLn      LIKE QMEL-ARBPL    ,  " Object ID of the Work Center
QMNUM       LIKE QMEL-QMNUM    ,  " Notification No
QMART       LIKE QMEL-QMART    ,  " Notification Type
QMTXT       LIKE QMEL-QMTXT    ,  " Short Text
QMDAT       LIKE QMEL-QMDAT    ,  " Date of Notification
AUFNR       LIKE QMEL-AUFNR    ,  " Order Number
**********Notification type texts
QMARTX      LIKE TQ80_T-QMARTX ,  " Notification Type Texts
*********Quality notification - items
FEKAT       LIKE QMFE-FEKAT    ,  " Catalog Type - Problems/Defects
FEGRP       LIKE QMFE-FEGRP    ,  " Code Group - Problem
FECOD       LIKE QMFE-FECOD    ,  " Problem or Damage Code
OTKAT       LIKE QMFE-OTKAT    ,  " Catalog Type - Object Parts
OTGRP       LIKE QMFE-OTGRP    ,  " Code Group - Object Parts
KOSTL       LIKE QMFE-KOSTL    ,  " Cost Center
FETXT       LIKE QMFE-FETXT    ,  " Notification Item Short Text
ERNAM       LIKE QMFE-ERNAM    ,  " Name of Person who Created the Object
ERDAT       LIKE QMFE-ERDAT    ,  " Date on Which Record Was Created
AENAM       LIKE QMFE-AENAM    ,  " Name of Person Who Changed Object
AEDAT       LIKE QMFE-AEDAT    ,  " Changed On
*****Inspection catalog type index
SPRACHE     LIKE TQ15T-SPRACHE    , " Language Key
KATALOGART  LIKE TQ15T-KATALOGART , " Catalog
KATALOGTXT  LIKE TQ15T-KATALOGTXT , " Catalog Text
**********Code group texts
CODEGRUPPE  LIKE QPGT-CODEGRUPPE  , " Code Group
KURZTEXT    LIKE QPGT-KURZTEXT    , " Short Description of the Code Group
**********Inspection catalog code groups
*KURZTEX     LIKE QPGR-KURZTEXT    , "
*********Quality message - maintenance data excerpt
MSAUS       LIKE QMIH-MSAUS    ,  " Breakdown Indicator
AUSVN       LIKE QMIH-AUSVN    ,  " Start of Malfunction (Date)
AUSBS       LIKE QMIH-AUSBS    ,  " End of Malfunction (Date)
AUZTV       LIKE QMIH-AUZTV    ,  " Start of Malfunction (Time)
AUZTB       LIKE QMIH-AUZTB    ,  " End of Malfunction (Time)
AUSZT       LIKE QMIH-AUSZT    ,  " Breakdown Duration
INGRP       LIKE QMIH-INGRP    ,  " Planner Group for Customer Service and Plant Maintenance
*********Quality notification - causes
URTXT       LIKE QMUR-URTXT    ,  " Cause Text
URKAT       LIKE QMUR-URKAT    ,  " Catalog Type - Causes
URGRP       LIKE QMUR-URGRP    ,  " Code Group - Causes
URCOD       LIKE QMUR-URCOD    ,  " Cause Code
*********Person responsible for the work center
KTEXT       LIKE TC24-KTEXT    ,  " NAME OF THE PERSON RESP.
*****Plants/Branches
stras       like t001w-stras   ,
pstlz       like t001w-pstlz   ,
adrnr       like t001w-adrnr   ,
ort01       LIKE t001w-ort01   ,
BIND(3),
KATALOG(40),
ddiff TYPE  p,
tdiff TYPE  p DECIMALS 2,
d3 type p,
t3 type minutes,
m_break type sy-uzeit,
t4(16) type p,
t6 type sy-tabix,
t7 type swl_pm_cvh-duration,
t5 type swl_pm_cvh-duration,
end of outstand_wa.
*data : outstand_hd type standard table of  outstand_wa initial size 0 with header line.
data : tab_etab type standard table of etab,
       wa_etab type etab.
DATA: is_layout TYPE slis_layout_alv.
DATA: M_TIME TYPE SY-UZEIT VALUE 24.
data: l_start     type t,
      l_end       type t,
      l_startdate type d,
      l_enddate   type d,
      l_hours     type p decimals 2.
*DATA :  DATE1 TYPE SY-DATUM,
       TIME1 TYPE SY-UZEIT,
       DATE2 TYPE SY-DATUM,
       TIME2 TYPE SY-UZEIT.
selection-screen begin of block plant with frame title text-001.
select-options : m_plant for CRHD-WERKS obligatory .  " Plant
select-options : m_work  for CRHD-ARBPL .             " Work center
select-options : m_catg  for CRHD-VERWE .             " Work center cat.
select-options : m_pern  for CRHD-VERAN .             " Person responsible for the work center
select-options : m_type  for QMEL-QMART .             " Notification Type
select-options : m_date  for QMEL-QMDAT obligatory.   " Date of Notification
select-options : m_ordr  for QMEL-AUFNR .             " Order Number
select-options : m_cost  for QMFE-KOSTL .             " Cost Center
selection-screen end of block plant.
selection-screen begin of block radi with frame title text-004.
*parameters list      radiobutton group rad1.
parameters grid      radiobutton group rad1.
parameters alv       radiobutton group rad1.
selection-screen end of block radi.
data: fieldcat type slis_t_fieldcat_alv .
select CRHDOBJTY   CRHDOBJID CRHDARBPL CRHDWERKS CRHDVERWE CRHDVERAN
       QMELCROBJTY QMELARBPL QMELQMNUM QMELQMART QMELQMTXT QMELQMDAT QMEL~AUFNR
       TQ80_T~QMARTX
       QMFEFEKAT   QMFEFEGRP QMFEFECOD QMFEOTKAT QMFEOTGRP QMFEKOSTL QMFEFETXT QMFEERNAM QMFEERDAT QMFEAENAM QMFE~AEDAT
       TQ15TSPRACHE TQ15TKATALOGART TQ15T~KATALOGTXT
       QPGTCODEGRUPPE QPGTKURZTEXT
       QMIHMSAUS   QMIHAUSVN QMIHAUSBS QMIHAUZTV QMIHAUZTB QMIHAUSZT QMIH~INGRP
       QMURURTXT   QMURURKAT QMURURGRP QMURURCOD
       TC24~KTEXT
       T001WSTRAS  T001WPSTLZ T001WADRNR T001WORT01
into table outstand_wa
     from CRHD
INNER JOIN QMEL   ON CRHDOBJID = QMELARBPL
INNER JOIN QMFE   ON QMELQMNUM = QMFEQMNUM
INNER JOIN QMIH   ON QMFEQMNUM = QMIHQMNUM
INNER JOIN QMUR   ON QMIHQMNUM = QMURQMNUM
INNER JOIN TC24   ON CRHDVERAN = TC24VERAN
INNER JOIN T001W  ON CRHDWERKS = T001WWERKS
INNER JOIN TQ80_T ON QMELQMART = TQ80_TQMART
INNER JOIN TQ15T  ON QMFEFEKAT = TQ15TKATALOGART
INNER JOIN QPGT   ON QMFEFEGRP = QPGTCODEGRUPPE
WHERE CRHDWERKS IN m_plant AND CRHDARBPL IN m_work AND CRHDVERWE IN m_catg AND CRHDVERAN IN m_pern
AND QMELQMART IN m_type AND QMELAUFNR IN m_ordr AND QMFEKOSTL IN m_cost AND TQ15TSPRACHE = 'E' AND QMEL~QMDAT IN m_date.
*AND QMEL~QMDAT IN m_date
**AND CRHDARBPL IN m_work AND CRHDVERWE IN m_catg AND CRHD~VERAN IN m_pern
**AND QMELQMART IN m_type AND QMELQMDAT IN m_date AND QMELAUFNR IN m_ordr AND QMFEKOSTL IN m_cost AND TQ15T~SPRACHE = 'E'.
*AND QPGTCODEGRUPPE = QMFEOTGRP.
if sy-subrc = 0.
LOOP AT outstand_wa.
  if outstand_wa-MSAUS = 'X'.
     outstand_wa-BIND = 'YES'.
     modify outstand_wa transporting BIND.
  endif.
  if outstand_wa-MSAUS = ' '.
     outstand_wa-BIND = 'NO'.
     modify outstand_wa transporting BIND.
  endif.
if outstand_wa-URKAT = '1'.
   outstand_wa-KATALOG = 'Characteristic Attributes'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '2'.
   outstand_wa-KATALOG = 'Tasks'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '3'.
   outstand_wa-KATALOG = 'Usage Decisions'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '4'.
   outstand_wa-KATALOG = 'Events'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '5'.
   outstand_wa-KATALOG = 'Causes'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '6'.
   outstand_wa-KATALOG = 'Results of Defects'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '8'.
   outstand_wa-KATALOG = 'Activities(QM)'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = '9'.
   outstand_wa-KATALOG = 'Defect Types'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'A'.
   outstand_wa-KATALOG = 'Activities(PM)'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'B'.
   outstand_wa-KATALOG = 'Object Parts'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'C'.
   outstand_wa-KATALOG = 'Overview of Damage'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'D'.
   outstand_wa-KATALOG = 'Coding'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'E'.
   outstand_wa-KATALOG = 'Defect Locations'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'F'.
   outstand_wa-KATALOG = 'Decision(SPM Returns)'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'G'.
   outstand_wa-KATALOG = 'Defect(SPM Returns)'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'H'.
   outstand_wa-KATALOG = 'Effort(SPM Returns)'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
if outstand_wa-URKAT = 'I'.
   outstand_wa-KATALOG = 'Follow-Up Activity(SPM Returns)'.
   MODIFY outstand_wa TRANSPORTING KATALOG.
ENDIF.
ENDLOOP.
ENDIF.
IF outstand_wa-MSAUS = 'X'.
BIND = 'YES'.
ELSEIF outstand_wa-MSAUS = '  '.
BIND ='NO'.
ENDIF.
*ENDLOOP.
*ENDIF.
case 'X'.
    WHEN LIST.
    PERFORM SIMPLE_LIST.
  when grid.
    perform writ_list.
    perform calculation.
  when alv.
    perform writ_alv.
    perform calculation.
   DATA: layout TYPE slis_layout_alv.
   PERFORM build_field_catalog.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
       is_layout              = layout
       it_fieldcat            = fieldcat
       i_callback_top_of_page = 'TOP_OF_PAGE'
       it_events              = gt_evnt[]
     TABLES
       t_outtab               = outstand_wa.
endcase.
*&      Form  BUILD_LAYOUT
      Build layout for ALV grid report
*form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
*gd_layout-totals_text       = 'Totals'.
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname =      'LINE_COLOR'.
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.