REPORT  z08_04.

DATA lt_seqg  LIKE seqg3 OCCURS 0 WITH HEADER LINE.

DATA lv_aufnr TYPE aufnr VALUE '0000123456'.

DO 5 TIMES.

  CALL FUNCTION 'ENQUEUE_READ'

                   EXPORTING

                          gname = 'AUFK'

                             guname = space

                     TABLES

                          enq = lt_seqg

                     EXCEPTIONS

                             communication_failure = 1

                    OTHERS = 2.

  IF NOT lt_seqg[] IS INITIAL.

    READ TABLE lt_seqg WITH KEY garg+3(12) = lv_aufnr.

    IF sy-subrc EQ 0.

        WAIT UP TO 1 SECONDS.

    ELSE.

        EXIT.

    ENDIF.

  ELSE.

    EXIT.

  ENDIF.