URGENT ! Department Responsible : Table Name

Question

Can anybody please tell me the table name where "Department Responsible " is getting stored. When i go to qm02-> subject tab -> I can see the Department responsible(DIIHPA structure- NAME_LIST)  next to Partner Number (parnr) . Please tell me the table name instead of the structure name .. Is there any other way to pick the field in my report ? can anyone please explain how to do that ??
Thanking you,
Shankar

Answer 1

I used the function module .. But if i use the break-point before the function is executed, Dep. Responsible is coming properly. But the same thing is not coming when i remove the break-point. This seems to be strange. Can u please check the code ?
For testing I have hard coded parvw, parnr and objnr..
Please check it ...
REPORT  zqmr_inprocess_rej NO STANDARD PAGE HEADING LINE-SIZE 160 LINE-COUNT 90.
SET MARGIN 13 4.
Declarations**************************************************************
TABLES: zsubdch,
        zsubdci,
        zsubgrnh,
        zsubgrni,
        zqm_sigma,
        lfa1,
        adrc,
        mast,
        stpo,
        riwo00,
        qmel,
        qmfe,
        ihpa.
*data temporary(15) type c.
*Inputs
SELECTION-SCREEN BEGIN OF BLOCK seldt WITH FRAME TITLE text-002.
SELECT-OPTIONS :
                s_qmnum FOR qmel-qmnum.
SELECT-OPTIONS :
                s_qmdat FOR qmel-qmdat.
SELECT-OPTIONS :
                s_qmart FOR qmel-qmart.
SELECT-OPTIONS :
                s_fecod FOR qmfe-fecod.
SELECT-OPTIONS :
                s_aufnr FOR qmel-fertaufnr.
SELECT-OPTIONS :
                s_matnr FOR qmel-matnr.
SELECT-OPTIONS :
                s_werk FOR qmel-rm_werks.
SELECTION-SCREEN END OF BLOCK seldt.
*Detailed/Summary report
SELECTION-SCREEN BEGIN OF BLOCK rptype WITH FRAME TITLE text-001.
PARAMETER      :
                rb_detl RADIOBUTTON GROUP g1 DEFAULT 'X',
                rb_sumry RADIOBUTTON GROUP g1 .
SELECTION-SCREEN END OF BLOCK rptype.
*LOOP AT ret_tab.
     message ret_tab-fieldval type 'S'.
*ENDLOOP.
*Variables Declaration
DATA notnumber LIKE zsubgrni-zqmnum.
DATA l_sytabix LIKE sy-tabix.
DATA linelimit TYPE i.
DATA linecheck TYPE i.
DATA l_maktx(40) TYPE c.
DATA l_totsbmng TYPE p DECIMALS 3.
DATA: l_sort2 LIKE adrp-sort2,
l_persnumber LIKE usr21-persnumber,
l_name2 LIKE t001w-name2.
data: w_parvw like ihpa-parvw,
      w_parvw1 like ihpa-parvw.
*Data Declaration
DATA: BEGIN OF it_qmfe OCCURS 0,
       qmnum LIKE qmma-qmnum,
       fertaufnr LIKE qmel-fertaufnr,
       fecod LIKE qmfe-fecod,
       matnr LIKE qmel-matnr,
      qmart LIKE riwo00-qmart,
       bautl TYPE bautl,
       txtcdfe LIKE riwo00-txtcdfe, " descn
      END OF it_qmfe.
DATA: BEGIN OF it_qmel OCCURS 0,
       qmnum LIKE qmma-qmnum,
       revlv LIKE qmel-revlv,
       zeivr LIKE mara-zeivr,
      END OF it_qmel.
*if sy-subrc ne '0'.
*message 'No data for this selection' type 'I'.
*endif.
data: diadrc like diadrc occurs 0 with header line,
      diadrp like diadrp occurs 0 with header line,
      diadr like diadr occurs 0 with header line,
      diadrcpd like diadrcpd occurs 0 with header line.
