DATABASE TABLE(INSERT,UPDATE,DELETE)

REPORT YMS_INSERT_SELECTION_SCREEN .

DATA: TEMP TYPE I.
DATA: IDS(10) TYPE C.
TABLES YMS_SCHOOL.
DATA YMS_SCHOOLS1 LIKE YMS_SCHOOL OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN: BEGIN OF SCREEN 500.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.
PARAMETERS: ID(5).
PARAMETERS: NAME(10).
PARAMETERS: REMARKS(10).
SELECTION-SCREEN: END OF BLOCK B1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.
PARAMETERS: INSERT RADIOBUTTON GROUP GR1.
PARAMETERS: DISPLAY RADIOBUTTON GROUP GR1.
PARAMETERS: UPDATE RADIOBUTTON GROUP GR1.
PARAMETERS: DELETE RADIOBUTTON GROUP GR1.
SELECTION-SCREEN: END OF BLOCK B2.
SELECTION-SCREEN: END OF SCREEN 500.
INITIALIZATION.
INSERT = 'X'.

CALL SCREEN 500.
AT SELECTION-SCREEN.
IF
INSERT = 'X'.
TEMP = 1.
ELSEIF
DISPLAY = 'X'.
TEMP = 2.
ELSEIF
UPDATE = 'X'.
TEMP = 3.
ELSEIF
DELETE = 'X'.
TEMP = 4.
ENDIF.

START-OF-SELECTION.
CASE TEMP.
WHEN 1.
YMS_SCHOOLS1-YMSID = ID.
YMS_SCHOOLS1-YMSNAME = NAME.
YMS_SCHOOLS1-YMSREMARKS = REMARKS.
APPEND YMS_SCHOOLS1.
INSERT YMS_SCHOOL FROM TABLE YMS_SCHOOLS1.
WRITE 'VALUE INSERTED'.
WRITE: ID, NAME.

WHEN 2.
SELECT * FROM YMS_SCHOOL INTO YMS_SCHOOLS1.
WRITE: YMS_SCHOOLS1-YMSNAME, YMS_SCHOOLS1-YMSID,
YMS_SCHOOLS1-YMSREMARKS.
ULINE.
ENDSELECT.

WHEN 3.
YMS_SCHOOLS1-YMSID = ID.
YMS_SCHOOLS1-YMSNAME = NAME.
YMS_SCHOOLS1-YMSREMARKS = REMARKS.
MODIFY YMS_SCHOOL FROM YMS_SCHOOLS1.
WRITE: 'RECORD UPDATED'.
* WHERE YMS-SCHOOLS1-YMSID = ID.
WHEN 4.
YMS_SCHOOLS1-YMSID = ID.

DELETE FROM YMS_SCHOOL WHERE YMSID = ID.
WRITE: 'RECORD DELETED'.
ENDCASE.