Calling method of a custom infotype from ABAP

Question

Hi Experts,
I am working on an application where i need to call a method of a custom defined infotype.
I have done this -->
1. Create a custom infotype 9111
2. SAP creates a class of that infotype ZCL_HRPA_INFOTYPE_9111
3. Inside this method there are few inherited method which provide me functionality of insert , update , delete
i want to call methods IF_HRPA_INFTY_BL~MODIFY,
IF_HRPA_INFTY_BL~INSERT
However when i call these method from abap report this method does not work.
where as when i try to insert an entry using PA30 transaction it works.
Does anyone know why does this happen and what is the solution?
Regards,
Ashish Shah

Answer 1

Had the same problem (probably copied from the same program). The answer is that you need to commit the work at the end using something like
* Commit
CALL METHOD busilog->flush
  EXPORTING
    no_commit = space.
Here is an example of my code for IT0002 which works.
*& Report  Z_TEST2
REPORT  z_test2.
DATA: a_masterdata_bl TYPE REF TO if_hrpa_masterdata_bl,
      p0002         TYPE p0002,
      lo_0002 TYPE REF TO cl_hrpa_infotype_0002,
      ls_p0002_ref TYPE REF TO data,
      container_tab    TYPE hrpad_infty_container_tab,
      container  TYPE REF TO if_hrpa_infty_container,
      message_handler TYPE REF TO cl_hrpa_message_list,
      infotype_logic TYPE REF TO if_hrpa_infty_bl,
      update_mode TYPE hrpad_update_mode VALUE 'XXX',
      lt_0002_container TYPE REF TO cl_hrpa_infotype_container,
      key TYPE pskey,
      l_is_ok          TYPE boole_d.
FIELD-SYMBOLS <p0002> TYPE p0002.
* get business logic from masterdata factory
CALL METHOD cl_hrpa_masterdata_factory=>get_business_logic
  IMPORTING
    business_logic = a_masterdata_bl.
* CATCH cx_hrpa_violated_assertion .
*ENDTRY.
*TRY.
CALL METHOD a_masterdata_bl->read
  EXPORTING
    tclas           = 'A'
    pernr           = '508'
    infty           = '0002'
    begda           = sy-datum
    endda           = sy-datum
    no_auth_check   = 'X'
    message_handler = message_handler
  IMPORTING
    container_tab   = container_tab
    is_ok           = l_is_ok
* CATCH cx_hrpa_violated_assertion .
*ENDTRY.
READ TABLE container_tab INTO container INDEX 1.
lt_0002_container ?= container.
TRY.
    CALL METHOD lt_0002_container->primary_record_ref
      IMPORTING
        pnnnn_ref = ls_p0002_ref.
  CATCH cx_hrpa_violated_assertion.
ENDTRY.
ASSIGN ls_p0002_ref->* TO <p0002>.
MOVE-CORRESPONDING <p0002> TO key.
break stantric.
<p0002>-vorna = 'Rick'.
container ?= lt_0002_container->modify_primary_record( <p0002> ).
TRY.
    CREATE OBJECT lo_0002
      EXPORTING
        tclas = 'A'
        infty = '0002'.
  CATCH cx_hrpa_violated_assertion .
ENDTRY.
CREATE OBJECT message_handler.
TRY.
    CALL METHOD lo_0002->get_specific_bl
      EXPORTING
        versionid      = '01'
        tclas          = 'A'
        pskey          = key
      IMPORTING
        infotype_logic = infotype_logic.
  CATCH cx_hrpa_violated_assertion .
ENDTRY.
TRY.
    CALL METHOD infotype_logic->modify
      EXPORTING
        old_container   = lt_0002_container
        massn           = space
        massg           = space
        update_mode     = update_mode
        no_auth_check   = 'X'
        message_handler = message_handler
      IMPORTING
        is_ok           = l_is_ok
      CHANGING
        container       = container.
  CATCH cx_hrpa_violated_assertion .
ENDTRY.
* Commit
CALL METHOD a_masterdata_bl->flush
  EXPORTING
    no_commit = space.