Cost planning CJ9ECP using BDC

As there is no save button found with cj20n tcode

SET PARAMETER ID 'PRO' FIELD  Project Def   “(PRO - WBS)
    SET PARAMETER ID 'KRT' FIELD 'PS06'.
    SET PARAMETER ID 'PSP' FIELD ''.
DATA OPT TYPE CTU_PARAMS.
  OPT-DISMODE = G_C_E. "Display errors
  OPT-DEFSIZE = G_C_X. "Default screen size

  CLEAR L_S_BDCDATA.
  L_S_BDCDATA-PROGRAM  = 'RECP_PS'.
  L_S_BDCDATA-DYNPRO   = '0100'.
  L_S_BDCDATA-DYNBEGIN = G_C_X.
  APPEND L_S_BDCDATA TO L_T_BDCDATA.

  CLEAR L_S_BDCDATA.
  L_S_BDCDATA-FNAM = 'BDC_OKCODE'.
  L_S_BDCDATA-FVAL = '/EUCCOST'.
  APPEND L_S_BDCDATA TO L_T_BDCDATA.
  CLEAR L_S_BDCDATA.

  CLEAR L_S_BDCDATA.
  L_S_BDCDATA-PROGRAM  = 'SAPLCK_ECP_GUI'.
  L_S_BDCDATA-DYNPRO   = '0300'.
  L_S_BDCDATA-DYNBEGIN = G_C_X.
  APPEND L_S_BDCDATA TO L_T_BDCDATA.

  CLEAR L_S_BDCDATA.
  L_S_BDCDATA-FNAM = 'BDC_OKCODE'.
  L_S_BDCDATA-FVAL = '=SELECT'.
  APPEND L_S_BDCDATA TO L_T_BDCDATA.
  CLEAR L_S_BDCDATA.

*Easy cost Plan Tcode CJ9ECP
  CALL TRANSACTION 'CJ9ECP' USING L_T_BDCDATA OPTIONS FROM OPT MESSAGES INTO L_T_MESSAGE.
  READ TABLE L_T_MESSAGE WITH KEY MSGTYP = G_C_I TRANSPORTING NO FIELDS.
  IF SY-SUBRC  = 0.
    MESSAGE I082(KPN) .
Endif

For more information

Easy cost plan CJ9ECP

go to change easy cost plan