error in table control

[Former Member]

hi,

after creating my alvgrid and activatinh it i have the following error while activating the main program:

The data object "SCREEN" has no structure and therefore no component called "NAME" . .

thanks.

[sivaprasad_paruchuri]

Post the line where error occurred, it will be easy to under stand the issue...

Reagrds,

Siva

[Former Member]

Hi,

Have you used in a LOOP.

Ex:

LOOP AT SCREEN.

  screen-name = 'checking'.

ENDLOOP.

[Former Member]

hin

no i have not added a code.

the code comes automatically because i used table control with wizard.

[Former Member]

how did u create ur alv grid i mean using function module or u hav used class approach(cl_gui_alv_grid).

[Former Member]

i used screen painter (layout), table control with wizard.

[Former Member]

Hi meriem,

My guess is you have put the Loop at Screen logic in a place which is not supported.

If you are using module pool Screen should be used only inside the PBO module and if you are using report program then it should be used inside At selection-screen output event. The SCREEN data object would be only available inside these events.

Regards,

Karthik

[Former Member]

hi,

please can you explain more here is my report program.

MODULE status_0400 OUTPUT.

   SET PF-STATUS 'MENUU'.

   SET TITLEBAR 'SATEG'.

   CASE sy-ucomm.

     WHEN 'EXIT'.

       LEAVE PROGRAM.

   ENDCASE.

ENDMODULE.                 " STATUS_0400  OUTPUT

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0400  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE user_command_0400 INPUT.

ENDMODULE.                 " USER_COMMAND_0400  INPUT

"fcode_tc_mark_lines

*&SPWIZARD: DECLARATION OF TABLECONTROL 'MYALV' ITSELF

CONTROLS: myalv TYPE TABLEVIEW USING SCREEN 0400.

*&SPWIZARD: LINES OF TABLECONTROL 'MYALV'

DATA:     g_myalv_lines  LIKE sy-loopc.

DATA:     ok_code LIKE sy-ucomm.

*&SPWIZARD: OUTPUT MODULE FOR TC 'MYALV'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR

MODULE myalv_change_tc_attr OUTPUT.

   DESCRIBE TABLE it_res LINES myalv-lines.

ENDMODULE.                    "MYALV_CHANGE_TC_ATTR OUTPUT

*&SPWIZARD: OUTPUT MODULE FOR TC 'MYALV'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: GET LINES OF TABLECONTROL

MODULE myalv_get_lines OUTPUT.

   g_myalv_lines = sy-loopc.

ENDMODULE.                    "MYALV_GET_LINES OUTPUT

*&SPWIZARD: INPUT MODULE FOR TC 'MYALV'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MODIFY TABLE

MODULE myalv_modify INPUT.

   MODIFY it_res

     FROM wa_res

     INDEX myalv-current_line.

ENDMODULE.                    "MYALV_MODIFY INPUT

*&SPWIZARD: INPUT MODUL FOR TC 'MYALV'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MARK TABLE

MODULE myalv_mark INPUT.

   DATA: g_myalv_wa2 LIKE LINE OF it_res.

   IF myalv-line_sel_mode = 1

   AND wa_res-a = 'X'.

     LOOP AT it_res INTO g_myalv_wa2

       WHERE a = 'X'.

       g_myalv_wa2-a = ''.

       MODIFY it_res

         FROM g_myalv_wa2

         TRANSPORTING a.

     ENDLOOP.

   ENDIF.

   MODIFY it_res

     FROM wa_res

     INDEX myalv-current_line

     TRANSPORTING a.

ENDMODULE.                    "MYALV_MARK INPUT

*&SPWIZARD: INPUT MODULE FOR TC 'MYALV'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: PROCESS USER COMMAND

MODULE myalv_user_command INPUT.

   ok_code = sy-ucomm.

   PERFORM user_ok_tc USING    'MYALV'

                               'IT_RES'

                               'A'

                      CHANGING ok_code.

   sy-ucomm = ok_code.

ENDMODULE.                    "MYALV_USER_COMMAND INPUT

*----------------------------------------------------------------------*

*   INCLUDE TABLECONTROL_FORMS                                         *

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*&      Form  USER_OK_TC                                               *

*&---------------------------------------------------------------------*

FORM user_ok_tc USING    p_tc_name TYPE dynfnam

                          p_table_name

                          p_mark_name

                 CHANGING p_ok      LIKE sy-ucomm.

*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*

   DATA: l_ok              TYPE sy-ucomm,

         l_offset          TYPE i.

*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

*&SPWIZARD: Table control specific operations                          *

*&SPWIZARD: evaluate TC name and operations                            *

   SEARCH p_ok FOR p_tc_name.

   IF sy-subrc <> 0.

     EXIT.

   ENDIF.

   l_offset = STRLEN( p_tc_name ) + 1.

   l_ok = p_ok+l_offset.

