LOOP AT ITAB.

    AT END OF VBELN.

      PERFORM FRM_LOCK_DELIVERY(ZSDS0002) USING ITAB-VBELN.

      CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'

        EXPORTING

          I_VBELN                   = ITAB-VBELN

          I_BUDAT                   = LV_BUDAT

          I_TCODE                   = 'VL09'

          I_VBTYP                   = 'J'

        TABLES

          T_MESG                    = LT_MESG

        EXCEPTIONS

          ERROR_REVERSE_GOODS_ISSUE =

          OTHERS                    = .

      IF SY-SUBRC =  .

        COMMIT WORK.

        WRITE : / ITAB-VBELN, '冲销成功'.

      ELSE.

        WRITE : / ITAB-VBELN, '冲销失败'.

      ENDIF.

    ENDAT.

  ENDLOOP.

*****************************************************

FORM FRM_LOCK_DELIVERY  USING    P_DELIVERY.

  DATA : LV_TIME TYPE P DECIMALS  VALUE '0.50'.

  CHECK P_DELIVERY IS NOT INITIAL.

  DO  TIMES.

    CALL FUNCTION 'ENQUEUE_EVVBLKE'

      EXPORTING

        VBELN          = P_DELIVERY

      EXCEPTIONS

        FOREIGN_LOCK   =

        SYSTEM_FAILURE =

        OTHERS         = .

    IF SY-SUBRC <> .

* Implement suitable error handling here

    ENDIF.

    IF SY-SUBRC EQ .

      CALL FUNCTION 'DEQUEUE_EVVBLKE'

        EXPORTING

          MODE_LIKP = 'E'

          MANDT     = SY-MANDT

          VBELN     = P_DELIVERY

          X_VBELN   = ' '

          _SCOPE    = ''

          _SYNCHRON = ' '

          _COLLECT  = ' '.

      EXIT.

    ELSE.

      WAIT UP TO LV_TIME SECONDS.

    ENDIF.

  ENDDO.

ENDFORM.                    " FRM_LOCK_DELIVERY