adding field on already generated bdc

hello friends m new in BDC i m adding some G/L account fields on already generated bdc for F-01 for credit and debit details and i m also added 3 fields there succesfuly but now m trying to do this again  data comes in internal table succesfully in a right place  but its goes in another G/L  account in xl sheet new fields are maintain in last and in code in last of creadit g\l account m addeding  new credit g/l.and also check right screen no. and tables to .here my code .expert pls help me to find my mistake

INCLUDE z_bdcrecx1.

TYPES : BEGIN OF t_sjv,

bldat(10) TYPE c,        " bkpf-bldat,

budat(10) TYPE c,       "bkpf-budat,

bukrs TYPE bkpf-bukrs,

sgtxt TYPE bseg-sgtxt,

basic(13) TYPE c,       ""bseg-wrbtr ,           

hra(13) TYPE c ,          " bseg-wrbtr ,            

spa(13) TYPE c ,         ""bseg-wrbtr ,             

transp(13) TYPE c,      ""bseg-wrbtr ,       

edu(13) TYPE c,         ""bseg-wrbtr ,        

wash(13) TYPE c,       ""bseg-wrbtr ,            

unif(13) TYPE c,         ""bseg-wrbtr ,           

sal_ad(13) TYPE c,     ""bseg-wrbtr ,          

tel(13) TYPE c,           ""bseg-wrbtr ,           

pf(13) TYPE c,           ""bseg-wrbtr ,             

esic(13) TYPE c,        ""bseg-wrbtr ,            

adv(13) TYPE c,         ""bseg-wrbtr ,              

tds(13) TYPE c,          ""bseg-wrbtr ,              

lic(13) TYPE c,           ""bseg-wrbtr ,              

prof(13) TYPE c,        ""bseg-wrbtr ,             

  mded(13) TYPE c,     ""bseg-wrbtr ,           

   nsal(13) TYPE c,      ""bseg-wrbtr ,        

   vend TYPE  rf05a-newko,                         

1)   entn(13) TYPE c,                                      "entertainment        

2) medi(13) TYPE c ,                                   "medical

3)   other(13) TYPE c,                                   " other     ( this three G/L field  already added by me and its working )

4)  ruof(10) TYPE c,                                     "roundoff                 ( But in this one its jumpp recors in another G/L account or 'other' G/L field)

END OF t_sjv.

TYPES :tt_sjv TYPE STANDARD TABLE OF t_sjv.

DATA : it_sjv TYPE tt_sjv,

        wa_sjv TYPE t_sjv.

*

*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

   PERFORM f4_help.

START-OF-SELECTION.

   PERFORM upload_data.

*  PERFORM open_group.

   LOOP AT it_sjv INTO wa_sjv.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0100'.

     PERFORM bdc_field         USING 'BDC_CURSOR'

                                            'RF05A-NEWKO'.

     PERFORM bdc_field         USING 'BDC_OKCODE'

                                                      '/00'.

     PERFORM bdc_field       USING 'BKPF-BLDAT'

                                           wa_sjv-bldat."'17.05.2013'.

     PERFORM bdc_field       USING 'BKPF-BLART'

                                                    'SA'.

     PERFORM bdc_field       USING 'BKPF-BUKRS'

                                           wa_sjv-bukrs.""'KIPL'.

     PERFORM bdc_field       USING 'BKPF-BUDAT'

                                           wa_sjv-budat.""'17.05.2013'.

*    PERFORM bdc_field       USING 'BKPF-MONAT'

*                                                           '2'.

     PERFORM bdc_field       USING 'BKPF-WAERS'

                                                        'INR'.

     PERFORM bdc_field       USING 'FS006-DOCID'

                                   '*'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'        

                                                             '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'     "basic

                                                         '404010'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                                 'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                          '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                           wa_sjv-basic. ""'10'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                                   wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                       '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                       '404015'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                             'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                             '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                              wa_sjv-hra.""'20'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                           wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                        '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                     '403046'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                        'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                              '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'RF05A-NEWKO'.

     PERFORM bdc_field           USING 'BDC_OKCODE'

                                                     '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                           wa_sjv-spa."" '30'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                           wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                        '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                   '404011'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                       'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'COBL-ANLN1'.

     PERFORM bdc_field         USING 'BDC_OKCODE'

                                            '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'RF05A-NEWKO'.

     PERFORM bdc_field         USING 'BDC_OKCODE'

                                                 '/00'.

     PERFORM bdc_field         USING 'BSEG-WRBTR'

                                             wa_sjv-transp.""'8'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                           wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                      '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                  '404012'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                              '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                     '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                           wa_sjv-edu.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                           wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                        '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                      '404014'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                            'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                               '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                     '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                           wa_sjv-wash.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                           wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                       '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                    '404016'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                          'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                             '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                      '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                                    wa_sjv-unif.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                                    wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS' 

                                                          '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                       '403050'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                             'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                              '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'RF05A-NEWKO'.

     PERFORM bdc_field         USING 'BDC_OKCODE'

                                                      '/00'.

     PERFORM bdc_field          USING 'BSEG-WRBTR'

                                              wa_sjv-entn.                                    (here this field is added by me and itsworking fine)

     PERFORM bdc_field          USING 'BSEG-SGTXT'

                                                 wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS' 

                                                          '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                       '403051'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                          'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                             'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                 '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                                'RF05A-NEWKO'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                    '/00'.

     PERFORM bdc_field          USING 'BSEG-WRBTR'

                                                 wa_sjv-medi.                                                (this field also working fine)

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                                   wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS' 

                                                           '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                          '403052'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                               'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                 '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                                'RF05A-NEWKO'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                           '/00'.