*&SPWIZARD: execute general and TC specific operations                 *

   CASE l_ok.

     WHEN 'INSR'.                      "insert row

       PERFORM fcode_insert_row USING    p_tc_name

                                         p_table_name.

       CLEAR p_ok.

     WHEN 'DELE'.                      "delete row

       PERFORM fcode_delete_row USING    p_tc_name

                                         p_table_name

                                         p_mark_name.

       CLEAR p_ok.

     WHEN 'P--' OR                     "top of list

          'P-'  OR                     "previous page

          'P+'  OR                     "next page

          'P++'.                       "bottom of list

       PERFORM compute_scrolling_in_tc USING p_tc_name

                                             l_ok.

       CLEAR p_ok.

*     WHEN 'L--'.                       "total left

*       PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.

*

*     WHEN 'L-'.                        "column left

*       PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.

*

*     WHEN 'R+'.                        "column right

*       PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.

*

*     WHEN 'R++'.                       "total right

*       PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.

*

     WHEN 'MARK'.                      "mark all filled lines

       PERFORM fcode_tc_mark_lines USING p_tc_name

                                         p_table_name

                                         p_mark_name   .

       CLEAR p_ok.

     WHEN 'DMRK'.                      "demark all filled lines

       PERFORM fcode_tc_demark_lines USING p_tc_name

                                           p_table_name

                                           p_mark_name .

       CLEAR p_ok.

*     WHEN 'SASCEND'   OR

*          'SDESCEND'.                  "sort column

*       PERFORM FCODE_SORT_TC USING P_TC_NAME

*                                   l_ok.

   ENDCASE.

ENDFORM.                              " USER_OK_TC

*&---------------------------------------------------------------------*

*&      Form  FCODE_INSERT_ROW                                         *

*&---------------------------------------------------------------------*

FORM fcode_insert_row

               USING    p_tc_name           TYPE dynfnam

                        p_table_name             .

*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*

   DATA l_lines_name       LIKE feld-name.

   DATA l_selline          LIKE sy-stepl.

   DATA l_lastline         TYPE i.

   DATA l_line             TYPE i.

   DATA l_table_name       LIKE feld-name.

   FIELD-SYMBOLS <tc>                 TYPE cxtab_control.

   FIELD-SYMBOLS <table>              TYPE STANDARD TABLE.

   FIELD-SYMBOLS <lines>              TYPE i.

*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

   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: get looplines of TableControl                              *

   CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name.

   ASSIGN (l_lines_name) TO <lines>.

*&SPWIZARD: get current line                                           *

   GET CURSOR LINE l_selline.

   IF sy-subrc <> 0.                   " append line to table

     l_selline = <tc>-lines + 1.

*&SPWIZARD: set top line                                               *

     IF l_selline > <lines>.

       <tc>-top_line = l_selline - <lines> + 1 .

     ELSE.

       <tc>-top_line = 1.

     ENDIF.

   ELSE.                               " insert line into table

     l_selline = <tc>-top_line + l_selline - 1.

     l_lastline = <tc>-top_line + <lines> - 1.

   ENDIF.

*&SPWIZARD: set new cursor line                                        *

   l_line = l_selline - <tc>-top_line + 1.

*&SPWIZARD: insert initial line                                        *

   INSERT INITIAL LINE INTO <table> INDEX l_selline.

   <tc>-lines = <tc>-lines + 1.

*&SPWIZARD: set cursor                                                 *

   SET CURSOR LINE l_line.

ENDFORM.                              " FCODE_INSERT_ROW

*&---------------------------------------------------------------------*

*&      Form  FCODE_DELETE_ROW                                         *

*&---------------------------------------------------------------------*

FORM fcode_delete_row

               USING    p_tc_name           TYPE dynfnam

                        p_table_name

                        p_mark_name   .

*&SPWIZARD: BEGIN 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------------------------------------------*

   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: delete marked lines                                        *

   DESCRIBE TABLE <table> LINES <tc>-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>.

     IF <mark_field> = 'X'.

       DELETE <table> INDEX syst-tabix.

       IF sy-subrc = 0.

         <tc>-lines = <tc>-lines - 1.

       ENDIF.

     ENDIF.

   ENDLOOP.

ENDFORM.                              " FCODE_DELETE_ROW

*&---------------------------------------------------------------------*

*&      Form  COMPUTE_SCROLLING_IN_TC

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_TC_NAME  name of tablecontrol

*      -->P_OK       ok code

*----------------------------------------------------------------------*

FORM compute_scrolling_in_tc USING    p_tc_name

                                       p_ok.

*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*

   DATA l_tc_new_top_line     TYPE i.

   DATA l_tc_name             LIKE feld-name.

   DATA l_tc_lines_name       LIKE feld-name.

   DATA l_tc_field_name       LIKE feld-name.

   FIELD-SYMBOLS <tc>         TYPE cxtab_control.

   FIELD-SYMBOLS <lines>      TYPE i.

