Transaktion Entsperren nach FUBA

Code: Alles auswählen.

CALL FUNCTION 'WRF_PSCD_CHANGE_TRANS_CHAIN'
            EXPORTING
              is_trans_chain_head  = gs_wrfpscdtchainh
              it_trans_chain_route = gt_wrfpscdtchainr
*             I_DELETE_ROUTES      =
            CHANGING
              ct_messages          = gt_message
            EXCEPTIONS
              error                = 1
              OTHERS               = 2.


          IF sy-subrc <> 0.

            FIELD-SYMBOLS: <gs_message> LIKE LINE OF gt_message.
            LOOP AT gt_message ASSIGNING <gs_message> .
            ENDLOOP.
            WRITE: <gs_message>-msgty,
           <gs_message>-msgid,
           <gs_message>-msgno,
           <gs_message>-msgv1,
           <gs_message>-msgv2,
           <gs_message>-msgv3,
           <gs_message>-msgv4.
            EXIT.
* Implement suitable error handling here
          ENDIF.

*          ENDIF.

        ENDLOOP.
MESSAGE ' Transportkennen sind gespeichert ' TYPE 'I'.
        commit WORK.
        DEQUEUE. 
        exit.

      WHEN 'AEND'.


        SUBMIT z_mm_transpkett_edit VIA SELECTION-SCREEN
        WITH p_andern = 'X'
        WITH s_route IN s_route
        AND RETURN.




    ENDCASE.