'what kind of error 'plzzz help

Question

hi all
plz check the following code and error which it is givn 2 me. how shld i rectify it? not able to get what kind of error it is.
*& Report  ZNBS_FI_FS10N
REPORT  ZPRAC_FI_VENDORSTATEMENT.
Report Title          : Display Line item balances for VENDORs with opening balances
Functional Consultant : Mr ShreeHari
ABAPER                : Sanjay K, NBS
TYPE-POOLS slis.
DATA   :   fcat               TYPE slis_t_fieldcat_alv WITH HEADER LINE,
           ls_event               TYPE slis_alv_event,
           repid                  LIKE sy-repid.
DATA   :   b_layout               TYPE slis_layout_alv.
DATA   :   gt_events              TYPE slis_t_event WITH HEADER LINE.
DATA   :   lt_list_commentary     TYPE slis_t_listheader,
           l_logo                 TYPE w3_qvalue.
TABLES : BSAK, ska1, bsis, bkpf, thead, t003, t003t, LFA1, skat.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS pbukrs FOR bsis-bukrs default '1000'.
SELECT-OPTIONS pLIFNR FOR LFA1-LIFNR  default '410028'.
SELECT-OPTIONS pbudat FOR bsis-budat OBLIGATORY default '20060401' to '20061219'.
SELECTION-SCREEN END OF BLOCK b1.
DATA : BEGIN OF itab OCCURS 0,
       belnr LIKE bsis-belnr,
       bukrs LIKE bsis-bukrs,
       gjahr LIKE bsis-gjahr,
       blart LIKE bkpf-blart,
       bldat LIKE bkpf-bldat,
       budat LIKE bkpf-budat,
       LIFNR LIKE LFA1-LIFNR,
       dmbtr LIKE BSAK-dmbtr,
       wrbtr LIKE BSAK-wrbtr,
       shkzg LIKE BSAK-shkzg,
       ltext LIKE t003t-ltext,
       END OF itab.
DATA TEXT(60). " LIKE t003t-ltext.
DATA jtab LIKE itab OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF final OCCURS 0,
        belnr LIKE bsis-belnr,
       bukrs LIKE bsis-bukrs,
       gjahr LIKE bsis-gjahr,
       blart LIKE bkpf-blart,
       bldat LIKE bkpf-bldat,
       budat LIKE bkpf-budat,
       LIFNR LIKE LFA1-LIFNR,
       debit LIKE BSAK-dmbtr,
       credit LIKE BSAK-wrbtr,
       shkzg LIKE BSAK-shkzg,
       balance LIKE BSAK-dmbtr,
       ltext LIKE t003t-ltext,
       END OF final.
  DATA : BEGIN OF output OCCURS 0,
         belnr LIKE bsis-belnr,
         bukrs LIKE bsis-bukrs,
         gjahr LIKE bsis-gjahr,
         blart LIKE bkpf-blart,
         bldat LIKE bkpf-bldat,
         budat LIKE bkpf-budat,
         LIFNR LIKE LFA1-LIFNR,
         ddebit LIKE BSAK-dmbtr,
         ccredit LIKE BSAK-wrbtr,
         shkzg LIKE BSAK-shkzg,
         balance LIKE BSAK-dmbtr,
         ltext LIKE t003t-ltext,
         hkont LIKE bsis-hkont,
         bschl LIKE bsis-bschl,
         TXT50 LIKE SKAT-TXT50,
         END OF output.
********FOR OPENING BALANCE.
DATA : BEGIN OF open OCCURS 0,
       wrbtr LIKE BSAK-wrbtr,
       dmbtr LIKE BSAK-dmbtr,
       bukrs LIKE BSAK-bukrs,
       shkzg LIKE BSAK-shkzg,
       END OF open.
DATA clear LIKE open OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF bal OCCURS 0,
      dbal LIKE bsis-wrbtr,
      cbal LIKE bsis-dmbtr,
      shkzg LIKE bsis-shkzg,
      END OF bal.
DATA date TYPE sy-datum.
MOVE pbudat-low TO date.
date = date - 1.
DATA: BEGIN OF balance OCCURS 0,
      debit LIKE bsis-wrbtr,
      credit LIKE bsis-dmbtr,
      total LIKE bsis-dmbtr,
      END OF balance.
