Field name of free item in ME21N

Hi All,
I have a small issue hear in ME21N I wan the table and the field which will be updated when the we check the check box for free item in the line items, I tried to find that using CDHDR, CDPOS, using ST05 and other methods but I was unable to do that can any of u please help me in finding that field along with table mane which will be updated and to give further information the screen field name is UMSON
Regards,
Antony

Hello Antony,
The 'Free Item' indicator is only used to facilitate the switching off of the 'Inv.Receipt' flag.
The flag UMSON is not contained in any table, only in structures.
But there is a correlation between the flag UMSON and the field EKPO-REPOS. So if you flag field EKPO-REPOS (an invoice is expected) the flag UMSON will be cleared and the other way around.
For further information about this flag: You will not be able to enter any conditions in your purchase order item (not even the delivery costs) once the flag for 'Free item' has been set.
In case the 'Inv.Receipt' flag is unticked, the system will not allow you to maintain any conditions in the purchase order, not even the delivery costs. In ME21N you can see that even the condition tab disappears as soon as you set the 'Free item' indicator or as soon as you de-select the 'Inv.Receipt' flag.
Whenever the 'Inv.Receipt' flag is not set, we are indicating to the system that all the goods are to be delivered free of charge. In other words, there can be no delivery costs associated with the PO. Also, no delivery costs are allowed without an invoice receipt.
I hope this helps.
Esther.

Similar Messages

Free item in ME21N

Hello,
Hope you can help me on how to make the free item in ME21N automaticaly checked and grayed out. I'm currently exploring this features and I can't see this in SPRO.
Hope you can give me instruction on the configuration that should be made or if this is possible or not.
Thank you.
Neil

Hi,
I make use of this BADI zME_PROCESS_PO_CUST to throw an error if free item check box is not checked for specific document types.user should check that check box manually , but now what i need is to make that free item check box checked and grayed out automatically.
I achieved the funcationality to make free item check box checked automatically, so please help me to make that field grayed out.
Thanks.
Krisc
Edited by: krisc@349 on Feb 20, 2012 8:39 AM
Edited by: krisc@349 on Feb 20, 2012 8:39 AM

Field name (free item) in ME21N

Hi All,
I have a small issue hear in ME21N I wan the table and the field which will be updated when the we check the check box for free item in the line items, I tried to find that using CDHDR, CDPOS, using ST05 and other methods but I was unable to do that can any of u please help me in finding that field along with table mane which will be updated and to give further information the screen field name is UMSON
Regards,
Antony

Hi,
The field name UMSON is used in the table
TB2BJ
Thanks,
Naren

BADI to uncheck free item indicator (field UMSON) in PO through ME21N)