DATA: BEGIN OF it_main OCCURS 0,
       werks LIKE qmel-mawerk,
       fecod LIKE qmfe-fecod,
       qmnum LIKE qmel-qmnum,
       qmdat LIKE qmel-qmdat,
       rejcodedescr LIKE riwo00-txtcdfe, " descn
      fenum LIKE qmfe-fenum,
       matnr LIKE qmel-matnr,
       bautl LIKE qmfe-bautl,
       maktx LIKE makt-maktx,
       maktx2(40) TYPE c,
       mgfrd LIKE qmel-mgfrd,
       menge LIKE resbd-menge,
       verpr LIKE mbew-verpr,
       sbmng LIKE caufv-sbmng,
       value TYPE p DECIMALS 2,
       idnrk LIKE stpo-idnrk,
       fetxt LIKE qmfe-fetxt,
       qmtxt LIKE qmel-qmtxt,
       objnr like qmel-objnr,
       parnr like ihpa-parnr, "dept responsible
       dept LIKE diadrp-name1,
       vera like rqm02-name_vera, "coordinator
       coord like diadrp-name2,
       qcldby like diadr-name_list,
      END OF it_main.
DATA: iviqmfe LIKE wqmfe OCCURS 0 WITH HEADER LINE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_main
               FROM qmfe JOIN qmel ON qmfeqmnum = qmelqmnum
               WHERE qmelqmnum IN s_qmnum AND qmelqmdat IN s_qmdat AND  qmelqmart IN s_qmart AND qmelfertaufnr IN s_aufnr
               AND qmelmatnr IN s_matnr AND qmfefecod IN s_fecod.
IF sy-subrc NE '0'.
  MESSAGE 'No Data for selection' TYPE 'I'.
  LEAVE LIST-PROCESSING.
ENDIF.
*loop at it_main.
*select * into corresponding fields of it_main from qmfe where fecod in s_fecod and qmnum = it_main-qmnum.
*modify it_main transporting bautl fecod fetxt.
*endselect.
*endloop.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE: (10) 'Rej-code', 'Description'.
WRITE: /(12) 'STN No',(10) 'Notfn Date',(18) 'Material', (40) 'Description',(10) 'OrdMatlQty',(9) 'WAR',(10) 'Value',(40) 'Detail of Rej'.
WRITE: /'Order-suffix',(18) 'Parent Item' ,(30) 'Description','Planning Cell','Rej-Qty','MRIRB'.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
LOOP AT it_main.
*clear: w_parvw.
*w_parvw = 'VU'.
  perform partner_read using it_main-parnr w_parvw.
  it_main-qcldby = diadr-name_list.
  modify it_main transporting qcldby.
   select * from ihpa where objnr = it_main-objnr.
   case ihpa-parvw.
   when 'AB'.
     it_main-parnr = ihpa-parnr.
     perform partner_read.
    using ihpa-parnr ihpa-parvw.
     it_main-dept = diadrp-name2.
    message diadrp-name2 type 'I'.
   when 'KU'.
     it_main-vera = ihpa-parnr.
    perform partner_read using ihpa-parnr 'AB'. "ihpa-parvw.
     it_main-coord = diadr-name_list.
   endcase.
   modify it_main transporting parnr vera dept coord.
   endselect.
*select single * from mast where matnr = it_main-matnr
                           and werks = it_main-werks.
*select single * from stpo where stlnr = mast-stlnr
                           and stlty = 'M'.
*if sy-subrc eq '0'.
*it_main-idnrk = stpo-idnrk.
*modify it_main transporting idnrk.
*else.
*it_main-idnrk = it_main-matnr.
*modify it_main transporting idnrk.
*endif.
*break-point.
  SELECT SINGLE maktx INTO (it_main-maktx) FROM makt WHERE matnr   = it_main-bautl.
  SELECT SINGLE maktx INTO (it_main-maktx2) FROM makt WHERE matnr  = it_main-matnr.
  SELECT SINGLE verpr INTO (it_main-verpr) FROM mbew WHERE matnr   = it_main-bautl.
  SELECT SINGLE sbmng INTO (it_main-sbmng) FROM caufv WHERE stlbez = it_main-bautl.
  MODIFY it_main TRANSPORTING maktx verpr sbmng maktx2.
