Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

syntax error in programme

Former Member

‎2007 Aug 02 11:59 AM

0 Likes
1,262

Please check this programme this gives syntax error...

&----

*& Report YTEST12 *

*& *

&----

*& *

*& *

&----

REPORT YTEST12 .

tables:mara.

data: begin of itab occurs 10,

matnr like mara-matnr,

mbrsh like mara-mbrsh,

mtart like mara-mtart,

meins like mara-meins,

end of itab.

DATA: ITAB1 like itab occurs 10 with header line.

DATA gt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.

data: ok-code like sy-ucomm.

DATA gs_layout TYPE lvc_s_layo.

DATA: go_grid TYPE REF TO cl_gui_alv_grid,

go_custom_container TYPE REF TO cl_gui_custom_container.

start-of-selection.

CALL screen 100.

&----

*& Module STATUS_0100 OUTPUT

&----

  • text

----

MODULE STATUS_0100 OUTPUT.

  • SET PF-STATUS 'xxxxxxxx'.

  • SET TITLEBAR 'xxx'.

CREATE OBJECT go_custom_container

EXPORTING container_name = 'ALV_CONTAINER'.

CREATE OBJECT go_grid

EXPORTING

i_parent = go_custom_container.

PERFORM prepare_field_catalog CHANGING gt_fieldcat[].

PERFORM LAYOUT.

perform load_data.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Form load_data

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM load_data .

select matnr mbrsh mtart meins from mara into table itab1.

CALL METHOD go_grid->set_table_for_first_display

IMPORTING

*container_name = 'ALV_CONTAINER'.

  • I_BUFFER_ACTIVE =

  • I_BYPASSING_BUFFER =

  • I_CONSISTENCY_CHECK =

  • I_STRUCTURE_NAME =

  • IS_VARIANT =

  • I_SAVE =

  • I_DEFAULT = 'X'

is_layout = gs_layout.

  • IS_PRINT =

  • IT_SPECIAL_GROUPS =

*it_toolbar_excluding = pt_exclude "excluding toolbar functions

  • IT_HYPERLINK =

  • IT_ALV_GRAPHICS =

  • IT_EXCEPT_QINFO =

  • IR_SALV_ADAPTER =

CHANGING

it_outtab = itab1[]

it_fieldcatalog = gt_fieldcat[]

  • IT_SORT =

  • IT_FILTER =

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " load_data

&----

*& Form prepare_field_catalog

&----

  • text

----

  • <--P_GT_FIELDCAT[] text

----

FORM prepare_field_catalog CHANGING gt_fieldcat TYPE lvc_t_fcat.

DATA ls_fieldcat TYPE lvc_s_fcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-fieldname = 'MATNR'.

ls_fieldcat-scrtext_m = 'MATERIAL'.

ls_fieldcat-col_pos = 1.

ls_fieldcat-outputlen = 10.

  • ls_fieldcat-emphasize = 'C400'.

  • ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO gt_fieldcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-col_pos = 2.

ls_fieldcat-fieldname = 'MBRSH'.

ls_fieldcat-scrtext_m = 'INDUSTRY'.

  • ls_fieldcat-emphasize = 'C900'.

APPEND ls_fieldcat TO gt_fieldcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-col_pos = 3.

ls_fieldcat-fieldname = 'MTART'.

ls_fieldcat-scrtext_m = 'TYPE'.

APPEND ls_fieldcat TO gt_fieldcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-col_pos = 4.

ls_fieldcat-fieldname = 'MEINS'.

ls_fieldcat-scrtext_m = 'UNIT'.

APPEND ls_fieldcat TO gt_fieldcat.

ENDFORM. " prepare_field_catalog

&----

*& Module USER_COMMAND_0100 INPUT

&----

  • text

----

MODULE USER_COMMAND_0100 INPUT.

CASE sy-ucomm.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Form LAYOUT

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM LAYOUT .

gs_layout-stylefname = 'FIELD_STYLE'.

gs_layout-zebra = 'X'.

gs_layout-grid_title = 'MATERIAL'.

gs_layout-sel_mode = 'A'.

gs_layout-ctab_fname = 'COLORS'.

ENDFORM. " LAYOUT

8 REPLIES 8
Read only

Former Member

‎2007 Aug 02 12:02 PM

0 Likes
1,230

Hi Mohit,

what is the syntax error u r getting

Read only

Former Member
In response to Former Member

‎2007 Aug 02 12:05 PM

0 Likes
1,230

hi ,

it gives like is_layout is defined as importing not exporting.

Read only

Former Member
In response to Former Member

‎2007 Aug 02 12:07 PM

