Skip to Content
0
Former Member
Apr 21, 2009 at 06:05 PM

Help me with this code

91 Views

Dear gurus.

This is my code please guide me where im wrong..

TABLES: vbap , vbup.

DATA: abc LIKE vbup OCCURS 1 WITH HEADER LINE.
DATA: status LIKE vbup-gbsta.

status = 'C'.

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECT-OPTIONS so FOR vbup-vbeln OBLIGATORY.
SELECT-OPTIONS li FOR vbup-posnr OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 100.



SELECTION-SCREEN: BEGIN OF TABBED BLOCK b2 FOR 4 LINES,
                  TAB (50) title USER-COMMAND '' DEFAULT SCREEN 100,
                  END OF BLOCK b2.

INITIALIZATION.
  title = 'Selection OF Sales Order And Line Items'.

START-OF-SELECTION.

  SELECT *
    FROM vbup
    INTO TABLE abc
    WHERE gbsta EQ 'A'
    AND lfgsa EQ 'A'
    AND absta EQ 'A'.

LOOP AT abc WHERE vbeln IN so AND posnr IN li.


    abc-gbsta = status.
    abc-lfgsa = status.
    abc-absta = status.

    vbup-gbsta = abc-gbsta.
    vbup-lfgsa = abc-lfgsa.
    vbup-absta = abc-absta.

    APPEND  abc.
    MODIFY vbup FROM TABLE abc.

  ENDLOOP.