BI-Error for BD30

Hi Experts,

I'm using BI for BD30 to send Mat.Bom with ALE :

CLEAR wa_bdcdata.  wa_bdcdata-program  = 'RBDSEBOM'.  wa_bdcdata-dynpro   = '1000'.  wa_bdcdata-dynbegin = 'X'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'BDC_CURSOR'.  wa_bdcdata-fval   = 'P_LOGSYS'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'BDC_OKCODE'.  wa_bdcdata-fval   = '/00'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'SEL_MAT-LOW'.  wa_bdcdata-fval   = lp_matnr.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'SEL_ANW-LOW'.  wa_bdcdata-fval   = '3'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_DATUV'.  wa_bdcdata-fval   = sy-datum.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_MESTYP'.  wa_bdcdata-fval   = 'BOMMAT'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_MESCOD'.  wa_bdcdata-fval   = 'CRE'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_LOGSYS'.  wa_bdcdata-fval   = 'ST1'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-program  = 'RBDSEBOM'.  wa_bdcdata-dynpro   = '1000'.  wa_bdcdata-dynbegin = 'X'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'BDC_CURSOR'.  wa_bdcdata-fval   = 'P_LOGSYS'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'BDC_OKCODE'.  wa_bdcdata-fval   = '=ONLI'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'SEL_MAT-LOW'.  wa_bdcdata-fval   = lp_matnr.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'SEL_ANW-LOW'.  wa_bdcdata-fval   = '3'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_DATUV'.  wa_bdcdata-fval   = sy-datum.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_MESTYP'.  wa_bdcdata-fval   = 'BOMMAT'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_MESCOD'.  wa_bdcdata-fval   = 'CRE'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'P_LOGSYS'.  wa_bdcdata-fval   = 'ST1'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-program  = 'RBDSEBOM'.  wa_bdcdata-dynpro   = '0100'.  wa_bdcdata-dynbegin = 'X'.  APPEND wa_bdcdata TO bdcdata.  CLEAR wa_bdcdata.  wa_bdcdata-fnam   = 'BDC_OKCODE'.  wa_bdcdata-fval   = '=DIST'.  APPEND wa_bdcdata TO bdcdata.  CALL TRANSACTION 'BD30'        USING bdcdata MODE 'N' UPDATE 'S'                      MESSAGES INTO messtab.

I always have the same Error :

No batch input data for screen RBDSEBOM 0100

Any idea ?

Regards,

David