ENDLOOP.
SORT it_main BY fecod qmnum.
LOOP AT it_main.
  it_main-value = it_main-sbmng * it_main-verpr.
  MODIFY it_main TRANSPORTING value.
  PERFORM read_notification.
  SELECT * FROM qmfe INTO CORRESPONDING FIELDS OF TABLE it_qmfe
                           WHERE qmnum = it_main-qmnum.
  LOOP AT it_qmfe FROM 1 TO 1.
    READ TABLE iviqmfe WITH KEY qmnum = it_qmfe-qmnum.
    IF sy-subrc EQ 0.
      it_qmfe-txtcdfe = iviqmfe-txtcdgr.
     it_qmfe-matnr = iviqmfe-matnr.
    ENDIF.
    it_main-rejcodedescr = it_qmfe-txtcdfe.
  ENDLOOP.
  MODIFY it_main TRANSPORTING rejcodedescr.
  AT NEW fecod.
    l_sytabix = sy-tabix.
    l_totsbmng = '0'.
    FORMAT COLOR COL_GROUP.
    WRITE: /(10) it_main-fecod.
    READ TABLE it_main INDEX l_sytabix.
    WRITE: it_main-rejcodedescr.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  ENDAT.
  l_totsbmng = l_totsbmng + it_main-sbmng.
  WRITE: /(12) it_main-qmnum , (10) it_main-qmdat,(18) it_main-bautl,(40) it_main-maktx,(10) it_main-sbmng,(9) it_main-verpr LEFT-JUSTIFIED,(10) it_main-value,(40) it_main-qmtxt.
  WRITE: /(12) space,(18) it_main-matnr,(30) it_main-maktx2,it_main-mgfrd LEFT-JUSTIFIED.
*write: / it_main-idnrk.
write: / it_main-objnr,it_main-parnr,it_main-dept.
write: / it_main-vera,it_main-coord.
ENDLOOP.
FORMAT COLOR OFF.
*&      Form  read_notification
      text
-->  p1        text
<--  p2        text
FORM read_notification.
call fm read_notification
  CALL FUNCTION 'READ_NOTIFICATION'
    EXPORTING
      qmnum          = it_main-qmnum
    TABLES
      iviqmfe        = iviqmfe
    EXCEPTIONS
      invalid_number = 1
      OTHERS         = 2.
ENDFORM.                    " read_notification
START-OF-SELECTION.
  PERFORM WRITE_AND_HIDE USING SPACE SPACE.
AT LINE-SELECTION.
CASE TEXT.
   WHEN 'List index'.
     PERFORM WRITE_AND_HIDE USING 'X' SPACE.
   WHEN 'User command'.
     PERFORM WRITE_AND_HIDE USING SPACE 'X'.
   WHEN OTHERS.
     SUBTRACT 2 FROM SY-LSIND.
     PERFORM WRITE_AND_HIDE USING SPACE SPACE.
ENDCASE.
  message sy-lisel type 'I'.
CLEAR TEXT.
FORM WRITE_AND_HIDE USING P_FLAG_LSIND P_FLAG_UCOMM.
  WRITE / 'SY-LSIND:'.
  PERFORM WRITE_WITH_COLOR USING SY-LSIND P_FLAG_LSIND.
TEXT = 'List index'.
HIDE TEXT.
  WRITE / 'SY-UCOMM:'.
  PERFORM WRITE_WITH_COLOR USING SY-UCOMM P_FLAG_UCOMM.
TEXT = 'User command'.
HIDE TEXT.
  IF SY-LSIND > 0.
    WRITE / 'PICK here to go back one list level'.
  ENDIF.
ENDFORM.
FORM WRITE_WITH_COLOR USING P_VALUE
                            P_FLAG_POSITIVE.
  IF P_FLAG_POSITIVE = SPACE.
    WRITE P_VALUE COLOR COL_NORMAL.
  ELSE.
    WRITE P_VALUE COLOR COL_POSITIVE.
  ENDIF.
ENDFORM.
*&      Form  PARTNER_READ
      text
     -->P_IHPA_PARNR  text
     -->P_IHPA_PARVW  text
FORM partner_read.  "USING    "p_parnr LIKE ihpa-parnr
                            "p_parvw LIKE ihpa-parvw.
*p_parvw = 'AB'.
data: PARVW LIKE IHPA-PARVW value 'AB',
      PARNR LIKE IHPA-PARNR value '50000105'.
break-point.                                 "REMOVE THIS FOR DEBUGGING
  CALL FUNCTION 'PM_PARTNER_READ'
        EXPORTING
         parvw                        =  parvw
         parnr                        =  parnr
       IMPORTING
         diadrp_wa                    = diadrp
         diadr_wa                     = diadr
      XCPDK                        =
      E_NRART                      =
      KTOKD                        =
      VTEXT                        =
      CUSTOMER_CONTACT             =
      ADRNR_SD                     =
      ADRDA                        =
      ADRND                        =
      ADRNP                        =
       EXCEPTIONS
         no_valid_parnr               = 1
         no_valid_parnr_today         = 2
         no_authority                 = 3
         parvw_and_nrart_inital       = 4
         OTHERS                       = 5
ENDFORM.                    " PARTNER_READ