SAP CVI Business Partner Gap Report ABAP Generator

REPORT ZCVI_GAP_CHECK.

DATA lv_ktokd TYPE kna1-ktokd.
SELECT-OPTIONS s_ktokd FOR lv_ktokd.

START-OF-SELECTION.
  SELECT a~kunnr, a~name1, a~ktokd, a~land1
    FROM kna1 AS a
    LEFT OUTER JOIN cvi_cust_link AS l ON l~customer = a~kunnr
    WHERE l~customer IS NULL
      AND a~ktokd IN @s_ktokd
    INTO TABLE @DATA(lt_cust)
    UP TO 5000 ROWS.

  WRITE: / 'Customers without BP link:', lines( lt_cust ).
  LOOP AT lt_cust INTO DATA(ls_cust).
    WRITE: / ls_cust-kunnr, ls_cust-ktokd, ls_cust-land1, ls_cust-name1.
  ENDLOOP.

* Add this block to the same report, after the customer loop.
  SELECT a~lifnr, a~name1, a~ktokk, a~land1
    FROM lfa1 AS a
    LEFT OUTER JOIN cvi_vend_link AS l ON l~vendor = a~lifnr
    WHERE l~vendor IS NULL
    INTO TABLE @DATA(lt_vend)
    UP TO 5000 ROWS.

  WRITE: / 'Vendors without BP link:', lines( lt_vend ).
  LOOP AT lt_vend INTO DATA(ls_vend).
    WRITE: / ls_vend-lifnr, ls_vend-ktokk, ls_vend-land1, ls_vend-name1.
  ENDLOOP.

* Candidates for a single Business Partner with both roles.
* Compare on tax number or on the vendor field KUNNR in LFA1.
  SELECT l~lifnr, l~kunnr, l~name1
    FROM lfa1 AS l
    WHERE l~kunnr <> @space
    INTO TABLE @DATA(lt_both)
    UP TO 5000 ROWS.

  WRITE: / 'Vendors that reference a customer:', lines( lt_both ).