FM to Read the cost plan for CJR2

L_T_PERVALUE   TYPE G_TY_BAPIACIVAL  ,

 CALL FUNCTION 'BAPI_COSTACTPLN_READACTINPUT'
        EXPORTING
          HEADERINFO     = L_R_HEADER
        TABLES
          INDEXSTRUCTURE = L_T_INDEXSTR
          COOBJECT       = L_T_COOBJECT
          PERVALUE       = L_T_PERVALUE
          RETURN         = P_G_T_RETURN.


Read the values based on the activity types

 READ TABLE L_T_PERVALUE INTO L_R_PERVALUE
                        WITH  KEY SEND_ACTIVITY = 'H1'.
      IF  SY-SUBRC = 0.
        PERFORM FILL_INPUT_TABLE USING L_R_PERVALUE
                                       P_COEP_MEINB
                                        G_R_INPUT.

        APPEND  G_R_INPUT TO  P_L_T_INPUT.
        CLEAR G_R_INPUT.
      ENDIF.
      CLEAR L_R_PERVALUE.