REPORT ZLEAD_SQL.
TYPES:
BEGIN OF lty_s_objnr,
objnr TYPE crmt_object_guid,
END OF lty_s_objnr.
INCLUDE: crm_status_con.
DATA: lv_max_hits TYPE i,
lv_langu TYPE sy-langu,
lv_cursor TYPE cursor,
lt_package_data TYPE crmt_odata_lead_campaignt,
ls_package_data TYPE crmt_odata_lead_campaign,
lt_objnr TYPE STANDARD TABLE OF lty_s_objnr,
ls_objnr TYPE lty_s_objnr,
lv_package_size TYPE i,
it_select_option TYPE /IWBEP/T_COD_SELECT_OPTIONS,
et_campaigns TYPE CRMT_ODATA_LEAD_CAMPAIGNT.
lv_max_hits = 900.
lv_package_size = lv_max_hits.
lv_langu = sy-langu.
SELECT crm_jest~objnr
INTO TABLE lt_objnr
FROM crm_jest
INNER JOIN crm_jsto ON crm_jest~objnr = crm_jsto~objnr
WHERE crm_jest~inact = space
AND crm_jest~stat = gc_status-released. " 'I1004'.
SORT lt_objnr.
OPEN CURSOR WITH HOLD @lv_cursor FOR
SELECT DISTINCT header~guid,
external_id,
text1,
header~object_type
FROM cgpl_project AS header
INNER JOIN crm_mktpl_attr ON header~guid = crm_mktpl_attr~guid
LEFT OUTER JOIN cgpl_text ON header~guid = cgpl_text~guid
AND cgpl_text~langu = @lv_langu
WHERE ( header~external_id IN @it_select_option
OR textu IN @it_select_option )
AND header~object_type = 'CPG'
AND crm_mktpl_attr~template = @space
UNION
SELECT DISTINCT header~guid,
external_id,
text1,
header~object_type
FROM cgpl_task AS header
INNER JOIN crm_mktpl_attr ON header~guid = crm_mktpl_attr~guid
LEFT OUTER JOIN cgpl_text ON header~guid = cgpl_text~guid
AND cgpl_text~langu = @lv_langu
WHERE ( header~external_id IN @it_select_option
OR textu IN @it_select_option )
AND header~object_type = 'CPT'
AND crm_mktpl_attr~template = @space
ORDER BY text1.
DO.
FETCH NEXT CURSOR @lv_cursor
INTO TABLE @lt_package_data
PACKAGE SIZE @lv_package_size.
IF sy-subrc = 0.
LOOP AT lt_package_data INTO ls_package_data.
READ TABLE lt_objnr TRANSPORTING NO FIELDS
WITH KEY objnr = ls_package_data-guid
BINARY SEARCH.
IF sy-subrc <> 0.
DELETE lt_package_data.
ENDIF.
ENDLOOP.
APPEND LINES OF lt_package_data TO et_campaigns.
IF lines( et_campaigns ) >= lv_max_hits.
EXIT.
ELSE.
lv_package_size = lv_max_hits - lines( et_campaigns ).
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE CURSOR @lv_cursor.
WRITE:/ 'Total numbers of leads read: ', lines( et_campaigns ).
```
