Scribd Logo
Upload

Welcome to Scribd!

  • 181 views

    Zcustomer Link Check Report

    Uploaded by

    nstomar
    This document defines a report that checks for links between customer records in different tables and identifies records to delete. It opens a cursor to retrieve partner and customer IDs from one table. It then searches two other tables to see if the records still exist, and flags any for deletion that are not found. Based on a test mode parameter, it will either delete the flagged records or just output them to the user.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd

    Zcustomer Link Check Report

    Uploaded by

    nstomar
    181 views3 pages
    This document defines a report that checks for links between customer records in different tables and identifies records to delete. It opens a cursor to retrieve partner and customer IDs from one table. It then searches two other tables to see if the records still exist, and flags any for deletion that are not found. Based on a test mode parameter, it will either delete the flagged records or just output them to the user.

    Original Title

    ZCUSTOMER_LINK_CHECK_REPORT

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document defines a report that checks for links between customer records in different tables and identifies records to delete. It opens a cursor to retrieve partner and customer IDs from one table. It then searches two other tables to see if the records still exist, and flags any for deletion that are not found. Based on a test mode parameter, it will either delete the flagged records or just output them to the user.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    181 views3 pages

    Zcustomer Link Check Report

    Uploaded by

    nstomar
    This document defines a report that checks for links between customer records in different tables and identifies records to delete. It opens a cursor to retrieve partner and customer IDs from one table. It then searches two other tables to see if the records still exist, and flags any for deletion that are not found. Based on a test mode parameter, it will either delete the flagged records or just output them to the user.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    of 3

    *&---------------------------------------------------------------------*

    *& Report ZCUSTOMER_LINK_CHECK_REPORT


    *&
    *&---------------------------------------------------------------------*
    *&
    *&
    *&---------------------------------------------------------------------*
    REPORT ZCUSTOMER_LINK_CHECK_REPORT.
    * Local type
    types: begin of lty_bp_customer_ids,
    partner_guid type bu_partner_guid,
    customer type kunnr,
    del_flag type boole-boole,
    end of lty_bp_customer_ids.

    * Local data declarations


    DATA:
    lv_msg type char255,
    * lv_kunnr type kna1-kunnr,
    lv_dbcnt type char10,
    * lv_partner_guid type but000-partner_guid,
    db_customer type cursor,
    ls_bp_customer_ids type lty_bp_customer_ids,
    lt_bp_customer_ids type table of lty_bp_customer_ids,
    ls_entries_to_delete like cvi_cust_link,
    lt_entries_to_delete like table of ls_entries_to_delete.

    TYPES: BEGIN OF ty_but000,


    partner_guid TYPE bu_partner_guid,
    END OF ty_but000.

    DATA : lt_but000 TYPE STANDARD TABLE OF ty_but000.

    TYPES: BEGIN OF ty_kna1,


    kunnr TYPE kunnr,
    END OF ty_kna1.

    DATA : lt_kna1 TYPE STANDARD TABLE OF ty_kna1.

    CONSTANTS: lc_x type boole-boole VALUE 'X',


    lc_pkg_size type char5 VALUE '10000'.

    PARAMETERS TESTMODE TYPE boole_d AS CHECKBOX DEFAULT 'X'.

    CLEAR: lv_msg,
    lv_dbcnt,
    ls_bp_customer_ids,
    ls_entries_to_delete.

    REFRESH lt_entries_to_delete.

    OPEN CURSOR db_customer FOR


    select PARTNER_GUID CUSTOMER from cvi_cust_link.

    DO.
    CLEAR ls_bp_customer_ids.
    REFRESH lt_bp_customer_ids.
    REFRESH lt_but000.
    REFRESH lt_kna1.
    FETCH NEXT CURSOR db_customer INTO CORRESPONDING FIELDS OF TABLE
    lt_bp_customer_ids
    PACKAGE SIZE lc_pkg_size.
    IF sy-subrc <> 0.
    EXIT.
    ELSE.
    SELECT partner_guid FROM but000 INTO TABLE lt_but000 FOR ALL ENTRIES IN
    lt_bp_customer_ids WHERE partner_guid = lt_bp_customer_ids-partner_guid.
    SORT lt_but000 BY partner_guid.

    SELECT kunnr FROM kna1 INTO TABLE lt_kna1 FOR ALL ENTRIES IN
    lt_bp_customer_ids WHERE kunnr = lt_bp_customer_ids-customer.
    SORT lt_kna1 BY kunnr.

    LOOP AT lt_bp_customer_ids INTO ls_bp_customer_ids.


    * clear lv_partner_guid.
    * select single partner_guid FROM but000
    * INTO lv_partner_guid
    * WHERE partner_guid = ls_bp_customer_ids-
    partner_guid.
    READ TABLE lt_but000 WITH KEY partner_guid = ls_bp_customer_ids-
    partner_guid TRANSPORTING NO FIELDS BINARY SEARCH.

    IF sy-subrc <> 0.
    ls_bp_customer_ids-del_flag = lc_x.
    ELSE.
    * clear lv_kunnr.
    * select single kunnr FROM kna1
    * INTO lv_kunnr
    * WHERE kunnr = ls_bp_customer_ids-customer.
    READ TABLE lt_kna1 WITH KEY kunnr = ls_bp_customer_ids-customer
    TRANSPORTING NO FIELDS BINARY SEARCH.

    IF sy-subrc <> 0.
    ls_bp_customer_ids-del_flag = lc_x.
    ENDIF.
    ENDIF.
    IF ls_bp_customer_ids-del_flag = lc_x.
    CLEAR ls_entries_to_delete.
    ls_entries_to_delete-partner_guid = ls_bp_customer_ids-partner_guid.
    ls_entries_to_delete-customer = ls_bp_customer_ids-customer.
    APPEND ls_entries_to_delete TO lt_entries_to_delete.
    ENDIF.
    ENDLOOP.
    ENDIF.
    ENDDO.

    CLOSE CURSOR db_customer.

    IF TESTMODE is INITIAL.
    IF lt_entries_to_delete IS NOT INITIAL.
    DELETE cvi_cust_link FROM TABLE lt_entries_to_delete.
    WRITE : 'Non Test Run Mode'.
    lv_dbcnt = sy-dbcnt.
    lv_msg = text-002.
    CONCATENATE lv_msg text-003 INTO lv_msg SEPARATED BY space.
    CONCATENATE lv_msg lv_dbcnt INTO lv_msg SEPARATED BY space.
    COMMIT WORK.
    WRITE text-005.
    NEW-LINE.
    ULINE.
    WRITE : 'Business partner GUID'.
    WRITE :36 'Customer Number'.

    LOOP AT lt_entries_to_delete into ls_entries_to_delete.


    NEW-LINE.
    WRITE: ls_entries_to_delete-partner_guid, space, ls_entries_to_delete-
    customer.
    CLEAR: ls_entries_to_delete.
    ENDLOOP.
    ELSE.
    lv_msg = text-001.
    ENDIF.
    WRITE lv_msg.
    ELSE.
    IF lt_entries_to_delete IS NOT INITIAL.
    WRITE : 'Test Run Mode'.
    WRITE text-004.
    NEW-LINE.
    ULINE.
    WRITE : 'Business partner GUID'.
    WRITE :36 'Customer Number'.

    LOOP AT lt_entries_to_delete into ls_entries_to_delete.


    NEW-LINE.
    WRITE: ls_entries_to_delete-partner_guid, space, ls_entries_to_delete-
    customer.
    CLEAR: ls_entries_to_delete.
    ENDLOOP.
    ENDIF.
    ENDIF.

    You might also like