*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

   ASSIGN (p_tc_name) TO <tc>.

*&SPWIZARD: get looplines of TableControl                              *

   CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name.

   ASSIGN (l_tc_lines_name) TO <lines>.

*&SPWIZARD: is no line filled?                                         *

   IF <tc>-lines = 0.

*&SPWIZARD: yes, ...                                                   *

     l_tc_new_top_line = 1.

   ELSE.

*&SPWIZARD: no, ...                                                    *

     CALL FUNCTION 'SCROLLING_IN_TABLE'

          EXPORTING

               entry_act             = <tc>-top_line

               entry_from            = 1

               entry_to              = <tc>-lines

               last_page_full        = 'X'

               loops                 = <lines>

               ok_code               = p_ok

               overlapping           = 'X'

          IMPORTING

               entry_new             = l_tc_new_top_line

          EXCEPTIONS

*              NO_ENTRY_OR_PAGE_ACT  = 01

*              NO_ENTRY_TO           = 02

*              NO_OK_CODE_OR_PAGE_GO = 03

               OTHERS                = 0.

   ENDIF.

*&SPWIZARD: get actual tc and column                                   *

   GET CURSOR FIELD l_tc_field_name

              AREA  l_tc_name.

   IF syst-subrc = 0.

     IF l_tc_name = p_tc_name.

*&SPWIZARD: et actual column                                           *

       SET CURSOR FIELD l_tc_field_name LINE 1.

     ENDIF.

   ENDIF.

*&SPWIZARD: set the new top line                                       *

   <tc>-top_line = l_tc_new_top_line.

ENDFORM.                              " COMPUTE_SCROLLING_IN_TC

*&---------------------------------------------------------------------*

*&      Form  FCODE_TC_MARK_LINES

*&---------------------------------------------------------------------*

*       marks all TableControl lines

*----------------------------------------------------------------------*

*      -->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------------------------------------------*

   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.

ENDFORM.                                          "fcode_tc_mark_lines

*&---------------------------------------------------------------------*

*&      Form  FCODE_TC_DEMARK_LINES

*&---------------------------------------------------------------------*

*       demarks all TableControl lines

*----------------------------------------------------------------------*

*      -->P_TC_NAME  name of tablecontrol

*----------------------------------------------------------------------*

FORM fcode_tc_demark_lines USING p_tc_name

                                  p_table_name

                                  p_mark_name .

*&SPWIZARD: BEGIN 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------------------------------------------*

   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: demark 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> = space.

   ENDLOOP.

ENDFORM. 

and this is the code in the flow logic.

PROCESS BEFORE OUTPUT.

*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'MYALV'

   MODULE MYALV_CHANGE_TC_ATTR.

*&SPWIZARD: MODULE MYALV_CHANGE_COL_ATTR.

   LOOP AT   IT_RES

        INTO WA_RES

        WITH CONTROL MYALV

        CURSOR MYALV-CURRENT_LINE.

     MODULE MYALV_GET_LINES.

*&SPWIZARD:   MODULE MYALV_CHANGE_FIELD_ATTR

   ENDLOOP.

* MODULE STATUS_0400.

*

PROCESS AFTER INPUT.

*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'MYALV'

   LOOP AT IT_RES.

     CHAIN.

       FIELD WA_RES-CHECK_BOX.

       FIELD WA_RES-POSIT.

       FIELD WA_RES-COMPO.

       FIELD WA_RES-MAKTX.

       FIELD WA_RES-CQUAN.

       FIELD WA_RES-OQUAN.

       FIELD WA_RES-RQUAN.

       FIELD WA_RES-TQUAN.

       FIELD WA_RES-SQUAN.

       FIELD WA_RES-UQUAN.

       FIELD WA_RES-STK01.

       FIELD WA_RES-STK02.

       FIELD WA_RES-STK03.

       FIELD WA_RES-MEINS.

       MODULE MYALV_MODIFY ON CHAIN-REQUEST.

     endchain.

     FIELD WA_RES-A

       MODULE MYALV_MARK ON REQUEST.

   ENDLOOP.

   MODULE MYALV_USER_COMMAND.

*&SPWIZARD: MODULE MYALV_CHANGE_TC_ATTR.

*&SPWIZARD: MODULE MYALV_CHANGE_COL_ATTR.

* MODULE USER_COMMAND_0400.

[Former Member]

Hi,

Where in the code you are using screen-name???

[raymond_giuseppi]

Can you post the code of MYALV_CHANGE_FIELD_ATTR module.

ALV list/grid and Table Control are two different tools, giving the name MYALV to a TC should not be done in real life, It will only confuse developers who would later maintain the program.

Regards,

Raymond

[Former Member]

Hi.

Please check table control structure ,may be problem in structure definition.

Thanks.

NJ

[Former Member]

i had resolve the problem.

i used a variable called screen in my program.

so i rename it.