QM03: Lesen von Verantwortlicher + Listname Thema ist als GELÖST markiert

Code: Alles auswählen.

    DATA: lt_qmsm TYPE STANDARD TABLE OF qmsm.

 " parnr_text ist TYPE c LENGTH 35 in der internen Tabelle wie NAME_LIST in Export-Parameter
 " DIADRP_WA in FuBa PM_PARTNER_READ


*-- Verantwortlichen fuer Maßnahmen lesen
    LOOP AT lt_qmsm ASSIGNING <qmsm>.

      IF <qmsm>-parnr IS NOT INITIAL AND
         <qmsm>-parvw IS NOT INITIAL.

        CALL FUNCTION 'PM_PARTNER_READ'
          EXPORTING
            parvw                        = <qmsm>-parvw
            parnr                        = <qmsm>-parnr
*         NRART                        = ' '
*         ADRNR                        =
*         CHECK_DEBITOR                = 'X'
*         OBJNR                        =
*         NO_TABIX_DET                 =
       IMPORTING
*         PARNR_EXP                    =
*         DIADRC_WA                    =
*         DIADRP_WA                    =
           diadr_wa                     = wa_diadr
*         DIADRCPD_WA                  =
*         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
                  .
        IF sy-subrc <> 0.
*          nichts tun
        ENDIF.
      ENDIF.

      <qmsm>-parnr_text = wa_diadr-name_list.

    ENDLOOP.