inserting data

Former Member — Thu, 09 Aug 2007 12:23:33 GMT

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

Re: inserting data

Former Member — Thu, 09 Aug 2007 12:24:29 GMT

specify the table and fields

Re: inserting data

Former Member — Thu, 09 Aug 2007 12:27:40 GMT

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>

Re: inserting data

Former Member — Thu, 09 Aug 2007 12:29:02 GMT

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

topic Re: inserting data in Application Development and Automation Discussions

inserting data

Re: inserting data

Re: inserting data

Re: inserting data