Populate Template Field by Field Name reference

i am assuming that this is a simple question but I could not find an answer for it in help, forums or book i have
I wanted to allow a user to define which and how many fields are placed on a report via template fields and parameter definition.
The fields in my table are named by year (eg "2004",'2005", etc)
The parameters are startYear and endYear
I wanted to add or populate TemplateFields with the selected year fields
I cant find a way to reference a field by name/variable substitution
something like:
set templateField1 := MyDataSource.Table[{?yearParameter1}]
or
set templateField1 := MyDataSource.Table["2004"]
or
set templateField1 := MyDataSource.Table.{?yearParameter1}
i dont really want to hardcode a case switch statement for templateField assignment. Even better would be use an array of Params to add an array of Fields to the report
Any ideas? i am using CR2008 natively without other IDE
tia

Not possible without hardcoding. It is possible using the SDK

Similar Messages

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

Vendor name & Reference field to be copied to payment document

Hi Gurus,
I am doing vendor paymen by t.code F110 . I want to copy vendor name and reference field to be copied from original booked billing document to payment document TEXT Field and Reference respctively. How do i do the same ?? pleae advise.
Regards
AVINASHt

Hi Avinash,
Were you able to populate the field XBLNR in the payment document with the Vendor invoice number field? Kindly let me know how you were able to successfully do it.
Thanks,
Thameem

Customs reference number( field name # GTS_CUSREF_NO) in material document

Hi Friends,
While doing GR am geting document number and can see that in MB03. Now in MKPF table there is field called Customs reference number( field name # GTS_CUSREF_NO) , and after putting material document number in MKPF am getting all the detail including Customs reference number.
Now my question is where can I see the detail of Customs Reference number in material document in t code (MB03).
Any pointers
Regards

no reply closing the thrd.

Field name issues when spawning from template

I am currently spawning a template multiple times in my document (with the field names being changed), but I am NOT spawning them at the end. Rather, they all must get spawned to the same page. This results in every corresponding field on every spawned page having the same prefix, e.g. P1.template.field.
How can I avoid this? Also, is there any way to remove the prefix from just a few field names that I actually WANT to be the same?
Thanks!

For your first question, can your provide a bit of background and describe what you're trying to accomplish?
To simplify this, pretend I have a single template. My template has a textbox that the user fills. When the user reaches the end, he must spawn a new page. This page should appear immediately after the current one so he can continue typing. However, if the user wants to go back and insert a page between two others, the document lets him do that. The problem is that now the newly spawned page has the same field names as the page right after it because both were spawned at the same page number in the document.
For your last question, you can have more than one (hidden) template in a document, so you could set up another for just the fields that you want to be the same, and spawn it.
I would like these fields to appear on the same page as all the other fields... can you do that with multiple spawns? For example, I have a text box on every spawned page with a title in it. I'd like that text box to be identical on all the pages and reflect any changes to the title made on any of the pages. If all the text boxes have different field names, I could write some script to change all the others, but I'd rather not have to add extra code if I can keep those few field names the same.

Generic / variable reference to json array field name

hi -- I have a javascript function that I want to make variable-based, so it can be used throughout my application.
It creates and parses a json object. I ultimately need to reference a field in that object. The field name is the name of database column
that was queried in the called application process.
For example, if the query executed was: select my_id from my_table where my_name = 'the_name', and the object that holds the parsed
AJAX response is jsonobj, then I need to reference: jsonobj.row[0].my_id
I don't want my_id to be hardcoded in the reference. Rather, I want to pass the string 'my_id' into the javascript function (let's call
the variable dest_item_name) and then reference (something like): jsonobj.row[0].<dest_item_name>.
(How) can I do this? Please tell me I can! :)
Thanks,
Carol

Hmmm, well, I thought I described my goal in the first post... but I'll try again.
hi -- I have a javascript function that I want to make variable-based, so it can be used throughout my application.
The function does this:
ajaxRequest = new htmldb_Get(null,&APP_ID.,'APPLICATION_PROCESS=LOOKUP_VALUE',0);
ajaxRequest.addParam('x01', source_item_value); -- equal to 'basin'; this is the value that will be used to lookup the value of dest_column_name
ajaxRequest.addParam('x02', source_column_name); -- equal to 'my_name'; this is the name of the database table column that will be = 'basin'
ajaxRequest.addParam('x03', dest_item_name); -- equal to P3_MY_ID; this is the name of the page item that will be set to the returned value
ajaxRequest.addParam('x04', dest_column_name); -- equal to 'my_id'; this is the name of the table column that gets queried
ajaxRequest.addParam('x05', lookup_table_name); -- my_data; this is the table to query
ajaxResponse = ajaxRequest.get();
if (ajaxResponse) {
var jsonobj= ajaxResponse.parseJSON();
$s(dest_item_name, jsonobj.row[0].my_id);
The goal of this javascript and application procedure is to have a generic method for looking up values
in the database. In the above example, I want to query my_data to get the value of my_id where my_name = 'basin'.
The application procedure LOOKUP_VALUE uses the x variables to construct that SQL query. For the above values, the
returned query is: select my_id from my_data where my_name = 'basin';
Then I set my dest_item_name (P3_MY_ID) to the value in the parsed json object. But as you can see, if I'm querying a different
table with different column names, the reference to jsonobj.row[0].my_id won't work, because the database column name
will be different. I've gotten around this by aliasing the queried field to RETURN_VALUE, so I'm just doing:
$s(dest_item_name, jsonobj.row[0].rerturn_value); -- which works great.
But my goal was to somehow be able to reference the variable dest_item_name (which is the name of the queried database
column) in my $s set statement.
Possible? If so, I'm sure it could come in handy at some point.
Thanks,
Carol

Trying to reference field name of my record Type in my procedure!

Hello,
I am stuck. I am trying to reference field names in my record type declared in my Package declaration.
Here is an example. Don't be scared, it's a very simple package. I just need some directions what to use to accomplish this.
--look into this part of the package body
FOR cur_rate IN c_rate
LOOP
rate_data(1).field_name := cur_rate.rate_pct;
--field name = AK_PCT, AL_PCT and so on ...
END LOOP;
END rate_tab_qry;
CREATE OR REPLACE PACKAGE rate_pkg IS
TYPE rate_rec IS RECORD (
id cycle_rates.id%TYPE
,cycle cycle_rates.cycle%TYPE
,scac cycle_rates.scac%TYPE
,gbloc cycle_rates.gbloc%TYPE
,code cycle_rates.code%TYPE
,AK_PCT cycle_rates.rate_pct%TYPE
,AL_PCT cycle_rates.rate_pct%TYPE
,AR_PCT cycle_rates.rate_pct%TYPE
,so on...
TYPE cycle_rate_tab IS TABLE OF rate_rec INDEX BY BINARY_INTEGER;
PROCEDURE rate_tab_qry(rate_data IN OUT cycle_rate_tab,
p_id cycle_rates.id%TYPE,
p_cycle cycle_rates.cycle%TYPE,
p_scac cycle_rates.scac%TYPE,
p_gbloc cycle_rates.gbloc%TYPE,
p_code cycle_rates.code%TYPE);
END;
CREATE OR REPLACE PACKAGE BODY rate_pkg IS
PROCEDURE rate_tab_qry(rate_data IN OUT cycle_rate_tab,
p_id cycle_rates.id%TYPE,
p_cycle cycle_rates.cycle%TYPE,
p_scac cycle_rates.scac%TYPE,
p_gbloc cycle_rates.gbloc%TYPE,
p_code cycle_rates.code%TYPE)
IS
CURSOR c_rate IS
SELECT state, rate_pct
FROM cycle_rates
WHERE cycle = p_cycle
AND scac = p_scac
AND gbloc = p_gbloc
AND code = p_code;
BEGIN
rate_data(1).id := p_id;
rate_data(1).cycle := p_cycle;
rate_data(1).scac := p_scac;
rate_data(1).gbloc := p_gbloc;
rate_data(1).code := p_code;
FOR cur_rate IN c_rate
LOOP
rate_data(1).field_name := cur_rate.rate_pct;
--field name = AK_PCT, AL_PCT and so on ...
END LOOP;
END rate_tab_qry;
I need to know, how to reference my field name for each state in my procedure that are in my record type. The problem is it won't allow me to use something like this.
select state || '_PCT
from cycle_rates;
which would eventually show me each state concatenated with '_PCT, e.g. AK_PCT and that's my field names.
For example,
FOR cur_rate IN c_rate
LOOP
rate_data(1).field_name := cur_rate.rate_pct;
--field_name = AK_PCT, AL_PCT and so on...
END LOOP;
I would appreciate it if somene can direct me. Thanks.
Message was edited by:
[email protected]

This is a sample output from my cusror. Just to make it easier for you guys to see it.
ST RATE_PCT
AK 0
AL 2
AR 2
AZ 2
CA 2
CO 2
CT 2
DC 2
DE 2
FL 2
Hope it helps.

Reference field name changes

I'm working on two sheets, one with all the nitty-gritty details of my bills, the other a summary.
When I wanted to put an if() formula that reads a cell in the summary sheet to read from one field in the details screen the Field Name changes. It was working on most of the fields until I got to one set of them then this happened:
when I put in
=IF('Bill/Exp Comparator' :: '12/29/09' J C Penney="","",'Bill/Exp Comparator' :: '12/29/09' J C Penney)
and hit enter I'd get
=IF('Bill/Exp Comparator' :: '12/29/09' '3/9/10' C Penney="","",'Bill/Exp Comparator' :: '12/29/09' '3/9/10' C Penney)
I would delete the '3/9/10' and hit enter again, it would change back to it. I don't know why is it doing it with one field or how to stop it.
This is another reason why I should stick to a Windows' product.

MWSibert wrote:
2. I don't know what you mean by:
<startupVolume>:Users:<yourAccount>:Library:Preferences:com.apple.iWork.Numbers. plist
<startupVolume>:Users:<yourAccount>:Library:Preferences:com.apple.iWork.Numbers. LSSharedFileList.plist
These are the paths to two preferences files that could be causing the abnormal behaviour.
Go to the Finder, open a new Finder Window.
In the sidebar, the house icon with your (user)name under it is <yourAccount>. Start there with a double click or single click, depending which view (icons, list or columns) you are using in the Finder Window, to open that item. In the new list that opens, repeat with the next item (Library) in the path.
The last item in the path is a preferences file, identified by the .plist suffix on the filename.
Preferences files are constantly being read, changed and written to by the application, and occasionally become corrupted. Deleting them is a common 'first aid' step. The application (Numbers in this case) will create a new, clean copy of the file when the need arises.
if this is using a script, I'm not practiced at that, and the "LSSharedFileList" part bugs me. "share" with what, where, whom? Is this opening my computer to others without my knowledge?
If your profile is correct (it says you are using Mac OS X v10.4.11), you are unlikely to find the second file (com.apple.iWork.Numbers.LSSharedFileList.plist). This is a file associated with Launch Services, and was introduced in OS X v 10.5. It's on Yvan's machine as he has Numbers set up to Launch as one of his log in items.
I don't mind emailing a template because it's nothing impressive to anybody. Would you mind if I send a template?
Go ahead. Please put "Numbers Ref Field Changes" in the subject line. My address is available in my profile—click my neme to the left of this message to get there.
Regards,
Barry

Changing the field names in a CFQUERY object

Hello, I wonder whether you know the answer to this?
I want to change the names of the fields in a CFQUERY result
set after I have retrieved the results from the database (ie. I
can't use "AS" in the original SQL statement). I can think of 2
ways to do this - use the query-a-query (CFSQL) feature or just
build and populate a new query object, as set out below:
<cfquery name="CustList" datasource="name">
SELECT CustId,CustName,CustAddress FROM Customers
WHERE OrderStatus='P'
</cfquery>
OPTION#1:
<cfqueryname="GenericList" type="query">
SELECT CustId AS Id,CustName AS Name,CustAddress AS Address
FROM CustList
</cfquery>
OPTION#2:
<cfset GenericList = QueryNew("Id,Name,Address")>
<cfloop query="CustList">
<cfset unused = QueryAddRow(GenericList)>
<cfset unused =
QuerySetCell(GenericList,"Id",CustList.CustId)>
<cfset unused =
QuerySetCell(GenericList,"Name",CustList.CustName)>
<cfset unused =
QuerySetCell(GenericList,"Address",CustList.CustAddress)>
</cfloop>
Do you know which of these would be more efficient? And is
there a better way, whereby I can maniplulate the names of the
columns in the original query (ie. so that I can rename the
"CustName" field to "Name" and then use "CustList.Name" directly)?
Thanks!

Thanks guys!
If there is a close to zero overhead to the simple
query-a-query then that seems like the way to go, with no need to
look for a means of manipulating or modifying the original query.
The reason I want to change the field names is so that the
rest of my code can contain references to "CustList.Name" whereas
otherwise I would have to do something like
"Evaluate('CustList.#NameField#')" which is horribly messy. And the
way the original query is generated means I can't use "AS" in it,
but I still want to use the same code to work with that query
result and other query results that share similar/related data with
different field names.

Mandatory fields With reference to Material types

Dear Gurus,
I need to make few fields as mandatory with reference to material types while creation of the material master data.
For example:
For Semi finished and Finished Schedule margin key is required(mandatory)
For Raw Materials Schedule margin key is optional.
Regards,
Siddharth

Hi
find following step to make field mandatory for material type
Follow the stpes for making field as optional, required entry
1 click the tab ,(Which is u want to be Required entry )and get the field name by pressing F1 key and then
2.Go to T.Code: OMSR and enter that field name and get Selection Group
once you get selection group and field name
3 Use t.Code: OMS2 and click your material type and in next screen check Field reference ( you have assigned for material type; example :;For ROH material type the Field reference is ROH
3. Use T.code:OMS9,, Double Click your Field Reference and select field selection Group , & select round box of Required Entry or optional and save
check following link you will get clear idea [How to configure the fields required for each Material type ?;
Regards
Kailas ugale

Getting an object's field name

In the snippet of code shown below, 'parent' represents a UI dialog, and 'child' represents one of the components of the dialog. What I would like to know is the field name of 'child'. The variable 'fieldName' would contain the name I am seeking, if I knew how to determine the value of 'ii' that corresponds to the object 'child'.
I hope you can help.
Thanks,
Miguel
String getFieldName(Object parent,Component child) {
Class cl = parent.getClass();
Field [] fields = cl.getDeclaredFields();
String fieldName = fields[ii].getName();
// problem: how to get 'ii' that corresponds to 'child'?
return fieldName;
}

Is there a way to get the
corresponding array of component objects? It depends on the way the "parent" class is defined.
For example (a BAD example, but an example):
I could have the parent keep it's components in a HashMap, with a key of the component type and a value of an ArrayList that contains each component matching the component type.
This would be very annoying to deal with, and hard to find any given component (whether reflectively or with normal code).
If I can get
the value of a field (Object val =
field.get(parent);), there must be a way to get the
reference to the object that correspond to the pair
'field','parent'.
Thanks.Huh?
What do you think field[1].get(parent) returned?
It's the value that the field is referring to (e.g. the actual object refered to by the field).
I think dubwai's questions about "what are you trying to do" are very relevant. Using reflection like this usually means the design is lacking some important functionality

Address Book field names changing for "imported" data

I'm migrating from a thousand year old Palm Pilot that has served me so well to an iPhone. So it's time to get my contacts into OSX Address Book.
I have tried moving the data a couple of ways - exporting vCards and text files from the Palm Desktop software.
I did extensive editing of the text file in MS Excel to get the data into good order.
I have set up a template in the Address Book preferences to create fields that I want/need. Some are generic default field names, some have custom names. eg. I want to see a field called "Bus. Phone" not one called "work". Call me picky.
I get the same basic result no matter if I import the vCard file or a text file - The names of the fields just show up with very generic names in the imported data. I should note that creating a NEW record seems to use the field names that I have specified in the preferences.
Also, when importing the text file, Address Book asks me to assign the field names for certain fields (while it seems smart enough to know what labels to use for other fields all on it's own). However, the Field Names available in the drop down menu ARE NOT the ones that I have set up in the prefs. I seem limited to the generic default field names only.
Can anybody tell me how to get the field names to be what I want them to be for address data that is being imported like this?
Thanks for any suggestions - this has been driving me crazy as it would seem to me to be a pretty basic process. (I mean, the Address Book has this import functionality and custom field name functionality built in so it should work right?!)
Allen

No sooner do I ask than I notice that other people have asked the same question. In one of the reply's I saw mention of a product called "Abee".
I tracked it down and it did the job for me! Custom Field names live on!
It's at:
http://www.sillybit.com/abee/

Is there a way to rename multiple form field names with a "b" at the end?

I have a two page form, both are identical. I need to rename all the field names on page 2 with a "b" at the end of the file name so they dont conflict with that of the first page. Is there any fast way of doing this without renaming each individual one at at time? I have a LOT to do!

It's not possible with JavaScript. The name property of a field is read-only.
I would suggest making a template from the first page and then spawn a new page from it.
If you do it from a script make sure you set the bRename property to true and the form fields will be automatically renamed, but you can't specify the name, it will be in following pattern:
P<Page Number>.<Template Name>.<Original Field Name>

XML Schema Collection (SQL Server 2012): How to create an XML Schema Collection that can be used to Validate a field name (column title) of an existing dbo Table of a Database in SSMS2012?

Hi all,
I used the following code to create a new Database (ScottChangDB) and a new Table (marvel) in my SQL Server 2012 Management Studio (SSMS2012) successfully:
-- ScottChangDB.sql saved in C://Documents/SQL Server XQuery_MacLochlainns Weblog_code
-- 14 April 2015 09:15 AM
USE master
IF EXISTS
(SELECT 1
FROM sys.databases
WHERE name = 'ScottChangDB')
DROP DATABASE ScottChangDB
GO
CREATE DATABASE ScottChangDB
GO
USE ScottChangDB
CREATE TABLE [dbo].[marvel] (
[avenger_name] [char] (30) NULL, [ID] INT NULL)
INSERT INTO marvel
(avenger_name,ID)
VALUES
('Hulk', 1),
('Iron Man', 2),
('Black Widow', 3),
('Thor', 4),
('Captain America', 5),
('Hawkeye', 6),
('Winter Soldier', 7),
('Iron Patriot', 8);
SELECT avenger_name FROM marvel ORDER BY ID For XML PATH('')
DECLARE @x XML
SELECT @x=(SELECT avenger_name FROM marvel ORDER BY ID FOR XML PATH('Marvel'))--,ROOT('root'))
SELECT
person.value('Marvel[4]', 'varchar(100)') AS NAME
FROM @x.nodes('.') AS Tbl(person)
ORDER BY NAME DESC
--Or if you want the completed element
SELECT @x.query('/Marvel[4]/avenger_name')
DROP TABLE [marvel]
Now I am trying to create my first XML Schema Collection to do the Validation on the Field Name (Column Title) of the "marvel" Table. I have studied Chapter 4 XML SCHEMA COLLECTIONS of the book "Pro SQL Server 2008 XML" written by
Michael Coles (published by Apress) and some beginning pages of XQuery Language Reference, SQL Server 2012 Books ONline (published by Microsoft). I mimicked Coles' Listing 04-05 and I wanted to execute the following first-drafted sql in
my SSMS2012:
-- Reference [Scott Chang modified Listing04-05.sql of Pro SQL Server 2008 XML by Michael Coles (Apress)]
-- [shcColes04-05.sql saved in C:\\Documents\XML_SQL_Server2008_code_Coles_Apress]
-- [executed: 2 April 2015 15:04 PM]
-- shcXMLschemaTableValidate1.sql in ScottChangDB of SQL Server 2012 Management Studio (SSMS2012)
-- saved in C:\Documents\XQuery-SQLServer2012
tried to run: 15 April 2015 ??? AM
USE ScottChangDB;
GO
CREATE XML SCHEMA COLLECTION dbo. ComplexTestSchemaCollection_all
AS
N'<?xml version="1.0"?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="marvel">
<xsd:complexType>
<xsd:all>
<xsd:element name="avenger_name" />
<xsd:element name="ID" />
</xsd:all>
</xsd:complexType>
</xsd:element>
</xsd:schema>';
GO
DECLARE @x XML (dbo. ComplexTestSchemaCollection_all);
SET @x = N'<?xml version="1.0"?>
<marvel>
<avenger_name>Thor</name>
<ID>4</ID>
</marvel>';
SELECT @x;
GO
DROP XML SCHEMA COLLECTION dbo.ComplexTestSchemaCollection_all;
GO
I feel that drafted sql is very shaky and it needs the SQL Server XML experts to modify to make it work for me. Please kindly help, exam the coding of my shcXMLTableValidate1.sql and modify it to work.
Thanks in advance,
Scott Chang

Hi Scott,
2) Yes, FOR XML PATH clause converts relational data to XML format with a specific structure for the "marvel" Table. Regarding validate all the avenger_names, please see below
sample.
DECLARE @x XML
SELECT @x=(SELECT ID ,avenger_name FROM marvel FOR XML PATH('Marvel'))
SELECT @x
SELECT
n.value('avenger_name[1]','VARCHAR(99)') avenger_name,
n.value('ID[1]','INT') ID
FROM @x.nodes('//Marvel') Tab(n)
WHERE n.value('ID[1]','INT') = 1 -- specify the ID here
--FOR XML PATH('Marvel') --uncommented this line if you want the result as element type
3)i.check the xml schema content
--find xml schema collection
SELECT ss.name,xsc.name collection_name FROM sys.xml_schema_collections xsc JOIN sys.schemas ss ON xsc.schema_id= ss.schema_id
select * from sys.schemas
--check the schema content,use the name,collection_name from the above query
SELECT xml_schema_namespace(N'name',N'collection_name')
3)ii. View can be viewed as virtual table. Use a view to list the XML schema content.
CREATE VIEW XSDContentView
AS
SELECT ss.name,xsc.name collection_name,cat.content
FROM sys.xml_schema_collections xsc JOIN sys.schemas ss ON xsc.schema_id= ss.schema_id
CROSS APPLY(
SELECT xml_schema_namespace(ss.name,xsc.name) AS content
) AS cat
WHERE xsc.name<>'sys'
GO
SELECT * FROM XSDContentView
By the way, it would be appreciated if you can spread your questions into posts. For any question, feel free to let me know.
Eric Zhang
TechNet Community Support

How to display the field name in the tabulated view for a content query web part

I have added a content query web part changed the web part file to include custom columns imported and reffered itemstyle.xsl
to include the tabulated view for the content query.
However the way it is displayed is such that only the content is displayed.
As i am using a tabular view wto display the data, i want to display their field names as well.

Hi ,
According to your description, my understanding is that you need to display the field in the tabulated view for a content query web part.
For your issue, please refer to the code as below:
<xsl:template name="VendorCustomStyle" match="Row[@Style='VendorCustomStyle']" mode="itemstyle">
<html>
<table width="100%">
<xsl:if test="count(preceding-sibling::*)=0">
<tr>
<td width="8%" valign="top"><div class="item"><b>Vendor ID</b></div></td>
<td width="12%" valign="top"><div class="item"><b>Vendor Name</b></div></td>
<td width="50%" valign="top"><div class="item"><b>Vendor Description</b></div></td>
<td width="10%" valign="top"><div class="item"><b>Vendor Country</b></div></td>
<td width="10%" valign="top"><div class="item"><b>Vendor Date</b></div></td>
<td width="10%" valign="top"><div class="item"><b>Created By</b></div></td>
</tr>
</xsl:if>
<tr>
<td width="8%" valign="top"><div class="item"><xsl:value-of select="@VendorID" /></div></td>
<td width="12%" valign="top"><div class="item"><xsl:value-of select="@Title" /></div></td>
<td width="50%" valign="top"><div class="item"><xsl:value-of select="@Vendor_x005F_x0020_Description" disable-output-escaping="yes" /></div></td>
<td width="10%" valign="top"><div class="item"><xsl:value-of select="@Vendor_x005F_x0020_Country" /></div></td>
<td width="10%" valign="top"><div class="item"><xsl:value-of select="@Vendor_x005F_x0020_Date" /></div></td>
<td width="10%" valign="top"><div class="item"><xsl:value-of select="@Author" /></div></td>
</tr>
</table>
</html>
</xsl:template>
For more information, please have a look at the blog:
http://www.codeproject.com/Articles/756834/Customizing-the-Content-Query-Web-Part-and-Item-St
http://msdn.microsoft.com/en-us/library/ms497457.aspx
http://clarksteveb.hubpages.com/hub/Customized-Content-Query-Web-Part-CQWP-in-SharePoint-2007-with-results-Tabbed-Grouped-and-in-an-HTML-Table
http://blog.sharepointexperience.com/customitemstyle/
Best Regards,
Eric
Eric Tao
TechNet Community Support

Populate Template Field by Field Name reference

Similar Messages

Maybe you are looking for