Any FM to delimit record of infotype 1017 ?

Question

Hi Experts.
I want to delimit the record of infotype 1017 so is there any function module to do so?
I can do that using BDC but the problem is that I want to delimit a particular "PD Profile" which is not getting feasible using BDC.
Thanks in Advance

Answer 1

Hi ,
since the infotype 1017 is an Organization Management infotypes you need to use the RH_*  standard function modules.
To delimit the infotype without a BDC program you have to can use the following sequence:
1) move the IT 1017 row to delimit into a wor area of type P1017.
2) append the work area of point 1 into a table of type P1017.
3) Call the FM RH_DELETE_INFTYPE using the table of point 2 as parameter.
4) modify the end date of the local work area in point 1)
5) repeat the step 2 using an empty internal table
6) Call the FM  RH_INSERT_INFTY using the table of point 5 as parameter.
7) Call the RH_UPDATE_DATABASE.
example
DATA: lt_p1017 TYPE TABLE OF p1017, 
                     lw_p1017 type p1017.
             * move your data into lw_p1017  
           APPEND lw_p1017  TO lt_p1017.
        CALL FUNCTION 'RH_DELETE_INFTY'
               EXPORTING
          *   LOAD                      = 'X'
              vtask                        = 'B'
          *   ORDER_FLG                 = 'X'
          *   COMMIT_FLG                = 'X'
         *   AUTHY                            = 'X'
         *   PPPAR_IMP                 =
        *   KEEP_LUPD                 =
         *   WORKF_ACTV             = 'X'
          TABLES
           innnn                         = lt_p1017
     *   ILFCODE                     =
         EXCEPTIONS              
           error_during_delete       = 1
           no_authorization          = 2
           delete_first_record       = 3
           corr_exit                 = 4
        OTHERS                    = 5.
IF sy-subrc <> 0.
   * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ELSE.
hope it's helpfull,
best regards luigi
Edited by: luigi la motta on May 24, 2010 3:50 PM