How to get the line information when double click the ALV line?

LOOP AT it_outr.
    AT END OF vornr.
      REFRESH it_out.
      CLEAR it_out.
      LOOP AT it_outt WHERE nplnr = it_outr-nplnr
                        AND vornr = it_outr-vornr.
        MOVE-CORRESPONDING it_outt TO it_out.
        APPEND it_out.
      ENDLOOP.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = g_repid
      i_callback_pf_status_set = 'HANDLE_EVENT_PF_STATUS'
      i_callback_user_command = 'HANDLE_EVENT_USER_COMMAND'
      is_layout                = ls_layo
      it_fieldcat              = lt_fcat
      it_events                = lt_evts1
      is_print                 = ls_prnt
    TABLES
      t_outtab                 = it_out
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
    ENDAT.
When we double click a field, how do we get the line information with the field?
READ TABLE it_out INDEX rs_selfield-tabindex. is not worked, because the table it_out is changing.

hi
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = SY-REPID
*   I_CALLBACK_PF_STATUS_SET          = ' '
     *I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'*
*    I_CALLBACK_TOP_OF_PAGE            = ''
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
   I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
     IS_LAYOUT                          = LAYOUT
     IT_FIELDCAT                        = RT_FIELDCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         = 'X'
*   IS_SEL_HIDE                       =
     I_DEFAULT                         = 'X'
     I_SAVE                            = 'A'
     IS_VARIANT                        = G_VARIANT
     IT_EVENTS                         = XT_EVENT
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = IT_FINAL
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE U_UCOMM.
    WHEN '&IC1'.
      READ TABLE IT_FINAL INDEX US_SELFIELD-TABINDEX INTO WA_FINAL.
      CHECK SY-SUBRC EQ 0.
      CASE US_SELFIELD-FIELDNAME.
        WHEN 'VBELN'.
          SET PARAMETER ID: 'VF' FIELD WA_FINAL-VBELN.
          CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
      ENDCASE.
      ENDCASE.
regard,
nawa

Similar Messages

How does this happen: The picture of recent apps you get when double clicking the home button showed in Settings-Wifi that I had been connected to a network I have not been near for two months. Its not a recent "image" of Settings-Wifi. Can anyone explain

How does this happen: The picture of recent apps you get when double clicking the home button showed in Settings-Wifi that I had been connected to a network I have not been near for two months. Its not a recent "image" of Settings-Wifi. Can anyone explain?

Greetings,
I've never seen this issue, and I handle many iPads, of all versions. WiFi issues are generally local to the WiFi router - they are not all of the same quality, range, immunity to interference, etc. You have distance, building construction, and the biggie - interference.
At home, I use Apple routers, and have no issues with any of my WiFi enabled devices, computers, mobile devices, etc - even the lowly PeeCees. I have locations where I have Juniper Networks, as well as Aruba, and a few Netgears - all of them work as they should.
The cheaper routers, Linksys, D-Link, Seimens home units, and many other no name devices have caused issues of various kinds, and even connectivity.
I have no idea what Starbucks uses, but I always have a good connection, and I go there nearly every morning and get some work done, as well as play.
You could try changing channels, 2.4 to 5 Gigs, changing locations of the router. I have had to do all of these at one time or another over the many years that I have been a Network Engineer.
Good Luck - Cheers,
M.

When double clicking on alv ,want to get the column name

Hello there,
    I'm displaying the value of internal table in an alv using Reuse_alv_grid_display method ,using fieldcatalog.I want to know the column name when double clicking on a particular line .If the the fieldname is 'MATNR' then i want to check that column name.
    If anybody have any idea plz terply me.
Thanking you neon

for that you have to use the USER_COMMAND event.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = sy-repid
   I_CALLBACK_USER_COMMAND      = 'USER_COMMAND'
   IT_FIELDCAT                       = it_fcat
TABLES
    t_outtab                          = itab
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
FORM USER_COMMAND using ucomm type sy-ucomm
                                               selfield type slis_selfield.
data: fieldname(30).
case ucomm.
when '&IC1'.
case selfield-fieldname.
   when 'MATNR'.
    message 'clicked on Matnr' type 'I'.
   when 'POSNR'.
   endcase.
endcase.
ENDFORM.

