Get Delivery Print Information And Process It

Teslimata ait çıktı türlerini tetiklemek..

data :
        rg_nacha TYPE TABLE OF msg3 WITH HEADER LINE ,
        rg_kschl TYPE TABLE OF msg2 WITH HEADER LINE ,
        rg_objky TYPE TABLE OF msg1 WITH HEADER LINE .

      appl = 'V2' .
      pm_vermo = '2' .

      rg_kschl-sign   = 'I'.
      rg_kschl-option = 'EQ'.
      rg_kschl-low    = 'ZAAA'.
      APPEND rg_kschl .

      rg_objky-sign   = 'I'  .
      rg_objky-option = 'EQ' .
      rg_objky-low    = TESLIMAT .
      APPEND rg_objky.

DO 3 TIMES .
        l_cnt = l_cnt + 1 .
        pm_vermo = l_cnt .
        CALL FUNCTION 'WFMC_MESSAGES_SELECT'
          EXPORTING
            pi_application = appl
            pi_processing  = pm_vermo
          TABLES
            ri_medium      = rg_nacha[]
            ri_type        = rg_kschl[]
            ri_object      = rg_objky[]
            tx_messages    = msgs[].
        IF NOT msgs[] IS INITIAL .
          EXIT.
        ENDIF.

      ENDDO .

      CALL FUNCTION 'WFMC_MESSAGES_EXTEND'
        TABLES
          tx_messages = msgs.
      CHECK NOT msgs[] IS INITIAL .
      READ TABLE msgs WITH KEY objky+(10) = TESLIMAT.
      msgs-ldest = l_tddest .
      MODIFY msgs INDEX sy-tabix TRANSPORTING ldest .
      CALL FUNCTION 'WFMC_MESSAGES_PROCESS'
        EXPORTING
          pi_display_id = 'NALIV2'
          pi_no_dialog  = 'X'
          pi_vermo      = pm_vermo
          pi_be_quiet   = 'X'
        TABLES
          tx_messages   = msgs
          tx_display    = disp.