*&---------------------------------------------------------------------*
*& Report ZCRUD_054
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZCRUD_054.

PARAMETERS:
  p_name TYPE c LENGTH 20 OBLIGATORY,
  p_sname TYPE c LENGTH 30 OBLIGATORY,
  p_age TYPE i OBLIGATORY.

DATA: ls_person TYPE ZSTUDENTS_054.

SELECT SINGLE * FROM ZSTUDENTS_054
  INTO @ls_person
  WHERE name = @p_name AND surname = @p_sname.

IF sy-subrc = 0.
  " update recors"
  ls_person-name = p_age.

  UPDATE ZSTUDENTS_054 FROM ls_person.
  IF sy-subrc = 0.
    WRITE: 'Record updated'.
  ELSE.
    WRITE: 'Erorr'.
  ENDIF.
ELSE.
  SELECT MAX( personid ) FROM zstudents_054 INTO @DATA(lv_personid).
  IF sy-subrc = 0.
    lv_personid = 1.
  ELSE.
    lv_personid = lv_personid + 1.
  "CREATE NEW RECORD"
  ENDIF.

  ls_person-personid = lv_personid.
  ls_person-name = p_name.
  ls_person-surname = p_sname.
  ls_person-age = p_age.

  INSERT INTO zstudents_054 VALUES ls_person.
  IF sy-subrc = 0.
    WRITE: 'New record added'.
  ELSE.
    WRITE: 'nie oddano error !' .
  ENDIF.
ENDIF.