Skip to Content
0
Former Member
Mar 04, 2009 at 10:00 AM

Doubt in ABAP function

15 Views

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