perform. open_group.
do 11 times. "删除11条记录"
perform. bdc_dynpro using 'SAPMH5A0' '5100'.
perform. bdc_field using 'PPHDR-PLVAR' '01'.
perform. bdc_field using 'PM0D1-SEARK' '10065000'.
perform. bdc_field using 'PPHDR-BEGDA' '20090101'.
perform. bdc_field using 'PPHDR-ENDDA' '9999-12-31'.
perform. bdc_field using 'BDC_CURSOR' 'TT_T777T-ITEXT(04)'.
perform. bdc_field using 'MARKFELD(04)' 'X'.
*perform. bdc_dynpro using 'SAPMH5A0' '5100'.
perform. bdc_field using 'BDC_OKCODE' '/00'.
perform. bdc_dynpro using 'SAPMH5A0' '5100'.
perform. bdc_field using 'BDC_OKCODE' '=DEL'.
perform. bdc_field using 'BDC_CURSOR' 'TT_T777T-ITEXT(04)'.
perform. bdc_field using 'MARKFELD(04)' 'X'.
perform. bdc_field using 'PPHDR-BEGDA' '20090101'.
perform. bdc_field using 'PPHDR-ENDDA' '9999-12-31'.
perform. bdc_dynpro using 'MP912000' '2000'.
perform. bdc_field using 'BDC_CURSOR' 'PPHDX-OTYPE_TEXT'.
perform. bdc_field using 'BDC_OKCODE' '=DEL'.
perform. bdc_dynpro using 'SAPMH5A0' '5100'.
perform. bdc_field using 'BDC_OKCODE' '/EBAC'.
perform. bdc_transaction using 'PO10'. enddo.
perform. close_group.