Basic Table Operation with ABAP

Case 1

Description

Update the ZLIANO numbers to 10 digits with given BP_IDs. 

MANDT BP_ID IDENTIFICATIONCATEGORY IDENTIFICATIONNUMBER ...
001 051MbpFO7kUTkQriN42EdG ZLIANO 87405302  
001 051MbpFO7kUTkQriN42EdG ZLIANO 0087405302  
001 051MbpFO7kUTkQuxUxPEdG ZLIANO 98406690  
001 051MbpFO7kUTkQuxUxPEdG ZLIANO 0098406690  

 

 1 TABLES: zbp_ident.
 2 
 3 SELECT-OPTIONS: s_bp_id FOR zbp_ident-bp_id OBLIGATORY.
 4 DATA: iv_num(10) TYPE n.
 5 
 6 START-OF-SELECTION.
 7 
 8   DATA: lt_ident  LIKE zbp_ident OCCURS 0 WITH HEADER LINE,
 9         lt_delete LIKE zbp_ident OCCURS 0 WITH HEADER LINE.
10 
11   SELECT * INTO TABLE lt_delete
12     FROM zbp_ident
13     WHERE bp_id IN s_bp_id AND identificationcategory = 'ZLIANO'.
14 
15   LOOP AT lt_delete.
16     lt_ident = lt_delete.
17     iv_num = lt_ident-identificationnumber.
18     lt_ident-identificationnumber = iv_num.
19     APPEND lt_ident.
20   ENDLOOP.
21 
22   INSERT zbp_ident FROM TABLE lt_ident.
23   DELETE zbp_ident FROM TABLE lt_delete. 
24 
25   IF sy-subrc = 0. 
26   ENDIF.

 

Tips

> Set a breakpoint at Line 25. 

> Check sy-dbcnt. 

> Check the internal tables. 

 

Case 2

Description

Delete all the records from the table if they don't contain telephone info. 

MANDT BP_ID PHONE_ID_LEGACY TELEPHONE EXTENSION ...
001 051MbpFO7jQdd0VT}nTwS0 1      
001 051MbpFO7jQdd0VVFrOwS0 1      

 

1 DELETE FROM zbp_comm_phone 
2   WHERE bp_id IN ( SELECT bp_id FROM zbp_comm_phone_v WHERE telephone = '' AND extension = '' AND mc = 'UR300' )
3     AND telephone = '' 
4     AND extension = ''.
5 
6 IF sy-subrc = 0.
7 ENDIF.

 

Case 3

Description

Clear the incorrect deathdate assignment. 

MANDT BP_ID LASTNAME BIRTHDATE DEATHDATE ...
001 051MbpFO7jMLvWmXhY7vum Allison Yu 1985-08-09 1900-01-01  
001 051MbpFO7jMLvWmXhY7vum Allison Yu 1985-08-09    

 

1 UPDATE zbp_central_per SET deathdate = '00000000' 
2   WHERE bp_id IN ( SELECT bp_id FROM zbp_central_perv WHERE deathdate = '19000101' AND mc = 'UR300' )
3   AND deathdate = '19000101'.
4 
5 IF sy-subrc = 0.
6 ENDIF.

 

Case 4

Description

Field RL_SOURCE should be 3 digits rather than 2 digits. 

MANDT BO_ID INPUT_ROW RP_TYPCLASS RP_TYP RL_SOURCE ...
001 051MbpFO7kU2mrA6rsuK40 1 03 026 9  
001 051MbpFO7kU2mrA6rsuK40 1 03 026 009  
001　　 051MbqvR7jU9n}XRM6ES3W 1 05 026 012  

 

 1 TABLES: zbp_rm_remark.
 2 
 3 DATA: iv_num(3) TYPE n.
 4 
 5 DATA: lt_remark  LIKE zbp_rm_remark OCCURS 0 WITH HEADER LINE.
 6 
 7 SELECT * INTO TABLE lt_remark FROM zbp_rm_remark 
 8   WHERE bo_id IN ( SELECT bo_id FROM zbp_rm_v WHERE mc = 'UR300' AND bo_id_merged = '' )
 9     AND rl_source BETWEEN '1' AND '99'.
10 
11 LOOP AT lt_remark.
12   iv_num = lt_remark-rl_source.
13   lt_remark-rl_source = iv_num.
14   MODIFY lt_remark.
15 ENDLOOP.
16 
17 UPDATE zbp_rm_remark FROM TABLE lt_remark.
18 
19 IF sy-subrc = 0.
20 ENDIF.

 

Tips

> Difference between UPDATE and MODIFY. 

UPDATE: only update based on the primary key. 

MODIFY: update and insert. 

posted @ 2017-08-09 12:01  PrinceMay  阅读(210)  评论(0)  编辑  收藏  举报