0 Likes
1,230

Remove the dot after the statement container_name = 'ALV_CONTAINER' in the create object statement.

Please mark points if the solution was useful.

Read only

Former Member
In response to Former Member

‎2007 Aug 02 12:08 PM

0 Likes
1,230

hi mohit...just copy paste the code i hav sent

Read only

Former Member

‎2007 Aug 02 12:05 PM

0 Likes
1,230

Remove the definition of OK Code if you are not using it in the program. If you are using it rename it to OK_CODE not OK-CODE.

Please mark points if the solution was useful.

Regards,

Manoj

Read only

Former Member

‎2007 Aug 02 12:05 PM

0 Likes
1,230

recode like this..Reward if useful..please find the code i have changed(in bold)

REPORT YTEST12 .

tables:mara.

data: begin of itab occurs 10,

matnr like mara-matnr,

mbrsh like mara-mbrsh,

mtart like mara-mtart,

meins like mara-meins,

end of itab.

DATA: ITAB1 like itab occurs 10 with header line.

DATA gt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.

data: ok-code like sy-ucomm.

DATA gs_layout TYPE lvc_s_layo.

DATA: go_grid TYPE REF TO cl_gui_alv_grid,

go_custom_container TYPE REF TO cl_gui_custom_container.

start-of-selection.

CALL screen 100.

&----

*& Module STATUS_0100 OUTPUT

&----

  • text

----

MODULE STATUS_0100 OUTPUT.

  • SET PF-STATUS 'xxxxxxxx'.

  • SET TITLEBAR 'xxx'.

CREATE OBJECT go_custom_container

EXPORTING container_name = 'ALV_CONTAINER'.

CREATE OBJECT go_grid

EXPORTING

i_parent = go_custom_container.

PERFORM prepare_field_catalog CHANGING gt_fieldcat[].

PERFORM LAYOUT.

perform load_data.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Form load_data

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM load_data .

select matnr mbrsh mtart meins from mara into table itab1.

<b>

CALL METHOD go_grid->set_table_for_first_display

EXPORTING

*container_name = 'ALV_CONTAINER'.

  • I_BUFFER_ACTIVE =

  • I_BYPASSING_BUFFER =

  • I_CONSISTENCY_CHECK =

  • I_STRUCTURE_NAME =

  • IS_VARIANT =

  • I_SAVE =

  • I_DEFAULT = 'X'

is_layout = gs_layout

  • IS_PRINT =

  • IT_SPECIAL_GROUPS =

*it_toolbar_excluding = pt_exclude "excluding toolbar functions

  • IT_HYPERLINK =

  • IT_ALV_GRAPHICS =

  • IT_EXCEPT_QINFO =

  • IR_SALV_ADAPTER =

CHANGING

it_outtab = itab1[]

it_fieldcatalog = gt_fieldcat[]

  • IT_SORT =

  • IT_FILTER =

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4

.

</b>IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " load_data

&----

*& Form prepare_field_catalog

&----

  • text

----

  • <--P_GT_FIELDCAT[] text

----

FORM prepare_field_catalog CHANGING gt_fieldcat TYPE lvc_t_fcat.

DATA ls_fieldcat TYPE lvc_s_fcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-fieldname = 'MATNR'.

ls_fieldcat-scrtext_m = 'MATERIAL'.

ls_fieldcat-col_pos = 1.

ls_fieldcat-outputlen = 10.

  • ls_fieldcat-emphasize = 'C400'.

  • ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO gt_fieldcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-col_pos = 2.

ls_fieldcat-fieldname = 'MBRSH'.

ls_fieldcat-scrtext_m = 'INDUSTRY'.

  • ls_fieldcat-emphasize = 'C900'.

APPEND ls_fieldcat TO gt_fieldcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-col_pos = 3.

ls_fieldcat-fieldname = 'MTART'.

ls_fieldcat-scrtext_m = 'TYPE'.

APPEND ls_fieldcat TO gt_fieldcat.

ls_fieldcat-tabname = 'ITAB1'.

ls_fieldcat-col_pos = 4.

ls_fieldcat-fieldname = 'MEINS'.

ls_fieldcat-scrtext_m = 'UNIT'.

APPEND ls_fieldcat TO gt_fieldcat.

ENDFORM. " prepare_field_catalog

&----

*& Module USER_COMMAND_0100 INPUT

&----

  • text

----

MODULE USER_COMMAND_0100 INPUT.

CASE sy-ucomm.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Form LAYOUT

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM LAYOUT .

gs_layout-stylefname = 'FIELD_STYLE'.

