1. *&---------------------------------------------------------------------*
2. *& Report ZCRUD_054
3. *&---------------------------------------------------------------------*
4. *&
5. *&---------------------------------------------------------------------*
6. REPORT ZCRUD_054.
7.  
8. PARAMETERS:
9.   p_name TYPE c LENGTH 20 OBLIGATORY,
10.   p_sname TYPE c LENGTH 30 OBLIGATORY,
11.   p_age TYPE i OBLIGATORY.
12.  
13. DATA: ls_person TYPE ZSTUDENTS_054.
14.  
15. SELECT SINGLE * FROM ZSTUDENTS_054
16.   INTO @ls_person
17.   WHERE name = @p_name AND surname = @p_sname.
18.  
19. IF sy-subrc = 0.
20.   " update recors"
21.   ls_person-name = p_age.
22.  
23.   UPDATE ZSTUDENTS_054 FROM ls_person.
24.   IF sy-subrc = 0.
25.     WRITE: 'Record updated'.
26.   ELSE.
27.     WRITE: 'Erorr'.
28.   ENDIF.
29. ELSE.
30.   SELECT MAX( personid ) FROM zstudents_054 INTO @DATA(lv_personid).
31.   IF sy-subrc = 0.
32.     lv_personid = 1.
33.   ELSE.
34.     lv_personid = lv_personid + 1.
35.   "CREATE NEW RECORD"
36.   ENDIF.
37.  
38.   ls_person-personid = lv_personid.
39.   ls_person-name = p_name.
40.   ls_person-surname = p_sname.
41.   ls_person-age = p_age.
42.  
43.   INSERT INTO zstudents_054 VALUES ls_person.
44.   IF sy-subrc = 0.
45.     WRITE: 'New record added'.
46.   ELSE.
47.     WRITE: 'nie oddano error !' .
48.   ENDIF.
49. ENDIF.