Hi All,
I have a requirement to remove the UMSON ( free item ") indicator while creating a PO using ME21N transaction based on the input from user. If material starts with 'P' and it is a standard order, then this field should be unchecked for that particular item. I am implementing the BADI ME_PROCESS_PO_CUST and method CHECK. However, I find that though the PO is held and not saved, the value of UMSON field is not changed.
This is the code.
DATA:   lt_mepoitem   TYPE purchase_order_items,
        ls_mepoitem   TYPE purchase_order_item,
        ls_mepoheader TYPE mepoheader,
        ls_head       TYPE REF TO if_purchase_order_mm,
        ls_item       TYPE mepoitem,
        ls_local      TYPE ttyp_fieldselection_mm,
        ls_inval      TYPE REF TO if_purchase_order_item_mm,
        l_error       TYPE c.
INCLUDE mm_messages_mac. "useful macros for message handling
ls_mepoheader = im_header->get_data( ).
lt_mepoitem = im_header->get_items( ).
IF ls_mepoheader-bsart = 'NB' .
    LOOP AT lt_mepoitem INTO ls_mepoitem.
      ls_item = ls_mepoitem-item->get_data( ).
      IF ls_item-matnr(1) = 'P' AND ls_item-umson IS NOT INITIAL .
        ls_item-umson = space.
        l_error = 'X'.
        CALL METHOD ls_mepoitem-item->set_data
          EXPORTING
            im_data = ls_item.
      ENDIF.
    ENDLOOP.
    IF l_error = 'X'.
      ch_failed = 'X'.
      mmpur_message_forced 'E' 'ME' '303' text-001 '' '' ''.
    ENDIF.
ENDIF.
Can anyone tell me what I am missing or where this can be implemented?
Thanks
S R

hi,
With Error it won' t allow you to save PO.
What i would suggest is that
either you give message that indicator need to checked or unchecked as per condition. and let user change is manually and
you check it in BADI and then save it .
or you change free item check as per your requirement in BADi and give a information message that this item is to be checked for free goods or need to be unchecked .

Table for Free Item field in PO

Hi Experts,
Can any one tell me the table for field UMSON (Free Item) of Purchase Order. This filed is available in table WVFB but it is not updating in there.
Thanks in advance.
Regards,
Sree

Hi,
I found two tables which contain this field
TB2BJ
MWZDM07M2
For finding a table which contain particular field you can use the t-code SE84
ABAP Dictionary -> Fields -> Table Fields
Enter field name and execute you will get list of tables containing that field
Cheers
Bikas

Free item field checked defaultly in PO for one specific vendor

Hi,
If we always send a free PO to a vendor, is there any place to configure that once we create PO to this specific vendor, the free item field is checked defaultly?
Some posts on the web indicated that they succeeded in doing this by setting in vendor master, but I cannot find the field.
Where to achieve this function?
Thanks!
Wesley

Hi,
try to maintain a free goods condition in tcode MBN1 with
Discount type NR00 and make this article as an Additional material free
goods which will be procured free of cost on purchase of some other
article. The system will not consider the Net price value maintained in
the purchasing view of the article master and you would find that the
net price is ZERO for this free item in the Purchase order.
Regards,
Edit

Add Fields from table ADRC (Fields Name 1 to 4) for Open Item Processing

Hi SAP Expert:
Our client requires vendor/customer name to be displayed in the open item processing line layout for transaction code f-58, so they can double check if the vendor name is complete as intended.
We intend to add fields from table ADRC instead of REGUH since the characters in maintaining vendor/customer name is 40 characters and REGUH - ZNME1s are only 35 characters.
We have managed to add fields from ADRC and change the SAPDF05X program and were able to display the names in open item layout, except that the program seems to "automatically" create a generic table which only carries 30 characters of the vendor/customer name. The source table should be RFOPS_DK but the program automatically looks up from table RFOPS_GEN for the particular fields - Name 1 to 4. Is there a way to "instruct" the program to use RFOPS_DK instead of RFOPS_GEN?
Hope this will merit somebody's attention... Thanks !!!

Thanks, i have assigned the layout via o7v3, it is the program that i have a problem with, actually another program that we change is the program MF05BFPO where it generates data to be displayed in the FBZ4 screen, though we add a field with 40 characters (ADRC Name 1 to 4) what the program dispalys is a 30 character Name1 to 4 from structure RFOPS_GEN.
My question is can i extend/change the structure RFOP_GEN to 40 characters, is there any SAP standard program that will aftected if i do so? thank very much...
Lorena

What is the field name for item serial number

hi all
i am doing dispatch report .... i need field name and table name for [item serial number (min) from batch number of that delivery material,item serial number (max) from batch number of that delivery material] ... actually this was the exact term given in the spec. can any one help me out
regards
aswin

some more tables :
SER00 .. SER08 , or type SER* in SE11 and press F4, you will get some more.
and <a href="http://www.erpgenie.com/sap/sapfunc/serialnumbers.htm">Check this</a>

Field Names Not Found in Item Table Properties

Please note that the following field names cannot be found in the Table Object properties but can be found in the database table for the Item table.
ItemType within Item Heading
ReorderQty within Inventory Data -
this is called Required Stock Level on Inventory scrn.
MinOrdrQty - Minimum Ordered Qty on Planning scrn.
Please advise. Thanks!

Satish,
The ItemType property is available for the Items Object. As far as the ReOrderQty ... this does not seem to be available as a property. If you must use these properties in your add-on, you could go to the Db directly as they are in the appropriate tables HOWEVER, this is not a recommended approach as data corruption could occur as well as SAP will not certify a solution that used direct table access to the Db. You could put in a request via SAP Support for these properties to be added in coming versions of the DI API.
HTH,
Eddy

Create Limit Item Screen Fields name

Hi Experts,
I am unable to find the below screen field names. Can please let me know the Below screen fields of Create limit item in SRM Shoping Cart.
Service Agent (Input filed)
Account assignment.(Radio button Unknown and Known)
Thanks in Advance

Hello,
If you go to SE80 transaction, type the BBP_SC_UI_ITS as Function Group, you can choose the screen number 210.
If you click on "Layout" button, you will se the same shopping cart limit page. If you click on the desired fields, you can see their names, as below:
Service Agent:
GS_SCR_LIMIT-WORKER_ID, which is linked to GS_SCR_LIMIT-WORKER_NAME and GS_SCR_LIMIT-WORKER_GUID
Unknown radio button:
GS_SCR_LIMIT-ACC_UNKNOWN
Best regards,
Ricardo

Table names and field names for the PO item details

Hi,
I want table names and field name for the below fields.
I have PO number i want to get below fields for PO.
<b>Confirmed Ship Date (or actual ship date if already shipped) PGI Date
Quantity of Product to be shipped (base unit of measure) Sales Order Qty
Shipped Quantity of Product (normally zero)
Shipped From Plant Name</b>
Excellent reward is compulsary.
reagrds,
vijay

Hi,
Please find below the some of tables and fields for the PO. But from your query hope you are refering some other PO.
Table : EKPO
Fields
KTMNG - Target Qty
MENGE - Open Qty
WEPOS - Goods Receipt
LEWED - Latest GR date
Table : EORD
Fields
RESWK - Procurement plant
FRESW - Fixed Issuing plant
LIFNR - Vendor
FLIFN - Fixed vendor
Regards,
BK

Free items in automatically created POs

Hello gurus,
we would like to create POs automatically using MRP. The problem is that some of the materials are always free goods.
So if I created the PO manually, i would tick the free item checkbox. Can this be done automatically?
Thanks
Alicia

Hi,
yes , it is possible to get the free goods indicator automatically,
ask your ABAPer to develop a program to get the indicator automatically wrt to the document type,
related check box field is " UMSON " in the table EKPO,
here is the code, which may be helpful to you,
DATA: WA_EKPO TYPE BEKPO.
*TABLES ekko.
Making Free Item Checkbox Mandatory for IMF Doc. Type
IF SY-TCODE EQ 'ME21N'.
IF I_CEKKO-BSART EQ 'IMF'.
READ TABLE IT_BEKPO INTO WA_EKPO WITH KEY UMSON = ' '
EBELN = ' '.
IF SY-SUBRC EQ 0.
MESSAGE E033(ZMEG) WITH WA_EKPO-EBELP.
ENDIF.
ELSEIF I_CEKKO-BSART EQ 'IM'.
READ TABLE IT_BEKPO INTO WA_EKPO WITH KEY UMSON = 'X'
EBELN = ' '.
IF SY-SUBRC EQ 0.
MESSAGE E034(ZMEG) WITH WA_EKPO-EBELP.
ENDIF.
ENDIF.
ENDIF.
rgds
Edited by: lakshmi reddy on Mar 2, 2010 12:22 PM

Populate information when double click on the field name

I have this tree structure with the field names as shown at this picture.
<a href="http://img164.imageshack.us/img164/426/treeaf0.jpg">http://img164.imageshack.us/img164/426/treeaf0.jpg</a>
When I double click on the field name, I would like to populate the values related to the fieldname to the tab form next to the tree structure as should in the picture.
How am I suppose to do this?
My codes as shown below:
*& Report ZSCSDM_RULES_ENGINE_TRANSFORM_v4
*& with Column Tree Structure & ABAP Generic code
REPORT ZSCSDM_MODIFY_TRANSFORM_HERA.
GLOBAL DECLARATION
======================================================================
SCREEN 9000 TABS (WIZARD-GENERATED CODES. DO NOT CHANGE)-------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TRANSFORM'
Rayden Tree Control Code.
CLASS CL_TREE DEFINITION DEFERRED.
CLASS CL_GUI_CFW DEFINITION LOAD.
TYPES : ITEM_TABLE_TYPE LIKE STANDARD TABLE OF MTREEITM
          WITH DEFAULT KEY.
DATA: BEGIN OF ITAB_MO OCCURS 1.
        INCLUDE STRUCTURE ZSCSDM_MO.
DATA:END OF ITAB_MO.
DATA: BEGIN OF ITAB_OF OCCURS 1.
        INCLUDE STRUCTURE ZSCSDM_OF.
DATA:END OF ITAB_OF.
DATA: BEGIN OF ITAB_OS OCCURS 1.
        INCLUDE STRUCTURE ZSCSDM_OS.
DATA:END OF ITAB_OS.
DATA: BEGIN OF ITAB_TREE OCCURS 1,
        UNIKEY(100) TYPE C,
        PARENT(100) TYPE C,
        TYPE(10) TYPE C,
        IN_AREA(1) TYPE C,
        NAME(14) TYPE C,
        DESC(255) TYPE C,
        TAG(50) TYPE C,
      END OF ITAB_TREE.
DATA: TREE TYPE REF TO CL_GUI_COLUMN_TREE,
      DOCKING TYPE REF TO CL_GUI_DOCKING_CONTAINER,
      REPID TYPE SY-REPID,
      DYNNR TYPE SY-DYNNR,
      TREE_APPLICATION TYPE REF TO CL_TREE,
      LEVEL TYPE I,
      AREA_COUNT TYPE I,
      AREA_TEXT(30) TYPE C,
      AREA_DESC(30) TYPE C,
      AREA_KEY(30) TYPE C,
      OBJECT_TEXT(30) TYPE C,
      NODE_DISABLE(1) TYPE C,
      NODE_EXPAND(1) TYPE C,
      NODE_IMAGE(46) TYPE c,
      NODE_EXP_IMAGE(46) TYPE C,
      FIELD_KEY(30) TYPE C,
      SELECTED_KEY(30) TYPE C,
      SELECTED_ITEM(30) TYPE C,
      FIELD_COUNT(9) TYPE N,
      TAG_VALUE(255) TYPE C,
      TAG_1(255) TYPE C,
      TAG_2(255) TYPE C,
      PARENT_TAG_VALUE(50) TYPE C,
      TEMP_VALUE(100) TYPE C,
      COUNTER TYPE I,
      IN_AREA(1) TYPE C,
      STR_COUNTER TYPE STRING.
DATA: EVENT TYPE CNTL_SIMPLE_EVENT,
      EVENTS TYPE CNTL_SIMPLE_EVENTS,
      NODE_TABLE TYPE TREEV_NTAB,
      ITEM_TABLE TYPE ITEM_TABLE_TYPE,
      NODE TYPE TREEV_NODE,
      ITEM TYPE MTREEITM,
      ITAB_TREE_WA LIKE LINE OF ITAB_TREE,
      NODE_WA LIKE LINE OF NODE_TABLE,
      ITEM_WA LIKE LINE OF ITEM_TABLE,
      OF_WA LIKE LINE OF ITAB_OF,
      HIERARCHY_HEADER TYPE TREEV_HHDR.
FIELD-SYMBOLS: <FS_ITAB_TREE_ANY> TYPE ANY,
               <FS_NODE_ANY> TYPE ANY,
               <FS_OF_DESC> TYPE ANY.
CONSTANTS: BEGIN OF C_TRANSFORM,
             TAB1 LIKE SY-UCOMM VALUE 'TRANSFORM_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TRANSFORM_FC2',
           END OF C_TRANSFORM.
*&SPWIZARD: DATA FOR TABSTRIP 'TRANSFORM'
CONTROLS: TRANSFORM TYPE TABSTRIP.
DATA:      BEGIN OF G_TRANSFORM,
             SUBSCREEN   LIKE SY-DYNNR,
PROG        LIKE SY-REPID VALUE 'ZSCSDM_MODIFY_TRANSFORM_V5',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TRANSFORM-TAB1,
           END OF G_TRANSFORM.
DATA:      OK_CODE LIKE SY-UCOMM.
SCREEN 9001 FIELDS---------------------------------------------------*
TABLES: ZSCSDM_MO, ZSCSDM_OF, ZSCSDM_OS, ZSCSDM_REF.
DATA: REF_COND TYPE ZSCSDM_REF-REF_COND,
      G_EDITOR_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      G_EDITOR TYPE REF TO CL_GUI_TEXTEDIT.
Rayden Dynamic generate ABAP Code.
SCREEN 9002 FIELDS---------------------------------------------------*
DATA: CODE_EDITOR_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      CODE_EDITOR TYPE REF TO CL_GUI_TEXTEDIT.
TYPES: BEGIN OF DYN_CODE,
        LINE(255),
      END OF DYN_CODE.
DATA: DYN_CODE_TABLE TYPE TABLE OF DYN_CODE.
INITIALIZATION-------------------------------------------------------*
DATA: INIT_MODE_9001 TYPE I VALUE 0. "0 = CREATE, 1 = EDIT
SCREEN 9001 PBO AND PAI---------------------------------------------------*
DATA: DETAILS_SCREEN(10) TYPE C VALUE 'Transform',
      RETURN_RESULT TYPE CHAR9.
CONSTANTS: G_EDITOR_LENGTH TYPE I VALUE 255.
DATA: BEGIN OF G_EDITOR_LINE OCCURS 0,
        REF_COND TYPE ZSCSDM_REF-REF_COND,
      END OF G_EDITOR_LINE.
TYPES: BEGIN OF G_EDITOR_TABLE_LINE,
         LINE(G_EDITOR_LENGTH) TYPE C,
       END OF G_EDITOR_TABLE_LINE.
DATA: G_EDITOR_TABLE TYPE TABLE OF G_EDITOR_TABLE_LINE,
      G_EDITOR_CONTENTS LIKE STANDARD TABLE OF LINE.
DATA: INSERT_COUNTER TYPE I, INSERT_VALUE(G_EDITOR_LENGTH) TYPE C.
*DATA: NONE_BLANK_COUNTER TYPE I, NONE_BLANK_CHECK(G_EDITOR_LENGTH) TYPE C,
     INSERT_COUNTER TYPE I, INSERT_VALUE(G_EDITOR_LENGTH) TYPE C,
     OFFSET_LEN_3AT TYPE I,OFFSET_LEN_DOT TYPE I.
SAVE STATUS (SUCCESS=S OR FAIL=F)------------------------------------*
DATA: SAVE_STATUS(1) TYPE C.
Rayden Tree Control Code.
      CLASS CL_TREE DEFINITION
CLASS CL_TREE DEFINITION.
PUBLIC SECTION.
    METHODS : HANDLE_ITEM_DOUBLE_CLICK
                FOR EVENT ITEM_DOUBLE_CLICK
                OF CL_GUI_COLUMN_TREE
                IMPORTING NODE_KEY ITEM_NAME.
ENDCLASS.                    "CL_TREE DEFINITION
      CLASS CL_TREE IMPLEMENTATION
CLASS CL_TREE IMPLEMENTATION.
METHOD HANDLE_ITEM_DOUBLE_CLICK.
    SELECTED_KEY = NODE_KEY.
    SELECTED_ITEM = ITEM_NAME.
    CLEAR: TAG_VALUE.
    PERFORM CLEAR_SCREEN.
    IF ITEM_NAME = 'OBJECT'.
      READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY UNIKEY = SELECTED_KEY.
      IF ITAB_TREE_WA-TYPE = 'OBJECT'.
        ZSCSDM_MO-OBJECT_ID = ITAB_TREE_WA-NAME.
        ZSCSDM_MO-OBJECT_DESC = ITAB_TREE_WA-DESC.
      ENDIF.
      IF ITAB_TREE_WA-TYPE = 'FILE'.
        ZSCSDM_OF-FILE_NAME = ITAB_TREE_WA-NAME.
        ZSCSDM_OF-FILE_DESC = ITAB_TREE_WA-DESC.
        " Get the OBJECT of the FILE
        SPLIT ITAB_TREE_WA-TAG AT 'T' INTO TAG_1 TAG_2.
        READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY TAG = TAG_1.
        READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY UNIKEY = ITAB_TREE_WA-PARENT.
        ZSCSDM_MO-OBJECT_ID = ITAB_TREE_WA-NAME.
        ZSCSDM_MO-OBJECT_DESC = ITAB_TREE_WA-DESC.
      ENDIF.
      IF ITAB_TREE_WA-TYPE = 'FIELD'.
        ZSCSDM_OS-FIELD_NAME = ITAB_TREE_WA-NAME.
        ZSCSDM_OS-FIELD_DESC = ITAB_TREE_WA-DESC.
        " Get the FILE of the FIELD
        SPLIT ITAB_TREE_WA-TAG AT 'F' INTO TAG_1 TAG_2.
        READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY TAG = TAG_1.
        ZSCSDM_OF-FILE_NAME = ITAB_TREE_WA-NAME.
        ZSCSDM_OF-FILE_DESC = ITAB_TREE_WA-DESC.
        " Get the OBJECT of the FILE
        SPLIT ITAB_TREE_WA-TAG AT 'T' INTO TAG_1 TAG_2.
        READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY TAG = TAG_1.
        READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY UNIKEY = ITAB_TREE_WA-PARENT.
        ZSCSDM_MO-OBJECT_ID = ITAB_TREE_WA-NAME.
        ZSCSDM_MO-OBJECT_DESC = ITAB_TREE_WA-DESC.
      ENDIF.
    ENDIF.
ENDMETHOD.                    "HANDLE_ITEM_DOUBLE_CLICK
ENDCLASS.                    "CL_TREE IMPLEMENTATION
PROCESSING BLOCK
======================================================================
INITIALIZATION.
PERFORM GET_MEMORY.
ZSCSDM_OS-TG_LAST_CHGED_BY = SY-UNAME.
ZSCSDM_OS-TG_LAST_CHGED_ON = SY-DATUM.
START-OF-SELECTION.
CREATE OBJECT TREE_APPLICATION.
CALL SCREEN 9000.
MODULE PBO_9000 OUTPUT
MODULE PBO_9000 OUTPUT.
IF G_TRANSFORM-PRESSED_TAB = 'TRANSFORM_FC1'.
    SET PF-STATUS 'SCREEN_9000' EXCLUDING 'SYN'.
ELSEIF G_TRANSFORM-PRESSED_TAB = 'TRANSFORM_FC2'.
    SET PF-STATUS 'SCREEN_9000'.
ENDIF.
SET TITLEBAR 'RWB_TRANSFORM'.
IF TREE IS INITIAL.
    REPID = SY-REPID.
    DYNNR = SY-DYNNR.
    PERFORM INIT_TREE.
ENDIF.
ENDMODULE.                    "PBO_9000 OUTPUT
MODULE PBO_9001 OUTPUT
MODULE PBO_9001 OUTPUT.
IF INIT_MODE_9001 = 0. "ON FIRST LOAD
    CREATE OBJECT G_EDITOR_CONTAINER
      EXPORTING
        CONTAINER_NAME = 'REF_COND'
      EXCEPTIONS
        CNTL_ERROR = 1
        CNTL_SYSTEM_ERROR = 2
        CREATE_ERROR = 3
        LIFETIME_ERROR = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5.
    CREATE OBJECT G_EDITOR
      EXPORTING
        PARENT = G_EDITOR_CONTAINER
        WORDWRAP_MODE =
        CL_GUI_TEXTEDIT=>WORDWRAP_OFF
          CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
        CL_GUI_TEXTEDIT=>WORDWRAP_AT_WINDOWBORDER
        WORDWRAP_POSITION = G_EDITOR_LENGTH
        WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
    SELECT REF_COND INTO G_EDITOR_LINE FROM ZSCSDM_REF
      WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
      AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND REF_COND_TYPE = 'T'
      AND REF_CON_ID = 1.
      APPEND G_EDITOR_LINE-REF_COND TO G_EDITOR_TABLE.
    ENDSELECT.
    CALL METHOD G_EDITOR->SET_TEXT_AS_R3TABLE
      EXPORTING
        TABLE = G_EDITOR_TABLE.
    CALL METHOD CL_GUI_CFW=>FLUSH.
    REFRESH G_EDITOR_TABLE.
    SELECT COUNT(*) INTO INIT_MODE_9001 FROM ZSCSDM_OS
      WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
      AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND TG_CREATED_BY <> ''.
    IF INIT_MODE_9001 = 0. "CREATE MODE
      INIT_MODE_9001 = 1.
      ZSCSDM_OS-TG_CREATED_BY = SY-UNAME.
      ZSCSDM_OS-TG_CREATED_ON = SY-DATUM.
      ZSCSDM_OS-TG_STATUS = 'A'.
      ZSCSDM_OS-TRANS_BY_DIRECT = 'X'.
    ELSE. "UPDATE MODE
      SELECT TG_CREATED_BY TG_CREATED_ON TG_LAST_CHGED_BY TG_LAST_CHGED_ON
             TG_STATUS TRANS_BY_DIRECT TRANS_TABLE TRANS_FIELD
             TRANS_BY_DEFAULT TRANS_DEF_VAL TRANS_BY_CONCAT
             CONCAT_FIELD_1 CONCAT_FIELD_2 CONCAT_FIELD_3 CONCAT_FIELD_4 CONCAT_FIELD_5
             CONCAT_FIELD_6 CONCAT_FIELD_7 CONCAT_FIELD_8 CONCAT_FIELD_9 CONCAT_FIELD_10
             TRANS_BY_REF
        INTO (ZSCSDM_OS-TG_CREATED_BY, ZSCSDM_OS-TG_CREATED_ON,
             ZSCSDM_OS-TG_LAST_CHGED_BY, ZSCSDM_OS-TG_LAST_CHGED_ON,
             ZSCSDM_OS-TG_STATUS, ZSCSDM_OS-TRANS_BY_DIRECT,
             ZSCSDM_OS-TRANS_TABLE, ZSCSDM_OS-TRANS_FIELD,
             ZSCSDM_OS-TRANS_BY_DEFAULT, ZSCSDM_OS-TRANS_DEF_VAL,
             ZSCSDM_OS-TRANS_BY_CONCAT, ZSCSDM_OS-CONCAT_FIELD_1,
             ZSCSDM_OS-CONCAT_FIELD_2, ZSCSDM_OS-CONCAT_FIELD_3,
             ZSCSDM_OS-CONCAT_FIELD_4, ZSCSDM_OS-CONCAT_FIELD_5,
             ZSCSDM_OS-CONCAT_FIELD_6, ZSCSDM_OS-CONCAT_FIELD_7,
             ZSCSDM_OS-CONCAT_FIELD_8, ZSCSDM_OS-CONCAT_FIELD_9,
             ZSCSDM_OS-CONCAT_FIELD_10, ZSCSDM_OS-TRANS_BY_REF) FROM ZSCSDM_OS
        WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
        AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
      ENDSELECT.
    ENDIF.
ENDIF.
PERFORM CHANGE_TRANSFORM_TYPE.
ENDMODULE.                    "PBO_9001 OUTPUT
*&SPWIZARD: OUTPUT MODULE FOR TS 'TRANSFORM'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TRANSFORM_ACTIVE_TAB_SET OUTPUT.
TRANSFORM-ACTIVETAB = G_TRANSFORM-PRESSED_TAB.
CASE G_TRANSFORM-PRESSED_TAB.
    WHEN C_TRANSFORM-TAB1.
      G_TRANSFORM-SUBSCREEN = '9001'.
    WHEN C_TRANSFORM-TAB2.
      G_TRANSFORM-SUBSCREEN = '9002'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
ENDCASE.
ENDMODULE.                    "TRANSFORM_ACTIVE_TAB_SET OUTPUT
MODULE USER_COMMAND_9000 INPUT
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
      G_TRANSFORM-PRESSED_TAB = TRANSFORM-ACTIVETAB.
      " IF G_TRANSFORM-PRESSED_TAB =
    WHEN 'TRANSFORM_FC1'.
      SET PF-STATUS 'SCREEN_9000' EXCLUDING 'SYN'.
      MODIFY SCREEN.
    WHEN 'TRANSFORM_FC2'.
      SET PF-STATUS 'SCREEN_9000'.
      MODIFY SCREEN.
    WHEN 'EXIT' OR 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'BACK'.
      CLEAR SY-UCOMM.
      SAVE_STATUS = ''.
      PERFORM SET_MEMORY.
      SUBMIT ZSCSDM_RULES_ENGINE_NAV_V5.
    WHEN 'SAVE'.
      PERFORM GET_MEMORY_SAVE_STATUS.
      IF SAVE_STATUS = 'S'.
        PERFORM SET_MEMORY.
        SUBMIT ZSCSDM_RULES_ENGINE_NAV_V5.
      ELSE.
        PERFORM SET_MEMORY_SAVE_STATUS_RESET.
      ENDIF.
ENDCASE.
ENDMODULE.                    "USER_COMMAND_9000 INPUT
MODULE USER_COMMAND_9001 INPUT
MODULE USER_COMMAND_9001 INPUT.
CASE SY-UCOMM.
    WHEN 'SAVE'.
      CLEAR SY-UCOMM.
      PERFORM CHANGE_TRANSFORM_TYPE.
      PERFORM VALIDATE_DIRECT_FIELD.
      PERFORM VALIDATE_CONCAT_FIELD.
      PERFORM SAVE_TRANSFORM_TYPE.
      SELECT FIELD_STATUS CREATED_BY CREATED_ON LAST_CHGED_BY LAST_CHGED_ON
             COLUMN_NO KEY_FIELD SEARCH_HELP HASH_TOTAL_IND
             VG_CREATED_BY VG_CREATED_ON VG_LAST_CHGED_BY VG_LAST_CHGED_ON
             CHECK_DATA_TYPE DT_ERR_TEXT LN_ERR_TEXT DP_ERR_TEXT SN_ERR_TEXT
             FIELD_DOMAIN FIELD_DATA_TYPE FIELD_LENGTH FIELD_DECIMAL
             FIELD_NEGATIVE DOMAIN_POSS_VAL DOMAIN_ERR_TEXT
             MAND_OPT MAND_ERR_TEXT UNIQUE_CHECK UNIQUE_ERR_TEXT
        INTO (ZSCSDM_OS-FIELD_STATUS, ZSCSDM_OS-CREATED_BY, ZSCSDM_OS-CREATED_ON,
             ZSCSDM_OS-LAST_CHGED_BY, ZSCSDM_OS-LAST_CHGED_ON,
             ZSCSDM_OS-COLUMN_NO, ZSCSDM_OS-KEY_FIELD,
             ZSCSDM_OS-SEARCH_HELP, ZSCSDM_OS-HASH_TOTAL_IND,
             ZSCSDM_OS-VG_CREATED_BY, ZSCSDM_OS-VG_CREATED_ON,
             ZSCSDM_OS-VG_LAST_CHGED_BY, ZSCSDM_OS-VG_LAST_CHGED_ON,
             ZSCSDM_OS-CHECK_DATA_TYPE, ZSCSDM_OS-DT_ERR_TEXT,
             ZSCSDM_OS-LN_ERR_TEXT, ZSCSDM_OS-DP_ERR_TEXT,
             ZSCSDM_OS-SN_ERR_TEXT, ZSCSDM_OS-FIELD_DOMAIN,
             ZSCSDM_OS-FIELD_DATA_TYPE, ZSCSDM_OS-FIELD_LENGTH,
             ZSCSDM_OS-FIELD_DECIMAL, ZSCSDM_OS-FIELD_NEGATIVE,
             ZSCSDM_OS-DOMAIN_POSS_VAL, ZSCSDM_OS-DOMAIN_ERR_TEXT,
             ZSCSDM_OS-MAND_OPT, ZSCSDM_OS-MAND_ERR_TEXT,
             ZSCSDM_OS-UNIQUE_CHECK, ZSCSDM_OS-UNIQUE_ERR_TEXT) FROM ZSCSDM_OS
        WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
        AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
      ENDSELECT.
      CALL FUNCTION 'ZSCSDM_FM_RULES_ENGINE_MODIFY'
        EXPORTING
          IN_OBJECT_ID        = ZSCSDM_MO-OBJECT_ID
          IN_FILE_NAME        = ZSCSDM_OF-FILE_NAME
          IN_FIELD_NAME       = ZSCSDM_OS-FIELD_NAME
          IN_FIELD_DESC       = ZSCSDM_OS-FIELD_DESC
          IN_FIELD_STATUS     = ZSCSDM_OS-FIELD_STATUS
          IN_CREATED_BY       = ZSCSDM_OS-CREATED_BY
          IN_CREATED_ON       = ZSCSDM_OS-CREATED_ON
          IN_LAST_CHGED_BY    = ZSCSDM_OS-LAST_CHGED_BY
          IN_LAST_CHGED_ON    = ZSCSDM_OS-LAST_CHGED_ON
          IN_COLUMN_NO        = ZSCSDM_OS-COLUMN_NO
          IN_KEY_FIELD        = ZSCSDM_OS-KEY_FIELD
          IN_SEARCH_HELP      = ZSCSDM_OS-SEARCH_HELP
          IN_HASH_TOTAL_IND   = ZSCSDM_OS-HASH_TOTAL_IND
          IN_VG_CREATED_BY    = ZSCSDM_OS-VG_CREATED_BY
          IN_VG_CREATED_ON    = ZSCSDM_OS-VG_CREATED_ON
          IN_VG_LAST_CHGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY
          IN_VG_LAST_CHGED_ON = ZSCSDM_OS-VG_LAST_CHGED_ON
          IN_CHECK_DATA_TYPE = ZSCSDM_OS-CHECK_DATA_TYPE
          IN_DT_ERR_TEXT      = ZSCSDM_OS-DT_ERR_TEXT
          IN_LN_ERR_TEXT      = ZSCSDM_OS-LN_ERR_TEXT
          IN_DP_ERR_TEXT      = ZSCSDM_OS-DP_ERR_TEXT
          IN_SN_ERR_TEXT      = ZSCSDM_OS-SN_ERR_TEXT
          IN_FIELD_DOMAIN     = ZSCSDM_OS-FIELD_DOMAIN
          IN_FIELD_DATA_TYPE = ZSCSDM_OS-FIELD_DATA_TYPE
          IN_FIELD_LENGTH     = ZSCSDM_OS-FIELD_LENGTH
          IN_FIELD_DECIMAL    = ZSCSDM_OS-FIELD_DECIMAL
          IN_FIELD_NEGATIVE   = ZSCSDM_OS-FIELD_NEGATIVE
          IN_DOMAIN_POSS_VAL = ZSCSDM_OS-DOMAIN_POSS_VAL
          IN_DOMAIN_ERR_TEXT = ZSCSDM_OS-DOMAIN_ERR_TEXT
          IN_MAND_OPT         = ZSCSDM_OS-MAND_OPT
          IN_MAND_ERR_TEXT    = ZSCSDM_OS-MAND_ERR_TEXT
          IN_UNIQUE_CHECK     = ZSCSDM_OS-UNIQUE_CHECK
          IN_UNIQUE_ERR_TEXT = ZSCSDM_OS-UNIQUE_ERR_TEXT
          IN_TG_CREATED_BY    = ZSCSDM_OS-TG_CREATED_BY
          IN_TG_CREATED_ON    = ZSCSDM_OS-TG_CREATED_ON
          IN_TG_LAST_CHGED_BY = ZSCSDM_OS-TG_LAST_CHGED_BY
          IN_TG_LAST_CHGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON
          IN_TG_STATUS        = ZSCSDM_OS-TG_STATUS
          IN_TRANS_BY_DIRECT = ZSCSDM_OS-TRANS_BY_DIRECT
          IN_TRANS_TABLE      = ZSCSDM_OS-TRANS_TABLE
          IN_TRANS_FIELD      = ZSCSDM_OS-TRANS_FIELD
          IN_TRANS_BY_DEFAULT = ZSCSDM_OS-TRANS_BY_DEFAULT
          IN_TRANS_DEF_VAL    = ZSCSDM_OS-TRANS_DEF_VAL
          IN_TRANS_BY_CONCAT = ZSCSDM_OS-TRANS_BY_CONCAT
          IN_CONCAT_FIELD_1   = ZSCSDM_OS-CONCAT_FIELD_1
          IN_CONCAT_FIELD_2   = ZSCSDM_OS-CONCAT_FIELD_2
          IN_CONCAT_FIELD_3   = ZSCSDM_OS-CONCAT_FIELD_3
          IN_CONCAT_FIELD_4   = ZSCSDM_OS-CONCAT_FIELD_4
          IN_CONCAT_FIELD_5   = ZSCSDM_OS-CONCAT_FIELD_5
          IN_CONCAT_FIELD_6   = ZSCSDM_OS-CONCAT_FIELD_6
          IN_CONCAT_FIELD_7   = ZSCSDM_OS-CONCAT_FIELD_7
          IN_CONCAT_FIELD_8   = ZSCSDM_OS-CONCAT_FIELD_8
          IN_CONCAT_FIELD_9   = ZSCSDM_OS-CONCAT_FIELD_9
          IN_CONCAT_FIELD_10 = ZSCSDM_OS-CONCAT_FIELD_10
          IN_TRANS_BY_REF     = ZSCSDM_OS-TRANS_BY_REF
        IMPORTING
          OUT_RESULT          = RETURN_RESULT.
      IF RETURN_RESULT = 'SUCCESS'.
        MESSAGE S001(ZSCSDM_DMT).
        IF ZSCSDM_OS-TRANS_BY_REF = 'X'.
         NONE_BLANK_COUNTER = 0.
          INSERT_COUNTER = 1.
          DELETE FROM ZSCSDM_REF WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
          AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND REF_COND_TYPE = 'T' AND
          REF_CON_ID = 1.
          CALL METHOD G_EDITOR->GET_TEXT_AS_R3TABLE
            IMPORTING
              TABLE = G_EDITOR_CONTENTS.
         LOOP AT G_EDITOR_CONTENTS INTO NONE_BLANK_CHECK.
           IF NONE_BLANK_CHECK <> ''.
             NONE_BLANK_COUNTER = NONE_BLANK_COUNTER + 1.
           ENDIF.
         ENDLOOP.
          CLEAR INSERT_VALUE.
          LOOP AT G_EDITOR_CONTENTS INTO INSERT_VALUE.
            IF INSERT_VALUE <> ''.
              ZSCSDM_REF-OBJECT_ID = ZSCSDM_MO-OBJECT_ID.
              ZSCSDM_REF-FILE_NAME = ZSCSDM_OF-FILE_NAME.
              ZSCSDM_REF-FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
              ZSCSDM_REF-REF_COND_TYPE = 'T'.
              ZSCSDM_REF-REF_CON_ID = 1.
              ZSCSDM_REF-REF_COND_ROW = INSERT_COUNTER.
              ZSCSDM_REF-CREATED_BY = ZSCSDM_OS-CREATED_BY.
              ZSCSDM_REF-CREATED_ON = ZSCSDM_OS-VG_CREATED_ON.
              ZSCSDM_REF-LAST_CHANGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY.
              ZSCSDM_REF-LAST_CHANGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON.
              ZSCSDM_REF-REF_RULE_STATUS = ZSCSDM_OS-TG_STATUS.
              ZSCSDM_REF-NOT_EXIST_IND = ''.
              ZSCSDM_REF-REF_COND = INSERT_VALUE.
              ZSCSDM_REF-REF_ERR_TEXT = 'Reference Error: The reference condition did not return any results.'.
              INSERT INTO ZSCSDM_REF VALUES ZSCSDM_REF.
             IF INSERT_COUNTER = NONE_BLANK_COUNTER.
               OFFSET_LEN_3AT = STRLEN( INSERT_VALUE ) - STRLEN( '@@@' ).
               IF OFFSET_LEN_3AT >= 0.
                 IF INSERT_VALUE+OFFSET_LEN_3AT(3) NE '@@@'.
                   OFFSET_LEN_DOT = STRLEN( INSERT_VALUE ) - STRLEN( `.` ).
                   INSERT_COUNTER = INSERT_COUNTER + 1.
                   ZSCSDM_REF-OBJECT_ID = ZSCSDM_MO-OBJECT_ID.
                   ZSCSDM_REF-FILE_NAME = ZSCSDM_OF-FILE_NAME.
                   ZSCSDM_REF-FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
                   ZSCSDM_REF-REF_COND_TYPE = 'T'.
                   ZSCSDM_REF-REF_CON_ID = 1.
                   ZSCSDM_REF-REF_COND_ROW = INSERT_COUNTER.
                   ZSCSDM_REF-CREATED_BY = ZSCSDM_OS-CREATED_BY.
                   ZSCSDM_REF-CREATED_ON = ZSCSDM_OS-VG_CREATED_ON.
                   ZSCSDM_REF-LAST_CHANGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY.
                   ZSCSDM_REF-LAST_CHANGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON.
                   ZSCSDM_REF-REF_RULE_STATUS = ZSCSDM_OS-TG_STATUS.
                   ZSCSDM_REF-NOT_EXIST_IND = ''.
                   ZSCSDM_REF-REF_ERR_TEXT = 'Reference Error: The reference condition did not return any results.'.
                   IF INSERT_VALUE+OFFSET_LEN_DOT(1) EQ '.'.
                     ZSCSDM_REF-REF_COND = '@@@'.
                   ELSE.
                     ZSCSDM_REF-REF_COND = '.@@@'.
                   ENDIF.
                 ENDIF.
               ELSE.
                 OFFSET_LEN_DOT = STRLEN( INSERT_VALUE ) - STRLEN( `.` ).
                 INSERT_COUNTER = INSERT_COUNTER + 1.
                 ZSCSDM_REF-OBJECT_ID = ZSCSDM_MO-OBJECT_ID.
                 ZSCSDM_REF-FILE_NAME = ZSCSDM_OF-FILE_NAME.
                 ZSCSDM_REF-FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
                 ZSCSDM_REF-REF_COND_TYPE = 'T'.
                 ZSCSDM_REF-REF_CON_ID = 1.
                 ZSCSDM_REF-REF_COND_ROW = INSERT_COUNTER.
                 ZSCSDM_REF-CREATED_BY = ZSCSDM_OS-CREATED_BY.
                 ZSCSDM_REF-CREATED_ON = ZSCSDM_OS-VG_CREATED_ON.
                 ZSCSDM_REF-LAST_CHANGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY.
                 ZSCSDM_REF-LAST_CHANGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON.
                 ZSCSDM_REF-REF_RULE_STATUS = ZSCSDM_OS-TG_STATUS.
                 ZSCSDM_REF-NOT_EXIST_IND = ''.
                 ZSCSDM_REF-REF_ERR_TEXT = 'Reference Error: The reference condition did not return any results.'.
                 IF INSERT_VALUE+OFFSET_LEN_DOT(1) EQ '.'.
                   ZSCSDM_REF-REF_COND = '@@@'.
                 ELSE.
                   ZSCSDM_REF-REF_COND = '.@@@'.
                 ENDIF.
               ENDIF.
               INSERT INTO ZSCSDM_REF VALUES ZSCSDM_REF.
             ENDIF.
              INSERT_COUNTER = INSERT_COUNTER + 1.
            ENDIF.
          ENDLOOP.
        ELSE.
          DELETE FROM ZSCSDM_REF WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
          AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND REF_COND_TYPE = 'T' AND
          REF_CON_ID = 1.
        ENDIF.
        SAVE_STATUS = 'S'.
        PERFORM SET_MEMORY_SAVE_STATUS.
        SAVE_STATUS = ''.
      ELSE.
        SAVE_STATUS = 'F'.
        PERFORM SET_MEMORY_SAVE_STATUS.
        SAVE_STATUS = ''.
        MESSAGE E101(ZSCSDM_DMT).
      ENDIF.
ENDCASE.
ENDMODULE.                    "USER_COMMAND_9001 INPUT
*&SPWIZARD: INPUT MODULE FOR TS 'TRANSFORM'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TRANSFORM_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
    WHEN C_TRANSFORM-TAB1.
      G_TRANSFORM-PRESSED_TAB = C_TRANSFORM-TAB1.
    WHEN C_TRANSFORM-TAB2.
      G_TRANSFORM-PRESSED_TAB = C_TRANSFORM-TAB2.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
ENDCASE.
ENDMODULE.                    "TRANSFORM_ACTIVE_TAB_GET INPUT
MODULE STATUS_9002 OUTPUT
MODULE STATUS_9002 OUTPUT.
IF CODE_EDITOR IS INITIAL.
    CREATE OBJECT CODE_EDITOR_CONTAINER
       EXPORTING
         CONTAINER_NAME = 'GEN_CODE'
       EXCEPTIONS
         CNTL_ERROR = 1
         CNTL_SYSTEM_ERROR = 2
         CREATE_ERROR = 3
         LIFETIME_ERROR = 4
         LIFETIME_DYNPRO_DYNPRO_LINK = 5.
    CREATE OBJECT CODE_EDITOR
      EXPORTING
        PARENT = CODE_EDITOR_CONTAINER
        WORDWRAP_MODE =
        CL_GUI_TEXTEDIT=>WORDWRAP_OFF
          CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
        CL_GUI_TEXTEDIT=>WORDWRAP_AT_WINDOWBORDER
        WORDWRAP_POSITION = G_EDITOR_LENGTH
        WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
ENDIF.
ENDMODULE.                    "STATUS_9002 OUTPUT
MODULE USER_COMMAND_9002 INPUT
MODULE USER_COMMAND_9002 INPUT.
ENDMODULE.                    "USER_COMMAND_9002 INPUT
MODULE F4_INPUT INPUT
MODULE F4_INPUT INPUT.
TYPES: BEGIN OF VALUES,
    FIELD_NAME TYPE ZSCSDM_OS-FIELD_NAME,
    FIELD_DESC TYPE ZSCSDM_OS-FIELD_DESC,
END OF VALUES.
DATA: PROGNAME TYPE SY-REPID, DYNNUM TYPE SY-DYNNR.
DATA: FILENAME_A TYPE ZSCSDM_OS-FILE_NAME,
        F4_VALUES TYPE TABLE OF VALUES.
PROGNAME = SY-REPID.
DYNNUM   = SY-DYNNR.
SELECT FILE_NAME INTO (FILENAME_A) FROM ZSCSDM_OF
    WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME_TRANS = ZSCSDM_OF-FILE_NAME.
ENDSELECT.
SELECT FIELD_NAME FIELD_DESC FROM ZSCSDM_OS
    INTO CORRESPONDING FIELDS OF TABLE F4_VALUES
    WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = FILENAME_A
    AND FIELD_STATUS = 'A'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD    = 'FIELD_NAME'
      DYNPPROG    = PROGNAME
      DYNPNR      = DYNNUM
      DYNPROFIELD = 'ZSCSDM_OS-TRANS_FIELD'
      VALUE_ORG   = 'S'
    TABLES
      VALUE_TAB   = F4_VALUES.
ENDMODULE.                    "F4_INPUT INPUT
*&      Form GET_MEMORY
      text
FORM GET_MEMORY.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'TraObjectID-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_MO-OBJECT_ID FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraObjectDesc-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_MO-OBJECT_DESC FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileName-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OF-FILE_NAME FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileDesc-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OF-FILE_DESC FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldName-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OS-FIELD_NAME FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldDesc-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OS-FIELD_DESC FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
ENDFORM.                    "GET_MEMORY
*&      Form GET_MEMORY_SAVE_STATUS
      text
FORM GET_MEMORY_SAVE_STATUS.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
DATA: CHECK_SAVE_STATUS(1) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'Save-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT CHECK_SAVE_STATUS FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
SAVE_STATUS = CHECK_SAVE_STATUS.
ENDFORM.                    "GET_MEMORY_SAVE_STATUS
*&      Form SET_MEMORY
      text
FORM SET_MEMORY.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'DtlScreen-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT DETAILS_SCREEN TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraObjectID1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_MO-OBJECT_ID TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraObjectDesc1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_MO-OBJECT_DESC TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileName1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OF-FILE_NAME TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileDesc1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OF-FILE_DESC TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldName1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OS-FIELD_NAME TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldDesc1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OS-FIELD_DESC TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
ENDFORM.                    "SET_MEMORY
*&      Form SET_MEMORY_SAVE_STATUS
      text
FORM SET_MEMORY_SAVE_STATUS.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
DATA: CHECK_SAVE_STATUS(1) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'Save-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT CHECK_SAVE_STATUS FROM MEMORY ID MEM_STR.
IF CHECK_SAVE_STATUS <> 'F'.
    FREE MEMORY ID MEM_STR.
    CHECK_SAVE_STATUS = SAVE_STATUS.
    EXPORT CHECK_SAVE_STATUS TO MEMORY ID MEM_STR.
ENDIF.
CLEAR MEM_STR.
ENDFORM.                    "SET_MEMORY_SAVE_STATUS
*&      Form SET_MEMORY_SAVE_STATUS_RESET
      text
FORM SET_MEMORY_SAVE_STATUS_RESET.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
DATA: CHECK_SAVE_STATUS(1) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'Save-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
CHECK_SAVE_STATUS = ''.
EXPORT CHECK_SAVE_STATUS TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
ENDFORM.                    "SET_MEMORY_SAVE_STATUS_RESET
*&      Form CHANGE_TRANSFORM_TYPE
      text
FORM CHANGE_TRANSFORM_TYPE.
IF ZSCSDM_OS-TRANS_BY_DIRECT = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    CALL METHOD G_EDITOR->SET_READONLY_MODE
      EXPORTING
        READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE.
    SET CURSOR FIELD 'ZSCSDM_OS-TRANS_FIELD'.
ELSEIF ZSCSDM_OS-TRANS_BY_DEFAULT = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    CALL METHOD G_EDITOR->SET_READONLY_MODE
      EXPORTING
        READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE.
    SET CURSOR FIELD 'ZSCSDM_OS-TRANS_DEF_VAL'.
ELSEIF ZSCSDM_OS-TRANS_BY_CONCAT = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    CALL METHOD G_EDITOR->SET_READONLY_MODE
      EXPORTING
        READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE.
    SET CURSOR FIELD 'ZSCSDM_OS-CONCAT_FIELD_1'.
ELSEIF ZSCSDM_OS-TRANS_BY_REF = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    CALL METHOD G_EDITOR->SET_READONLY_MODE
      EXPORTING
        READO

Hello Swathi
I have never used method SET_USER_COMMAND (cl_gui_alv_grid) before so I do not really know its function.
However, you event handler FORM routine belongs to the old-fashioned fm-based ALV lists (e.g. REUSE_ALV_GRID_DISPLAY_LVC) so I doubt whether this will work together.
If you have define a column as HOTSPOT then this trigger the class event HOTSPOT_CLICK.
Correspondingly a double-click on the ALV grid triggers event DOUBLE_CLICK.
For a sample report regarding ALV event handling have a look at the links provided in
2 ALVS IN ONE SCREEN
Regards
Uwe

Free item Indicator in PR (ME51N)

Free Item check box not appearing in PR- item overiview (ME51N).
How can I get that in PR item overview screen????

Hello Atul,
PR is an internal document that User/Department gives to Purchase department for giving details about the requirement that is why SAP doesn't provide free indicator in this transaction me51n.
As PO is an external document and we need to provide the price for making a PO, so that is why SAP provides field in me21n from marking free indicators.
As pricing available in PO is not available in Me51n in the same way free indicator is not availble.
Regards

Free Item UMSON- what table?

Purchase Order Item can be set as free item in Transaction ME21N or ME22N. The screen field is UMSON. Does anybody know what table stores this information?
I tried ST05, where used search for data element UMSON without success.
Any help would be welcome.

Check this table,
TB2BJ Trading Contract: Item Categories
UMSON Free item
Regards,
SaiRam

Field name of free item in ME21N

Similar Messages

Maybe you are looking for