FB1S batch input

WRITE i_augdt TO lv_fval DD/MM/YYYY.

PERFORM bdc_dynpro USING 'SAPMF05A' '0131'.
PERFORM bdc_field USING:
'RF05A-AGKON' i_hkont,
'BKPF-BUDAT' lv_fval,
'BKPF-BUKRS' i_bukrs,
'BKPF-WAERS' i_waers,
'RF05A-XPOS1(03)' 'X',
'BDC_OKCODE' '=SLB'.

LOOP AT it_belnr ASSIGNING .

CONCATENATE i_augdt(4)
INTO lv_fval.

PERFORM bdc_dynpro USING 'SAPMF05A' '0733'.
PERFORM bdc_field USING:
'RF05A-FELDN(01)' 'BELNR',
'RF05A-SEL01(01)' lv_fval,
'BDC_OKCODE' '/00'.

ENDLOOP.

PERFORM bdc_dynpro USING 'SAPMF05A' '0733'.
PERFORM bdc_field USING 'BDC_OKCODE' '=PA'.

PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=OMX'.

PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=Z+'.

PERFORM bdc_dynpro USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.

PERFORM bdc_transaction USING 'FB1S'.