Can i delete the new feature that shows your recent calls when double clicking the home button?

Can the feature in the new IOS8 that shows your recent calls when double clicking the home button be deleted?

settings - mail,contacts,calendar - show in app switcher - OFF

I am getting a 404 error when I click the link to request my upgrade.

I am getting a 404 error when I click the link to request my Mountain Lion upgrade. I have a brand new MacBook Pro so I don't understand why I'm getting this error.

Make sure you are logged in to the Adobe site, have cookies enabled, clear your cookie cache. If it continues to fail try using a different browser.

In the Program Panel, when I click the Spacebar (i.e., "Play"), the image does not advance.

In the Program Panel, when I click the Spacebar (i.e., "Play"), the image does not advance. When I click "Play" again (i.e., "Stop"), the still image confirms that we have moved on. Please, What must I do so that when I click the Spacebar (i.e., "Play"), the image does indeed advance? Thanks!

This pertains to Adobe Premiere Pro CS6:
Thanks for your prompt reply. This is my first post and I appreciate your patience. I imported media into the Project Panel. From there, I placed a few clips into a sequence in the Timeline. In the Timeline, I clicked on a clip. I then double clicked in Program Panel, and could then see the clip. However, when I click on the space bar, (i.e., "Play") in the Program Panel, the image in that panel does not advance. When I click "Play" again (i.e., "Stop"), the still image confirms that we have moved on a bit in the footage. (The audio plays normally, confirming that we are advancing in time. )
I want to be able to press the space bar in the Program Panel and to see the "motion picture" in the Program Panel.
Please, What must I do so that when I click the Spacebar (i.e., "Play") in the Program Panel, the image does indeed advance? Thanks!
Not sure I yet have the capabibility of providing a URL of the problem.
Thanks for your guidance,
David

When I sync my iphone it says that there is newer version of the software but when I click the 'update'button I am told that 'itunes' is the latest version?

when I sync my iphone it says that there is newer version of the software but when I click the 'update' button I am told that 'itunes' is the latest version? There seem to be a few apps that are not compatible with my phone and I am wondering if that is because it is not up to date or beacuse it is a 3gs?

Snow Leopard requirements here:
http://support.apple.com/kb/SP575
I recommend no less than 2GB's of RAM. There is no download for SL, you must purchase from Apple, $29 at any Apple store. Leopard is no longer sold by Apple. About the only place you can find a retail disk is eBay, however the prices are getting ridiculous.

A word document was emailed to me. I can open the document without a problem. Is there a way for me to type on the document.... to fill out the form? When I click the fields, the virtual keyboard does not appear.

A word document was emailed to me. I can open the document without a problem on my iPad 2. Is there a way for me to type on the document.... to fill out the form? When I click the fields, the virtual keyboard does not appear.

If you want to edit a word document then you will need an app on your iPad that supports word so that you can copy them to it via 'open in' e.g. Apple's Pages app or a third-party app such as Documents To Go or QuickOffice HD

How do I get the line above the tasks, which allows you to edit the cell contents, without double clicking the cell?

As title says.
Normally in Gantt Chart View, above the tasks there's a line which displays the contents of the cell you have selected, and allows you to edit the contents without having to double click the cell.
In my case, this line is not there, and it is slightly hindering my work.
So, does anyone know where I should go to re-enable this line?
Thanks a lot!

Hi,
Go to file, then options, then display and check the "entry bar" option.
http://www.manageprojectsonsharepoint.com/blog/2012/04/02/microsoft-project-quick-tip-entry-bar/
Hope this helps.
Guillaume Rouyre - MBA, MCP, MCTS

***How to Invoke backing bean method by DOUBLE-CLICK the table ROW!!***

Hi,
How can I collect the selected row value & navigate to next page by DOUBLE-CLICK the result table row.
My application got searchResult page where I am displaying the list of user in result table. Then selecting any one row and navigating to master details page by clicking the continue button. Button Action method will collect the selected row userID which I am forwarding to the masterDetails page.
Same functionality I want to do by double click the row instead of clicking the button!!. I want to trigger the backing bean method if the user double click the row basically. Please help me in this how to do this?
Current button action method:
*public String userSelected() {*
FacesCtrlHierNodeBinding binding = (FacesCtrlHierNodeBinding) searchResultTable.getSelectedRowData();
currentRow = binding.getRow();
selectedNetID = (String) currentRow.getAttribute("netid");
System.out.println("selectedNetID -->"+selectedNetID);
requestContext.getPageFlowScope().put("netid",selectedNetID);
return "continue";
*}*

