How to delete the records with routine Z_AFRP4_DELETE as note [418584|

[former_member245085]

Hello Gurus,

I don't want to transfer data into HR and want to delete the records in table AFRP4 to business complete the Maintenance Orders

Component version- EHP7 for SAP ERP 6.0

Component-EA-APPL

Release-617

how can I delete these records

Thanks fro Help

AM

[former_member245085 · Accepted solution]

Hello All,

I found the solution, I copied the code in correction instruction number 0000282352 and create the report as programme  Z_AFRP4_DELETEand the executed

*$*$----------------------------------------------------------------$*$*
*$ Correction Inst.         0120061532 0000282352                     $*
*$--------------------------------------------------------------------$*
*$ Valid for       :                                                  $*
*$ Software Component   SAP_APPL   SAP Application                    $*
*$  Release 40B          All Support Package Levels                   $*
*$  Release 45B          All Support Package Levels                   $*
*$  Release 46B          All Support Package Levels                   $*
*$  Release 46C          All Support Package Levels                   $*
*$  Release 470          All Support Package Levels                   $*
*$  Release 500          All Support Package Levels                   $*
*$  Release 600          All Support Package Levels                   $*
*$  Release 602          All Support Package Levels                   $*
*$  Release 603          All Support Package Levels                   $*
*$  Release 604          All Support Package Levels                   $*
*$  Release 605          All Support Package Levels                   $*
*$  Release 606          All Support Package Levels                   $*
*$--------------------------------------------------------------------$*
*$ Changes/Objects Not Contained in Standard SAP System               $*
*$*$----------------------------------------------------------------$*$*
*&--------------------------------------------------------------------*
*& Object          REPS Z_AFRP4_DELETE
*& Object Header   PROG Z_AFRP4_DELETE
*&--------------------------------------------------------------------*
*& REPORT Z_AFRP4_DELETE
*&--------------------------------------------------------------------*
...
REPORT  Z_AFRP4_DELETE .

************************************************************************
* This report deletes confirmation records from table AFRP4 that are
* not longer needed. Run it without update flag first !!
************************************************************************

   tables: afrp4.

   data: lt_afrp4 like afrp4 occurs 0,
         ls_afrp4 like afrp4.

   selection-screen begin of block order with frame.
   select-options: zorders for afrp4-aufnr.   "order number
   selection-screen end   of block order.

   parameters: update as checkbox.

   select * from afrp4 into table lt_afrp4
                where aufnr in zorders.
   if lt_afrp4[] is initial.
     format color col_normal.
     write: 'No HR confirmation background records read.'.
     exit.
   endif.

   format color col_heading.
   write: /5 'Order', 25 'Confirmation', 45 'Counter'.
   skip.  uline.  skip.
* show corrections
   loop at lt_afrp4 into ls_afrp4.
     format color col_normal.
     write: /5 ls_afrp4-aufnr, 25 ls_afrp4-rueck, 45 ls_afrp4-rmzhl.
   endloop.
* update on data base table
   if not update is initial.
     skip.  uline.  skip.
     delete afrp4 from table lt_afrp4.
     if sy-subrc is initial.
       format color col_positive.
       write: 'HR-records deleted successfull'.
     else.
       format color col_negative.
       write: 'Error when trying to update data base table AFRP4.'.
     endif.
   endif.

...
*&--------------------------------------------------------------------*