Hi,
I have a doubt in one of the abap function module i use.
This contain code to retrieve ,update and delete and create values in table. I am using this function module to
retrieve ,update and delete and create values in table. This is the ABAP code.
FUNCTION ZUP_DESIG12.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(DESG_CODE) TYPE ZUP_DESIG-DESG_CODE OPTIONAL
*" VALUE(DESG_DESC) TYPE ZUP_DESIG-DESG_DESC OPTIONAL
*" VALUE(DESG_ACT) TYPE ZUP_DESIG-DESG_ACT OPTIONAL
*" VALUE(DESG_OPT) TYPE ZUP_DESIG-DESG_OPT OPTIONAL
*" EXPORTING
*" VALUE(DESG_CODE_C) TYPE ZUP_DESIG-DESG_CODE
*" VALUE(DESG_DESC_C) TYPE ZUP_DESIG-DESG_DESC
*" VALUE(DESG_ACT_C) TYPE ZUP_DESIG-DESG_ACT
*" VALUE(DESG_OPT_C) TYPE ZUP_DESIG-DESG_OPT
*" TABLES
*" WA STRUCTURE ZMSTR_DESIG
*"----------------------------------------------------------------------
DATA CNT TYPE I.
SELECT MANDT DESG_CODE DESG_DESC DESG_ACT FROM ZMSTR_DESIG
INTO TABLE WA.
IF DESG_OPT = 'U'.
UPDATE ZMSTR_DESIG
SET DESG_DESC = DESG_DESC
DESG_ACT = DESG_ACT
WHERE DESG_CODE = DESG_CODE.
MESSAGE 'Updated Successfully' TYPE 'I'.
ELSEIF DESG_OPT = 'C'.
SELECT COUNT( * ) FROM ZMSTR_DESIG INTO CNT
WHERE DESG_CODE = DESG_CODE.
IF CNT > 0.
MESSAGE 'Duplicate Designation code' TYPE 'I'.
ELSE.
WA-DESG_CODE = DESG_CODE.
WA-DESG_DESC = DESG_DESC.
WA-DESG_ACT = DESG_ACT.
MODIFY ZMSTR_DESIG FROM WA.
MESSAGE 'Inserted successfully' TYPE 'I'.
ENDIF.
ELSEIF DESG_OPT = 'D'.
DELETE FROM ZMSTR_DESIG WHERE DESG_CODE = DESG_CODE.
MESSAGE 'Deleted successfully' TYPE 'I'.
ENDIF.
ENDFUNCTION.
can any one what is wrong in this function.
Regards,
H.V.Swathi