gs_layout-zebra = 'X'.

gs_layout-grid_title = 'MATERIAL'.

gs_layout-sel_mode = 'A'.

gs_layout-ctab_fname = 'COLORS'.

ENDFORM. " LAYOUT

Message was edited by:

Arjun Puthuruthy

Message was edited by:

Arjun Puthuruthy

Read only

Former Member
In response to Former Member

‎2007 Aug 02 12:17 PM

0 Likes
1,230

Hi Arjun,

I am not getting output through this code.

Read only

Pawan_Kesari
Active Contributor

‎2007 Aug 02 12:07 PM

0 Likes
1,230

i remove the error just copy paste the below code..




*&---------------------------------------------------------------------*
*& Report YTEST12 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ytest12 .
TABLES:mara.
DATA: BEGIN OF itab OCCURS 10,
matnr LIKE mara-matnr,
mbrsh LIKE mara-mbrsh,
mtart LIKE mara-mtart,
meins LIKE mara-meins,
END OF itab.

DATA: itab1 LIKE itab OCCURS 10 WITH HEADER LINE.
DATA gt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.
DATA: ok-code LIKE sy-ucomm.
DATA gs_layout TYPE lvc_s_layo.



DATA: go_grid TYPE REF TO cl_gui_alv_grid,
go_custom_container TYPE REF TO cl_gui_custom_container.



START-OF-SELECTION.

  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.

  CREATE OBJECT go_custom_container
  EXPORTING container_name = 'ALV_CONTAINER'.

  CREATE OBJECT go_grid
  EXPORTING
  i_parent = go_custom_container.

  PERFORM prepare_field_catalog CHANGING gt_fieldcat[].
  PERFORM layout.
  PERFORM load_data.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Form load_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM load_data .

  SELECT matnr mbrsh mtart meins FROM mara INTO TABLE itab1.


  CALL METHOD go_grid->set_table_for_first_display
  EXPORTING
*container_name = 'ALV_CONTAINER'.
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME =
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
  is_layout = gs_layout
* IS_PRINT =
* IT_SPECIAL_GROUPS =
*it_toolbar_excluding = pt_exclude "excluding toolbar functions
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
  CHANGING
  it_outtab = itab1[]
  it_fieldcatalog = gt_fieldcat[]
* IT_SORT =
* IT_FILTER =
  EXCEPTIONS
  invalid_parameter_combination = 1
  program_error = 2
  too_many_lines = 3
  OTHERS = 4
  .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.




ENDFORM. " load_data
*&---------------------------------------------------------------------*
*& Form prepare_field_catalog
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT[] text
*----------------------------------------------------------------------*
FORM prepare_field_catalog CHANGING gt_fieldcat TYPE lvc_t_fcat.
  DATA ls_fieldcat TYPE lvc_s_fcat.
  ls_fieldcat-tabname = 'ITAB1'.
  ls_fieldcat-fieldname = 'MATNR'.
  ls_fieldcat-scrtext_m = 'MATERIAL'.
  ls_fieldcat-col_pos = 1.
  ls_fieldcat-outputlen = 10.
* ls_fieldcat-emphasize = 'C400'.
* ls_fieldcat-key = 'X'.
  APPEND ls_fieldcat TO gt_fieldcat.

  ls_fieldcat-tabname = 'ITAB1'.
  ls_fieldcat-col_pos = 2.
  ls_fieldcat-fieldname = 'MBRSH'.
  ls_fieldcat-scrtext_m = 'INDUSTRY'.
* ls_fieldcat-emphasize = 'C900'.
  APPEND ls_fieldcat TO gt_fieldcat.

  ls_fieldcat-tabname = 'ITAB1'.
  ls_fieldcat-col_pos = 3.

  ls_fieldcat-fieldname = 'MTART'.
  ls_fieldcat-scrtext_m = 'TYPE'.
  APPEND ls_fieldcat TO gt_fieldcat.


  ls_fieldcat-tabname = 'ITAB1'.
  ls_fieldcat-col_pos = 4.

  ls_fieldcat-fieldname = 'MEINS'.
  ls_fieldcat-scrtext_m = 'UNIT'.
  APPEND ls_fieldcat TO gt_fieldcat.

ENDFORM. " prepare_field_catalog
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  CASE sy-ucomm.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Form LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM layout .

  gs_layout-stylefname = 'FIELD_STYLE'.
  gs_layout-zebra = 'X'.
  gs_layout-grid_title = 'MATERIAL'.
  gs_layout-sel_mode = 'A'.
  gs_layout-ctab_fname = 'COLORS'.

ENDFORM. " LAYOUT