Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Change of email in customer master

Former Member
0 Kudos

I want to make all the email address for customer in customer master as blank.I am using an bapi sd_customer_maintain_all to make email blank.While running the report it returns with error message for sy-subrc as 22 for camerror any idea what exactly it all about.

REPORT zvr000_stlcustomer_emailchange.

TABLES: kna1,adr6.

TYPES: BEGIN OF addr,

addrnumber TYPE adr6-addrnumber,

smtp_addr TYPE adr6-smtp_addr,

persnumber TYPE adr6-persnumber,

END OF addr,

BEGIN OF cust,

kunnr TYPE kna1-kunnr,

land1 TYPE land1_gp,

adrnr TYPE kna1-adrnr,

smtp_addr TYPE adr6-smtp_addr,

END OF cust.

data lv_charr type c value 50.

data lv_kna1 type kna1.

data lv_kna2 type kna1-kunnr.

DATA: git_adr11 TYPE STANDARD TABLE OF addr,

gwa_addrr2 LIKE LINE OF git_adr11.

DATA: git_kna11 TYPE STANDARD TABLE OF cust,

gwa_addondata type cust_add_on_data,

gwa_kna1 LIKE LINE OF git_kna11.

data gwa_addr type bapiaddr1.

data gwa_addr2 type bapiaddr2.

select-OPTIONS: s_kunnr FOR kna1-kunnr.

*----


Select the customers and address# from kna1

SELECT kunnr land1 adrnr FROM kna1 INTO TABLE git_kna11

WHERE kunnr IN s_kunnr.

IF git_kna11 IS NOT INITIAL.

LOOP AT git_kna11 INTO gwa_kna1.

lv_kna1-kunnr = gwa_kna1-kunnr.

gwa_addr-e_mail = ''.

gwa_addr2-e_mail = ''.

gwa_addondata-changed = 'X'.

gwa_addondata-kunnr = gwa_kna1-kunnr.

gwa_addr-addr_no = gwa_kna1-adrnr.

gwa_addr2-addr_no = gwa_kna1-adrnr.

lv_kna1-land1 = gwa_kna1-land1.

lv_kna1-adrnr = gwa_kna1-adrnr.

CALL FUNCTION 'SD_CUSTOMER_MAINTAIN_ALL'

EXPORTING

i_kna1 = lv_kna1

i_bapiaddr1 = gwa_addr

i_bapiaddr2 = gwa_addr2

i_customer_is_consumer = 'X'

pi_postflag = 'X'

pi_cam_changed = 'X'

pi_add_on_data = gwa_addondata

IMPORTING

e_kunnr = lv_kna2

  • o_kna1 = kna1

  • TABLES

EXCEPTIONS

client_error = 1

kna1_incomplete = 2

knb1_incomplete = 3

knb5_incomplete = 4

knvv_incomplete = 5

kunnr_not_unique = 6

sales_area_not_unique = 7

sales_area_not_valid = 8

insert_update_conflict = 9

number_assignment_error = 10

number_not_in_range = 11

number_range_not_extern = 12

number_range_not_intern = 13

account_group_not_valid = 14

parnr_invalid = 15

bank_address_invalid = 16

tax_data_not_valid = 17

no_authority = 18

company_code_not_unique = 19

dunning_data_not_valid = 20

knb1_reference_invalid = 21

cam_error = 22

OTHERS = 23.

.

if sy-subrc = 0.

concatenate 'Following' gwa_kna1-kunnr 'have been changed to blank' into lv_charr separated by space.

write 😕 lv_charr.

endif.

ENDLOOP.

ENDIF.

1 ACCEPTED SOLUTION

former_member156446
Active Contributor
0 Kudos

Check if this OSS Note number 725938 makes any difference.

[Sd_customer_maintain_all|http://www.mundosap.com/foro/showthread.php?t=15410]

1 REPLY 1

former_member156446
Active Contributor
0 Kudos

Check if this OSS Note number 725938 makes any difference.

[Sd_customer_maintain_all|http://www.mundosap.com/foro/showthread.php?t=15410]