DATA : BEGIN OF line OCCURS 0,
       belnr LIKE bsis-belnr,
       dmbtr LIKE bsis-dmbtr,
       wrbtr LIKE bsis-wrbtr,
       hkont LIKE bsis-hkont,
       gjahr LIKE bsis-gjahr,
       bukrs LIKE bsis-bukrs,
       shkzg LIKE bsis-shkzg,
       budat LIKE bsis-budat,
       blart LIKE bsis-blart,
       bschl LIKE bsis-bschl,
       TXT50 like skat-txt50,
       END OF line.
TOP-OF-PAGE.
  PERFORM top_of_page.
START-OF-SELECTION.
*perform integrate.
  PERFORM fetch.
  PERFORM build_catalog.
  PERFORM layout.
END-OF-SELECTION.
  PERFORM display .
*&      Form  Fetch
      text
-->  p1        text
<--  p2        text
FORM fetch .
  SELECT * FROM BSIK INTO CORRESPONDING FIELDS OF open WHERE bukrs IN pbukrs AND budat LE date  AND LIFNR IN pLIFNR.
    COLLECT open.
  ENDSELECT.
  SELECT * FROM BSAK INTO CORRESPONDING FIELDS OF clear WHERE bukrs IN pbukrs AND budat LE date AND LIFNR IN pLIFNR.
    COLLECT clear.
  ENDSELECT.
  LOOP AT open.
    MOVE : open-dmbtr TO bal-dbal,
           open-wrbtr TO bal-cbal,
           open-shkzg TO bal-shkzg.
    IF open-shkzg = 'H'.
      open-dmbtr = open-dmbtr * -1.
      open-wrbtr = open-wrbtr * -1.
    ENDIF.
    COLLECT bal.
  ENDLOOP.
  LOOP AT clear.
    MOVE : clear-dmbtr TO bal-dbal,
           clear-wrbtr TO bal-cbal,
           clear-shkzg TO bal-shkzg.
    IF clear-shkzg = 'H'.
      clear-dmbtr = clear-dmbtr * -1.
      clear-wrbtr = clear-wrbtr * -1.
    ENDIF.
    COLLECT bal.
  ENDLOOP.
  CLEAR bal.
  LOOP AT bal.
    IF bal-shkzg = 'H'.
      MOVE  : bal-dbal TO balance-debit.
      CLEAR bal-dbal.
    ELSE.
      MOVE        bal-cbal TO balance-credit.
      CLEAR bal-cbal.
    ENDIF.
    COLLECT balance.
    CLEAR balance.
  ENDLOOP.
********FOR LINE ITEMS
  SELECT * FROM bkpf INTO CORRESPONDING FIELDS OF itab WHERE bukrs IN pbukrs AND budat IN pbudat .
    SELECT * FROM BSAK INTO CORRESPONDING FIELDS OF itab WHERE bukrs IN
    pbukrs  AND belnr = itab-belnr AND gjahr = itab-gjahr.
      IF itab-shkzg = 'H'.
        itab-dmbtr = itab-dmbtr * -1.
        itab-wrbtr = itab-wrbtr * -1.
      ENDIF.
      SELECT ltext FROM t003t INTO itab-ltext WHERE spras = 'EN' AND blart = itab-blart.
        APPEND itab.
      ENDSELECT.
    ENDSELECT.
  ENDSELECT.
  SELECT * FROM BSIK INTO CORRESPONDING FIELDS OF itab WHERE bukrs IN pbukrs AND budat IN pbudat AND LIFNR IN pLIFNR.
    IF itab-shkzg = 'H'.
      itab-dmbtr = itab-dmbtr * -1.
      itab-wrbtr = itab-wrbtr * -1.
    ENDIF.
    SELECT ltext FROM t003t INTO itab-ltext WHERE spras = 'EN' AND blart = itab-blart.
      APPEND itab.
    ENDSELECT.
  ENDSELECT.
  DELETE itab WHERE LIFNR NOT IN pLIFNR.
<b>Error: <%_L002> IS NOT AN INTRNAL TABLE-THE OCCURS SPECIFICATION IS MISSING)</b></b>
error at delete statement.
its urgent.
thanks all in advance.
appropriate reward will b given.

Answer 1

hi gaurav,
u created internal table itab with out header line and u r trying to delete it from internal body itself which isn't possible.
so do like this,
create workarea [wa_itab] of same structure of itab [internal table] and give delete statement as
delete wa_itab from itab where condition.
if helpful reward some points.
with regards,
suresh babu aluri.