Unable to find error

Question

Dear friends,
the following is the code i wrote, it is crossing the select statement, and giving sy-subrc = 0 , but  it  is getting struck at the update and never coming  out  , i  dont  know  what is wrong in the stmt,  can some one help.
select single * from vbuk into in_vbuk where VBELN  = '0088011467'.
if sy-subrc = 0.
UPDATE VBUK SET: WBSTK  = 'C',
                 GBSTK  = 'C'
              WHERE VBELN  = '0088011467'.
else.
write:/ ' error: the doc number for vbuk doesnot exist '.
endif.
thank you.
sanjana

Answer 1

See the oss notes and we had same type of requirement :
Symptom
The goods issue for a delivery was posted and a material document created. However, the billing document for the delivery cannot be created because the system generates a message that the delivery is not yet posted for the goods issue.
However, the material document is contained in the document flow of the delivery.
Additional key words
Goods issue, GI, VL01, VL02, goods movement status, post GI, delivery, delivery note, VBUK-WBSTK, VBUP-WBSTA.
Cause and prerequisites
The goods movement status on header level (VBUK-WBSTK) and on item level (VBUP-WBSTA) was not set to 'C', but to 'A'.
Solution
With the ABAP/4 report specified below you can convert the goods movement status to 'C'. You can then bill the delivery with transaction VF01.
Preconditions:
1. The goods issue actually must have been carried out.
2. After executing the report, you should check the required conversion    only with transaction SE16.
Source code corrections
REPORT ZZBRE003.
  This report changes the goods movement status for delivery.        *
  You can change the status from A to C or vice versa. (VBUP + VBUK) *
  Notice: All positions and header will get the same status !        *
  ===========================================================        *
  After changing the status with this report do not use VL02 / VL03  *
  to watch the effect. This would change the goods movement status   *
  again!!!!!                                                         *
  Please use transaction SE16!                                       *
  Invoice for this delivery should be done with VF01!                *
  Please check this report with an example in your development system*
  before using it in productive system!                              *
TABLES: VBUP,
        VBUK,
        LIPS,
        VBFA.
input parameters filled by user
PARAMETERS: BELNR LIKE LIKP-VBELN,      "BELNR = delivery number
            WBSTS LIKE VBUP-WBSTA.      "WBSTS = goods movement status
DATA:       COUNTER1 TYPE I,
            COUNTER2 TYPE I.
CLEAR:      COUNTER1, COUNTER2.
TRANSLATE WBSTS TO UPPER CASE.
has user filled the field for delivery note?
IF BELNR IS INITIAL.
   FORMAT COLOR 6.
   FORMAT INVERSE ON.
   SKIP.
   WRITE: 'Please insert number of delivery note'.
   EXIT.
ENDIF.
change goods movement type in vbuk
SELECT SINGLE * FROM VBUK WHERE VBELN EQ BELNR.
       IF SY-SUBRC = 0.
       VBUK-WBSTK = WBSTS.
       UPDATE VBUK.
       ENDIF.
change goods movement type in vbup
SELECT * FROM VBUP WHERE VBELN EQ BELNR.
       IF SY-SUBRC = 0.
       VBUP-WBSTA = WBSTS.
       COUNTER1 = COUNTER1 + 1.
       UPDATE VBUP.
       ENDIF.
ENDSELECT.
show the result to user
FORMAT COLOR 1.
WRITE: 'Delivery: ', BELNR.
SKIP.
FORMAT COLOR 3.
WRITE: / 'Number of postions:', (3) COUNTER1.
WRITE: 'changed to goods movement status', WBSTS.
Thanks
Seshu