Puthanampatti ,
Yes, I am using the same. Below is my code. I am trying to get the object of the MAIN jspx page region (where I am displaying the fragments) and refresh the one. But cant able to get the object for the region it is returning null. without refresh seems the navigation wont work.
public void doDbClick(ClientEvent clientEvent) {
FacesCtrlHierNodeBinding binding = (FacesCtrlHierNodeBinding) searchResultTable.getSelectedRowData();
currentRow = binding.getRow();
selectedNetID = (String) currentRow.getAttribute("netid");
System.out.println("selectedNetID -->"+selectedNetID);
requestContext.getPageFlowScope().put("netid",selectedNetID);
try{
FacesContext facesCtx = FacesContext.getCurrentInstance();
NavigationHandler nh = facesCtx.getApplication().getNavigationHandler();
nh.handleNavigation(facesCtx, "", "continue");
System.out.println("region obj -->" +facesCtx.getViewRoot().findComponent("advse1"));
// Refresh the current region; advse1 is the id of the region component inside jspx page
AdfFacesContext.getCurrentInstance().addPartialTarget(facesCtx.getViewRoot().findComponent("advse1"));
catch(Exception e){
System.out.println("Error is: " +e);
Is this correct coding to get the region object?? actually the "result table" and "Master details" are 2 different fragments which are linked with task-flow and the task flow is part of main jspx page as a region. I am using that region ID to get the obj, but cant able to get so....!!! any idea

Tracks are panning to the right alone when I click the virtual keyboard

Hello,
This is a very weird problem I think. It started happening sometime ago and I really have no idea how to fix it: When I click the virtual midi keyboard multiple times, the track start panning to the right alone. Does anyone have an idea how to fix this?
Thank you a lot

Hi
You should find these in the User Home folder library (which is hidden by default in Lion):
1) In the Finder, use the Go menu whilst holding down the Option (Alt) key... the Library will appear in the 'Go' menu.
2) Navigate to (<user>):Library:Application Support:Logic:Project Templates
You should find the ones you are looking for in there
HTH
CCT

After extracting the Beta 4, when I click the Icon on the desktop, it goes back to the download page of 3.16.

I had a pop up on opening firefox that I should upgrade to 3.16, so I did.
After extracting installing, when I click the firefox icon on the desktop, I get a download page to 3.16.
I uninstalled Firefox. Restarted the machine and downloaded the Beta4.
After it installed, when I click the firefox icon on the desktop, I get to the download page of 3.16.

First you should try logging out of your iTunes Store account (settings > iTunes Store > accounts) and then back in again.
If that doesn't help, try resetting the Apple TV (Settings > General > Reset > Reset all settings). You should also try restarting your router.
If both of the above don't help, you should try a restore (Settings > General > Reset > Restore).

A new tab won't open since the latest upgrade when I click the + at the top?

new tabs open every other way fine, but nothing happens when I click the "+" in the tab row to open a new tab.

If something works in safe mode but not otherwise, it probably means that an extension is blocking it. Start disabling extensions until you find out which one is the problem.

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

How to get an empty form when we run the page?

Hi all!
Hope you are well
My question is, how to get an empty form at run time? means when we run the page, text fields are filled with blank....Could anyone please help me with this..
Thanks in advance,
nanda.

Hi Nanda,
Just follow these steps:
1) Create a bounded taskflow (uncheck the create with fragments checkbox)
2) Drag the CreateInsert operation on your bounded taskflow and mark it as the default activity
3) Drag a view and link the CreateInsert to the view component using a control flow case
4) Double click on the view to create the page
5) Drag the view object on the page as an ADF form
6) Go back to your bounded taskflow and from the General tab make sure under visibitliy you select "url-invoke-allowed"
Run you tasfklow and your form will be rendered in insert mode.
Regards
Antonis

How to get the line information when double click the ALV line?

Similar Messages

Maybe you are looking for