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
Bluesky
