動的構造

*----------------------------------------------------------------------*
*      -->P_TC_NAME  name of tablecontrol
*----------------------------------------------------------------------*
 FORM FCODE_TC_MARK_LINES USING P_TC_NAME
                                P_TABLE_NAME
                                P_MARK_NAME.
*&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------*
   DATA L_TABLE_NAME       LIKE FELD-NAME.

   FIELD-SYMBOLS <TC>         TYPE CXTAB_CONTROL.
   FIELD-SYMBOLS <TABLE>      TYPE STANDARD TABLE.
   FIELD-SYMBOLS <WA>.
   FIELD-SYMBOLS <MARK_FIELD>.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
*--  Upd---Y ----2012/11/15-FRES8000004008----START -----*
*  ASSIGN (P_TC_NAME) TO <TC>.
*
**&SPWIZARD: get the table, which belongs to the tc                     *
*   CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body
*   ASSIGN (L_TABLE_NAME) TO <TABLE>.                "not headerline
*
**&SPWIZARD: mark all filled lines                                      *
*  LOOP AT <TABLE> ASSIGNING <WA>.
*
**&SPWIZARD: access to the component 'FLAG' of the table header         *
*     ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.
*
*     <MARK_FIELD> = 'X'.
*  ENDLOOP.

   CONCATENATE P_TC_NAME '-COLS' INTO L_TABLE_NAME. "table body
   ASSIGN (L_TABLE_NAME) TO <TABLE>.
   LOOP AT <TABLE> ASSIGNING <WA>.
     ASSIGN COMPONENT 'SELECTED' OF STRUCTURE <WA> TO <MARK_FIELD>.
     <MARK_FIELD> = 'X'.
   ENDLOOP.

*--  Upd---Y----2012/11/15-FRES8000004008----END -------*
 ENDFORM.                                          "fcode_tc_mark_lines