Error"No item information transferred into Accounting"in PRELIMINARY_POSTIN

Question

Hi Experts,
Am trying to PARK the gl doc by using FM of PRELIMINARY_POSTING_FB01......when I tested it in SE37 with my test data.........its worked fine........but, when I implemented the same into my Z prog. of SE38........its failing, even though am using the same test data!! Am getting the below error!!
italics
No item information transferred into Accounting
Message no. RW002
Diagnosis
The interface into Accounting requires:
Header data
Item data
Currency data
The item data is missing.
System Response
Processing of the data in the Accounting interface is not possible.
Procedure
This is a system error of the application which was called up.
italics
so, let me know that, Where its going wrong? How to fix it?
thanq

Answer 1

* Document Date & Currency
  READ TABLE t_datatab INTO wa_datatab INDEX 1.
  IF sy-subrc EQ 0.
    CONCATENATE wa_datatab-col3+6(4)
                wa_datatab-col3+3(2)
                wa_datatab-col3(2)
        INTO t_bkpf1-bldat.
    t_bkpf1-waers = wa_datatab-col6.
  ENDIF.
* Posting date
  READ TABLE t_datatab INTO wa_datatab INDEX 2.
  IF sy-subrc EQ 0.
    CONCATENATE wa_datatab-col3+6(4)
                wa_datatab-col3+3(2)
                wa_datatab-col3(2)
       INTO t_bkpf1-budat.
  ENDIF.
* user name
  t_bkpf1-usnam = sy-uname.
* Reference
  READ TABLE t_datatab INTO wa_datatab INDEX 3.
  IF sy-subrc EQ 0.
    t_bkpf1-xblnr = wa_datatab-col3.
  ENDIF.
* Document Header Text
  READ TABLE t_datatab INTO wa_datatab INDEX 4.
  IF sy-subrc EQ 0.
    t_bkpf1-bktxt = wa_datatab-col3.
  ENDIF.
* Document Type
  READ TABLE t_datatab INTO wa_datatab INDEX 5.
  IF sy-subrc EQ 0.
    t_bkpf1-blart = wa_datatab-col3.
  ENDIF.
* Company Code (Validate Company Code in the file against the Company
*               Code in the Selection Parameters)
  READ TABLE t_datatab INTO wa_datatab INDEX 7.
  IF sy-subrc EQ 0.
    IF wa_datatab-col3 = p_bukrs.
      t_bkpf1-bukrs = wa_datatab-col3.
    ELSE.
      MESSAGE e000(z1) WITH  text-002 text-003 text-004 text-005.
    ENDIF.
  ENDIF.
* Check mandatory fields*  IF NOT v_chk_rev IS INITIAL.
  IF t_bkpf1-bktxt IS INITIAL OR
     t_bkpf1-xblnr IS INITIAL.
    MESSAGE e000(z1) WITH  text-006.
  ENDIF.
  APPEND t_bkpf1.
ENDFORM.                    " fill_bbkpf1
*header end
*2) V1 items begin
FORM sub_fill_bbseg1.
  CLEAR: wa_datatab, t_bseg1, t_bsec1, t_bset1, t_bsez1.
  REFRESH: t_bseg1, t_bsec1, t_bset1, t_bsez1.
* Delete Header Part from Internal Table
  DELETE t_datatab FROM 1 TO 9.
* Get total no. of Internal Table entries again
  DESCRIBE TABLE t_datatab.
* Delete the last Internal Table line-TOTALS.
  DELETE t_datatab INDEX sy-tfill.
  LOOP AT t_datatab INTO wa_datatab WHERE col2 NE space.
    t_bseg1-buzei = wa_datatab-col1.
    t_bsec1-buzei = wa_datatab-col1.
    t_bset1-buzei = wa_datatab-col1.
    t_bseg1-hkont = wa_datatab-col2.
    PERFORM sub_pad_zeros USING t_bseg1-hkont.
    t_bseg1-mwskz = wa_datatab-col6.
    t_bseg1-kostl = wa_datatab-col7.
    PERFORM sub_pad_zeros USING t_bseg1-kostl.
    t_bseg1-aufnr = wa_datatab-col8.
    PERFORM sub_pad_zeros USING t_bseg1-aufnr.
    t_bseg1-sgtxt = wa_datatab-col9.
    t_bseg1-prctr = wa_datatab-col10.
    PERFORM sub_pad_zeros USING t_bseg1-prctr.
    t_bseg1-bukrs = p_bukrs.
    t_bsec1-bukrs = p_bukrs.
    t_bset1-bukrs = p_bukrs.
    t_bseg1-koart = 'S'.
    IF wa_datatab-col3 NE space AND
       wa_datatab-col4 EQ space.        "debit?
      t_bseg1-wrbtr =   wa_datatab-col3.
      t_bseg1-bschl = '40'.
      t_bseg1-shkzg = 'S'.
    ELSE.
      t_bseg1-wrbtr = ( wa_datatab-col4 * -1 ). "credit?
      t_bseg1-bschl = '50'.
      t_bseg1-shkzg = 'H'.
    ENDIF.
    APPEND t_bseg1.
    APPEND t_bsec1.
    APPEND t_bset1.
    APPEND t_bsez1.
  ENDLOOP.
ENDFORM.                    " fill_bbseg1
*items end
     CALL FUNCTION 'PRELIMINARY_POSTING_FB01'
        EXPORTING
          i_tcode = 'FBV1'
        TABLES
          t_bkpf  = t_bkpf1
          t_bseg  = t_bseg1
          t_bsec  = t_bsec1
          t_bset  = t_bset1
          t_bsez  = t_bsez1.