how to do a bdc for below requirement

report ZUS_F_28_CLEARING_DOC_POSTED

       no standard page heading line-size 255.

include bdcrecx1.
start-of-selection.

perform open_group.

perform bdc_dynpro      using 'SAPMF05A' '0103'.
perform bdc_field       using 'BDC_CURSOR'
                                             'BSEG-SGTXT'.

perform bdc_field       using 'BDC_OKCODE'
                                            '/00'.
perform bdc_field       using 'BKPF-BLDAT'
                                             '30.01.2013'.
Perform bdc_field       using 'BKPF-BLART'
                                             'DZ'.
perform bdc_field       using 'BKPF-BUKRS'
                                             '6100'.
perform bdc_field       using 'BKPF-BUDAT'
                                             '30.01.2013'.
perform bdc_field       using 'BKPF-WAERS'
                                             'USD'.
perform bdc_field       using 'BKPF-XBLNR'
                                             'test11001'.
perform bdc_field       using 'RF05A-KONTO'
                                             '3102171'.
perform bdc_field       using 'BSEG-WRBTR'
                                             '855.78'.
perform bdc_field       using 'BSEG-SGTXT'
                                             'test'.
perform bdc_field       using 'RF05A-AGKON'
                                             'DD020001'.
perform bdc_field       using 'RF05A-AGKOA'
                                             'D'.
perform bdc_field       using 'RF05A-XNOPS'
                                             'X'.
perform bdc_dynpro      using 'SAPDF05X' '3100'.
perform bdc_field       using 'BDC_OKCODE'
                                             '=OSU'.
perform bdc_field       using 'BDC_CURSOR'
                                             'DF05B-PSSKT(01)'.
perform bdc_field       using 'RF05A-ABPOS'
                                             '1'.
perform bdc_dynpro      using 'SAPDF05X' '2000'.
perform bdc_field       using 'BDC_CURSOR'
                                            'RF05A-XPOS1(03)'.
perform bdc_field       using 'BDC_OKCODE'
                                             '=GO'.
perform bdc_field       using 'RF05A-XPOS1(01)'
                                             ''.
perform bdc_field       using 'RF05A-XPOS1(03)'
                                             'X'.
perform bdc_dynpro      using 'SAPDF05X' '0731'.

perform bdc_field       using 'BDC_CURSOR'
                                             'RF05A-SEL01(02)'.
perform bdc_field       using 'BDC_OKCODE'
                                             '=GO'.
perform bdc_field       using 'RF05A-SEL01(01)'
                                             '1002344810'.
perform bdc_field       using 'RF05A-SEL01(02)'
                                             '1002344817'.

perform bdc_dynpro      using 'SAPDF05X' '3100'.
perform bdc_field       using 'BDC_OKCODE'
                                             '=PI'.
perform bdc_field       using 'BDC_CURSOR'
                                             'DF05B-PSBET(01)'.
perform bdc_field       using 'RF05A-ABPOS'
                                             '1'.
perform bdc_dynpro      using 'SAPDF05X' '3100'.
perform bdc_field       using 'BDC_OKCODE'
                              '=PI'.
perform bdc_field       using 'BDC_CURSOR'
                                             'DF05B-PSBET(02)'.
perform bdc_field       using 'RF05A-ABPOS'
                                             '1'.
perform bdc_dynpro      using 'SAPDF05X' '3100'.
perform bdc_field       using 'BDC_OKCODE'
                                             '/00'.

perform bdc_field       using 'BDC_CURSOR'
                                             'DF05B-PSSKT(01)'.
perform bdc_field       using 'RF05A-ABPOS'
                                             '1'.
perform bdc_field       using 'DF05B-PSSKT(01)'
                                             '          10.71'.
perform bdc_field       using 'DF05B-PSSKT(02)'
                                             '           6.75'.
perform bdc_dynpro      using 'SAPDF05X' '3100'.

perform bdc_field       using 'BDC_OKCODE'
                                             '=BS'.
perform bdc_field       using 'BDC_CURSOR'
                                            'DF05B-PSSKT(01)'.

perform bdc_field       using 'RF05A-ABPOS'
                                             '1'.
perform bdc_dynpro      using 'SAPMF05A' '0700'.
perform bdc_field       using 'BDC_CURSOR'
                                            'RF05A-NEWBS'.
perform bdc_field       using 'BDC_OKCODE'
                                             '=BU'.
perform bdc_field       using 'BKPF-XBLNR'
                                             'TEST11001'.
perform bdc_transaction using 'F-28'.
perform close_group.