inserting data

[Former Member]

inserting the data to the database table ztzble usin selection screens .. can any one help me out ..

[Former Member]

specify the table and fields

[Former Member]

in the selection screen take a button "SAVE"

case sy-ucomm.

when SAVE.

<insert_statement> ::=

INSERT [INTO] <table_name> [(<column_name>,...)] VALUES (<insert_expression>,...) [<duplicates_clause>]

regards,

srinivas

<b>*reward for useful answers*</b>

[Former Member]

Hi,

Check the following code:

TABLES: MSEG,MKPF,ZGEXIT.

*****************SELECTION SCREEN************************************

PARAMETERS: IMBLNR LIKE MSEG-MBLNR OBLIGATORY,

IMJAHR LIKE MSEG-MJAHR DEFAULT SY-DATUM+0(4).

***********************STRUCTURE DECLARATION*******************

DATA: BEGIN OF WA_MBLNR,

MBLNR LIKE MSEG-MBLNR,

MJAHR LIKE MSEG-MJAHR,

END OF WA_MBLNR.

DATA: BEGIN OF P_MESSAGE OCCURS 0,

TDFORMAT LIKE TLINE-TDFORMAT,

TDLINE LIKE TLINE-TDLINE,

END OF P_MESSAGE.

************************INTERNAL TABLE DECLARATION*******************

DATA: IT_MBLNR LIKE TABLE OF WA_MBLNR WITH HEADER LINE.

DATA: IT_GE LIKE ZGEXIT OCCURS 0 WITH HEADER LINE.

DATA: VNAME LIKE USER_ADDR-NAME_TEXTC.

DATA: VTERMINAL LIKE USR41-TERMINAL.

DATA: VDATE(10) TYPE C,

VTIME(8) TYPE C.

*******VALIDATION FOR MATERIAL NUMBER******************

at selection-screen.

SELECT SINGLE * FROM MSEG WHERE

MBLNR = IMBLNR.

IF SY-SUBRC <> 0.

MESSAGE E016(PG) WITH 'Please select a valid Material Number'.

ENDIF.

*************MAIN PROGRAM******************************

START-OF-SELECTION.

SELECT * FROM ZGEXIT

INTO CORRESPONDING FIELDS OF TABLE IT_GE

WHERE MBLNR = IMBLNR AND MJAHR = IMJAHR.

IF SY-SUBRC <> 0.

SELECT SINGLE NAME_TEXTC

FROM USER_ADDR

INTO VNAME

WHERE BNAME = SY-UNAME.

SELECT SINGLE TERMINAL

FROM USR41

INTO VTERMINAL

WHERE BNAME = SY-UNAME.

IT_GE-MBLNR = IMBLNR.

IT_GE-MJAHR = IMJAHR.

IT_GE-UNAME = SY-UNAME.

IT_GE-NAME_TEXTC = VNAME.

IT_GE-BUDAT1 = SY-DATUM.

IT_GE-ETIME = SY-UZEIT.

IT_GE-MACHINE_ID = VTERMINAL.

APPEND IT_GE.

INSERT ZGEXIT FROM TABLE IT_GE ACCEPTING DUPLICATE KEYS.

MESSAGE S016(PG) WITH 'Record saved successfully'.

Hope this helps.

Reward if helpful.

Regards,

Sipra