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.
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.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/424245/viewspace-607259/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/424245/viewspace-607259/