PROBLEM IN SELECT OPTION

[Former Member]

Dear all, i want to display the document no,document status,date of document,document type and item details here input field is document number.tables are bkpf and bseg.i wrote the program and executed that program it causes runtime error.so please solve the problem.

REPORT  ZOPENSQL5.
*ENTER INPUT VALUE
DATA : V_BELNR TYPE BELNR_D.
SELECT-OPTIONS : K_BELNR FOR V_BELNR.

*CREATE USER DEFINED DATA TYPES
TYPES : BEGIN OF TY_BKPF,
        BELNR TYPE BELNR_D, "ACCOUNTING DOCUMENT NUMBER
        BSTAT TYPE BSTAT,   "DOCUMENT STATUS
        BLDAT TYPE BLDAT,   "DOCUMENY DATE
        BLART TYPE BLART,   "DOCUMENT TYPE
        END OF TY_BKPF.

TYPES : BEGIN OF TY_BSEG,
        BELNR TYPE BELNR_D, "ACCOUNT DOCUMENT NUMBER
        BUZEI TYPE BUZEI,   "ITEM DETAILS
        END OF TY_BSEG.

TYPES : BEGIN OF TY_FINAL,
        BELNR TYPE BELNR_D, "ACCOUNTING DOCUMENT NUMBER
        BSTAT TYPE BSTAT,   "DOCUMENT STATUS
        BLDAT TYPE BLDAT,   "DOCUMENY DATE
        BLART TYPE BLART,   "DOCUMENT TYPE
        BUZEI TYPE BUZEI,   "ITEM DETAILS
        END OF TY_FINAL.

*CREATE INTERNAL TABLES FOR ABOVE TABLES
DATA : IT_BKPF TYPE STANDARD TABLE OF TY_BKPF,
       IT_BSEG TYPE STANDARD TABLE OF TY_BSEG,
       IT_FINAL TYPE STANDARD TABLE OF TY_FINAL.

DATA : WA_BKPF TYPE TY_BKPF,
       WA_BSEG TYPE TY_BSEG,
       WA_FINAL TYPE TY_FINAL.
*MOVE DATA
SELECT BELNR
       BSTAT
       BLDAT
       BLART
       FROM BKPF
       INTO TABLE IT_BKPF
       WHERE BELNR IN K_BELNR.

IF NOT IT_BKPF IS INITIAL.
  SELECT BELNR
         BUZEI
         FROM BSEG
         INTO TABLE IT_BSEG
         FOR ALL ENTRIES IN IT_BKPF
         WHERE BELNR = IT_BKPF-BELNR.
ENDIF.

LOOP AT IT_BSEG INTO WA_BSEG.
  MOVE-CORRESPONDING : WA_BSEG TO WA_FINAL.
  READ TABLE IT_BKPF INTO WA_BKPF WITH KEY BELNR = WA_FINAL-BELNR.
  IF SY-SUBRC = 0.
    MOVE : WA_BKPF-BSTAT TO WA_FINAL-BSTAT,
           WA_BKPF-BLDAT TO WA_FINAL-BLDAT,
           WA_BKPF-BLART TO WA_FINAL-BLART.
  ENDIF.
  APPEND WA_FINAL TO IT_FINAL.
  CLEAR WA_FINAL.
ENDLOOP.



*DISPLAY THE DATA
ULINE (55).
WRITE :/1  SY-VLINE        ,
        2  'DOC NO'        ,
        14 SY-VLINE        ,
        16 'DOC STATUS'    ,
        26 SY-VLINE        ,
        28 'DATE OF DOC'   ,
        43 SY-VLINE        ,
        44 'DOC TYPE'      ,
        55 SY-VLINE        .
WRITE : /1 SY-VLINE.
ULINE (55).

[ThomasZloch]

You violated the most basic performance principles, please read here and only post again if there is still a problem.

Thread locked.

Thomas