PERFORM bdc_field          USING 'BSEG-WRBTR'

                                                 wa_sjv-ruof.              (but when i my trying to add this field here its data goes on another g\l

     PERFORM bdc_field       USING 'BSEG-SGTXT'       means '206012'. this g/l or next g\l)

                                                   wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS' 

                                                           '40'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                          '41564'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                               'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                 '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                                'RF05A-NEWKO'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                           '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                                wa_sjv-other.                             (this one also working)

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                            wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                          '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                       '206012'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                          'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                              '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'RF05A-NEWKO'.

     PERFORM bdc_field         USING 'BDC_OKCODE'

                                                    '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                              wa_sjv-sal_ad.""'15'.         

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                              wa_sjv-sgtxt.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                                   '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                    '206011'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                      'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field         USING 'BDC_CURSOR'

                                            'RF05A-NEWKO'.

     PERFORM bdc_field         USING 'BDC_OKCODE'

                                                 '/00'.

     PERFORM bdc_field          USING 'BSEG-WRBTR'

                                                wa_sjv-tel.""'10'.

     PERFORM bdc_field          USING 'BSEG-SGTXT'

                                                wa_sjv-sgtxt.

     PERFORM bdc_field         USING 'RF05A-NEWBS'

                                                       '50'.

     PERFORM bdc_field          USING 'RF05A-NEWKO'

                                                 '107260'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                      'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                                'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                              'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                                     '/00'.

     PERFORM bdc_field         USING 'BSEG-WRBTR'

                                               wa_sjv-pf. ""'8'.

     PERFORM bdc_field           USING 'BSEG-SGTXT'

                                               wa_sjv-sgtxt.

     PERFORM bdc_field          USING 'RF05A-NEWBS'

                                                '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                                  '107265'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                                     'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field         USING 'BDC_CURSOR'

                                               'COBL-ANLN1'.

     PERFORM bdc_field          USING 'BDC_OKCODE'

                                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field          USING 'BDC_CURSOR'

                                               'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                   wa_sjv-esic.""'9'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                   wa_sjv-sgtxt.""'Salary for the month of May 05'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                   '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                   '207210'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                   wa_sjv-adv.""'12'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                   wa_sjv-sgtxt.""'Salary for the month of May  05'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                   '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                   '107266'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                   wa_sjv-tds.""'10'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                   wa_sjv-sgtxt.""'Salary for the month of May 05'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                   '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                   '107263'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                   wa_sjv-lic.""'6'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                   wa_sjv-sgtxt.""'Salary for the month of May 05'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                   '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                   '107268'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                    wa_sjv-prof. ""'2'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                   wa_sjv-sgtxt.""'Salary for the month of May 05'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                   '50'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                   '206013'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'RF05A-NEWKO'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '/00'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                   wa_sjv-mded.  "" '1'.

     PERFORM bdc_field       USING 'BSEG-SGTXT'

                                   wa_sjv-sgtxt.""'Salary for the month of May  05'.

     PERFORM bdc_field       USING 'RF05A-NEWBS'

                                   '31'.

     PERFORM bdc_field       USING 'RF05A-NEWKO'

                                    wa_sjv-vend .""'6000006'.

     PERFORM bdc_field       USING 'DKACB-FMORE'

                                   'X'.

     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'COBL-ANLN1'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=ENTE'.

     PERFORM bdc_dynpro      USING 'SAPMF05A' '0302'.

     PERFORM bdc_field       USING 'BDC_CURSOR'

                                   'BSEG-SGTXT'.

     PERFORM bdc_field       USING 'BDC_OKCODE'

                                   '=BS'.

     PERFORM bdc_field       USING 'BSEG-WRBTR'

                                    wa_sjv-nsal.""'13'.

     PERFORM bdc_field       USING 'BSEG-MWSKZ'

                                   '**'.