Delete Payroll Results in Bulk.

Question

HI
I want to delete Bulk payroll results in Production system say for 1000 employees .
I tried to create BDC/ LSMW but, iam not able to create BDC /LSMW for T-code PU01- Delete Payroll Results.
Nor iam able to use Program RPUDEL20 in Production server.
Experts plz advice any other Alternative solution.
Rgds,
Sekar,

Answer 1

Hi
You can copy this Z program to delete payroll result.
This program will delete the payroll result by just giving employee number / perner in the input file.
Regards
Mani
*******************************************Program Code **********************************************
         REPORT zhr_pydel
       NO STANDARD PAGE HEADING LINE-SIZE 255.
*include bdcrecx1.
                           INTERNAL TABLES                           *
DATA : BEGIN OF itab OCCURS 0,
        pernr TYPE rp50g-pernr,  " Personal No.
       END OF itab.
DATA: l_subrc LIKE sy-subrc.
DATA : messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA : bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.
DATA : ctumode LIKE ctu_params-dismode VALUE 'N'.
                                    "A: show all dynpros
                                    "E: show dynpro on error only
                                    "N: do not display dynpro
DATA : cupdate LIKE ctu_params-updmode VALUE 'S'.
                           SELECTION SCREENS                         *
PARAMETERS:fname TYPE rlgrap-filename OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR fname.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
  PROGRAM_NAME        = SYST-REPID
  DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
  STATIC              = ' '
  MASK                = ' '
    CHANGING
      file_name           = fname
   EXCEPTIONS
     mask_too_long       = 1
     OTHERS              = 2
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL FUNCTION 'UPLOAD'
   EXPORTING
  CODEPAGE                      = ' '
     filename                      = fname
     filetype                      = 'DAT'
  ITEM                          = ' '
  FILEMASK_MASK                 = ' '
  FILEMASK_TEXT                 = ' '
  FILETYPE_NO_CHANGE            = ' '
  FILEMASK_ALL                  = ' '
  FILETYPE_NO_SHOW              = ' '
  LINE_EXIT                     = ' '
  USER_FORM                     = ' '
  USER_PROG                     = ' '
  SILENT                        = 'S'
IMPORTING
  FILESIZE                      =
  CANCEL                        =
  ACT_FILENAME                  =
  ACT_FILETYPE                  =
    TABLES
      data_tab                      = itab
EXCEPTIONS
  CONVERSION_ERROR              = 1
  INVALID_TABLE_WIDTH           = 2
  INVALID_TYPE                  = 3
  NO_BATCH                      = 4
  UNKNOWN_ERROR                 = 5
  GUI_REFUSE_FILETRANSFER       = 6
  OTHERS                        = 7
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
START-OF-SELECTION.
*perform open_group.
  LOOP AT itab.
    PERFORM bdc_dynpro      USING 'RPCDPU01' '1000'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RP50G-PERNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RP50G-PERNR'
                                   itab-pernr.              "'2019'.
    PERFORM bdc_dynpro      USING 'RPCDPU01' '1000'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RP50G-PERNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=STAR'.
    PERFORM bdc_field       USING 'RP50G-PERNR'
                                  itab-pernr.               "'2019'.
    PERFORM bdc_dynpro      USING 'SAPMSSY0' '0120'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=DELE'.
    PERFORM bdc_dynpro      USING 'SAPLSPO1' '0300'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=YES'.
    PERFORM bdc_dynpro      USING 'SAPLSPO1' '0300'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=YES'.
    PERFORM bdc_transaction USING 'PU01'.
    CLEAR itab.
  ENDLOOP.
*perform close_group.
*&      Form  bdc_dynpro
      text
     -->P_0118   text
     -->P_0119   text
FORM bdc_dynpro USING  program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.                    " bdc_dynpro
*&      Form  bdc_field
      text
     -->P_0128   text
     -->P_0129   text
FORM bdc_field USING  fnam fval.
  DATA : nodata VALUE ' '.          "nodata
  IF fval <> nodata.
    CLEAR bdcdata.
    bdcdata-fnam = fnam.
    bdcdata-fval = fval.
    APPEND bdcdata.
  ENDIF.
ENDFORM.                    " bdc_field
*&      Form  bdc_transaction
      text
     -->P_0188   text
FORM bdc_transaction USING  tcode.
  REFRESH messtab.
  CALL TRANSACTION tcode USING bdcdata
                   MODE   ctumode
                   UPDATE cupdate
                   MESSAGES INTO messtab.
  l_subrc = sy-subrc.
  REFRESH bdcdata.
ENDFORM.                    " bdc_transaction