Hi Venkatesh,
Here is the code.
DATA : ls_ddddlsrcv TYPE DDDDLSRCV,
lt_DDDLSRCV TYPE TABLE OF DDDDLSRCV,
lv_ddl_source(40) TYPE c VALUE 'ZCDS_999'.
ls_ddddlsrcv-ddtext = 'Test CDS View'.
ls_ddddlsrcv-ddlanguage = sy-langu.
ls_ddddlsrcv-ddlname = lv_ddl_source.
ls_ddddlsrcv-source = '@AbapCatalog.sqlViewName: ''ZCDS_999''##define view zsp_CDS_999 as##select from sflight as soi##{## soi.connid as so_connid,## soi.fldate as so_fldate,## soi.price as so_price##}'.
DATA(lref_dd_ddl_handler) = cl_dd_ddl_handler_factory=>create( ).
DATA : lv_putstate TYPE OBJSTATE VALUE 'N',
name TYPE DDLNAME VALUE 'zsp_CDS_999'.
TRY.
CALL METHOD lref_dd_ddl_handler->save
EXPORTING
name = lv_ddl_source
put_state = lv_putstate
ddddlsrcv_wa = ls_ddddlsrcv"ls_ddddlsrcv
* prid = -1
.
CATCH cx_dd_ddl_save .
ENDTRY.
TRY.
CALL METHOD lref_dd_ddl_handler->activate
EXPORTING
name = lv_ddl_source
* prid = -1
.
CATCH cx_dd_ddl_activate .
ENDTRY.
Regards,
Siva R