Cost center assignment for Org Unit

PPO1 à cost center for org unit 

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.

FM for F4 help for dialog program

1. This f4 help for customer based on some logic

PROCESS BEFORE OUTPUT.

PROCESS AFTER INPUT.

PROCESS ON VALUE-REQUEST.
 FIELD: g_tab-KUNNR MODULE f4_kunnr. "Customer
Types :
*Cutomer details
BEGIN OF ty_kunnr,
  kunnr TYPE kunnr,
  name2 TYPE char20,
  name3 TYPE char20,
END OF ty_kunnr,

Data:
  g_t_kunnr             TYPE  STANDARD TABLE OF ty_kunnr,
  REFRESH  g_t_kunnr.
  SELECT a~KUNN2"Customer number of business partner
         b~NAME2"Customer department
         B~NAME3"Contracting Party
     from KNVP as a
      INNER JOIN kna1 as b
    on a~kunn2 = b~kunnr
    INTO TABLE g_t_kunnr
      WHERE VKORG like '100%'
        and PARVW = 'RE'."Bill to party
  IF sy-subrc = 0.
    SORT g_t_kunnr  by kunnr.
  ENDIF.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield         = 'KUNNR'"Field from Table g_t_kunnr
      dynpprog         = sy-repid
      dynpnr           = sy-dynnr
      DYNPROFIELD      = 'KUNNR' “Screen field for the dilog program 
      value_org        = g_c_s
      callback_program = sy-repid
      callback_form    = space
    TABLES
      value_tab        = g_t_kunnr “Any type of table 
      return_tab       = g_t_return_val
    EXCEPTIONS
      parameter_error  = 1
      no_values_found  = 2
      OTHERS           = 3.

Table control in dialog program

Table control in dialog program using internal table