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

alv_grid_display

Go to solution
sandeepkarnati
Participant

‎2014 Nov 16 5:28 PM

0 Likes
646

my below programis showing an erroe "calling function module was wrong"........could any 1 plz lt me knw wts wrng wth my prog


REPORT  Z_ALV_LIST.

tables:mara,marc.

type-pools:slis.

types: begin of ty_mara_marc,

        matnr type matnr,

        ersda type ersda,

       werks type marc-werks,

       pstst type marc-pstat,

       BWTTY type marc-BWTTY,

   end of ty_mara_marc.

data : wa_mara_marc type  ty_mara_marc,

        it_mara_marc type table of ty_mara_marc,

        wa_field_cat type slis_fieldcat_alv,

        it_field_cat type slis_t_fieldcat_alv.

select-options: s_matnr for mara-matnr.

  perform get_data.

  perform write_data.

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

*&      Form  GET_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM GET_DATA .

   select A~matnr

          A~ersda

          B~werks

          B~pstat

          B~BWTTY

             into table it_mara_marc

             from mara as A inner join marc as B on B~matnr = A~matnr

             where A~matnr in s_matnr.

ENDFORM.                    " GET_DATA

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

*&      Form  WRITE_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM WRITE_DATA .

   perform it_field_cat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

  EXPORTING

*   I_INTERFACE_CHECK              = ' '

*   I_BYPASSING_BUFFER             =

*   I_BUFFER_ACTIVE                = ' '

    I_CALLBACK_PROGRAM             = 'sy-cpro'

*   I_CALLBACK_PF_STATUS_SET       = ' '

*   I_CALLBACK_USER_COMMAND        = ' '

*   I_STRUCTURE_NAME               = 'ZALV_MARA_MARC'

*   IS_LAYOUT                      =

    IT_FIELDCAT                    = 'it_field_cat'

*   IT_EXCLUDING                   =

*   IT_SPECIAL_GROUPS              =

*   IT_SORT                        =

*   IT_FILTER                      =

*   IS_SEL_HIDE                    =

*   I_DEFAULT                      = 'X'

*   I_SAVE                         = ' '

*   IS_VARIANT                     =

*   IT_EVENTS                      =

*   IT_EVENT_EXIT                  =

*   IS_PRINT                       =

*   IS_REPREP_ID                   =

*   I_SCREEN_START_COLUMN          = 0

*   I_SCREEN_START_LINE            = 0

*   I_SCREEN_END_COLUMN            = 0

*   I_SCREEN_END_LINE              = 0

*   IR_SALV_LIST_ADAPTER           =

*   IT_EXCEPT_QINFO                =

*   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE

* IMPORTING

*   E_EXIT_CAUSED_BY_CALLER        =

*   ES_EXIT_CAUSED_BY_USER         =

   TABLES

     T_OUTTAB                       = it_mara_marc[]

  EXCEPTIONS

    PROGRAM_ERROR                  = 1

    OTHERS                         = 2

           .

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

ENDFORM.                    " WRITE_DATA

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

*&      Form  IT_FIELD_CAT

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM IT_FIELD_CAT .

wa_field_cat-col_pos = 1.

wa_field_cat-tabname = 'mara'.

wa_field_cat-fieldname = 'matnr'.

wa_field_cat-seltext_m = 'material number'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 2.

wa_field_cat-tabname = 'mara'.

wa_field_cat-fieldname = 'ersda'.

wa_field_cat-seltext_m = 'created date'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 3.

wa_field_cat-tabname = 'marc'.

wa_field_cat-fieldname = 'werks'.

wa_field_cat-seltext_m = 'plant number'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 4.

wa_field_cat-tabname = 'marc'.

wa_field_cat-fieldname = 'pstat'.

wa_field_cat-seltext_m = 'plant status'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 5.

wa_field_cat-tabname = 'marc'.

wa_field_cat-fieldname = 'BWTTY'.

wa_field_cat-seltext_m = 'batch '.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

ENDFORM.                    " IT_FIELD_CAT

1 ACCEPTED SOLUTION
Read only

Go to solution
Former Member

‎2014 Nov 16 5:44 PM

0 Likes
609

Hi sandeep,

1) change fieldname from small letter to capital letters.

2)      IT_FIELDCAT                    = it_field_cat[] (removed inverted commas')

*&---------------------------------------------------------------------*
*& Report  Z_ALV_LIST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_ALV_LIST.

  tables:mara,marc.

type-pools:slis.

data: gd_repid     LIKE sy-repid.

types: begin of ty_mara_marc,

         matnr type matnr,

         ersda type ersda,

        werks type marc-werks,

        pstst type marc-pstat,

        BWTTY type marc-BWTTY,

    end of ty_mara_marc.



data : wa_mara_marc type  ty_mara_marc,

         it_mara_marc type table of ty_mara_marc,



         wa_field_cat type slis_fieldcat_alv,

         it_field_cat type slis_t_fieldcat_alv.







select-options: s_matnr for mara-matnr.



   perform get_data.

   perform write_data.

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

*&      Form  GET_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM GET_DATA .

    select A~matnr

           A~ersda

           B~werks

           B~pstat

           B~BWTTY

              into table it_mara_marc

              from mara as A inner join marc as B on B~matnr = A~matnr

              where A~matnr in s_matnr.



ENDFORM.                    " GET_DATA

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

*&      Form  WRITE_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM WRITE_DATA .

    perform it_field_cat.

gd_repid = sy-repid.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = gd_repid
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   I_STRUCTURE_NAME               = 'ZALV_MARA_MARC'
*   IS_LAYOUT                      =
     IT_FIELDCAT                    = it_field_cat[]
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
*   IR_SALV_LIST_ADAPTER           =
*   IT_EXCEPT_QINFO                =

*   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE

* IMPORTING

*   E_EXIT_CAUSED_BY_CALLER        =

*   ES_EXIT_CAUSED_BY_USER         =

    TABLES

      T_OUTTAB                       = it_mara_marc

   EXCEPTIONS

     PROGRAM_ERROR                  = 1

     OTHERS                         = 2

            .

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.



ENDFORM.                    " WRITE_DATA

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

*&      Form  IT_FIELD_CAT

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM IT_FIELD_CAT .



wa_field_cat-col_pos = 1.

*wa_field_cat-tabname = 'mara'.

wa_field_cat-fieldname = 'MATNR'.

wa_field_cat-seltext_m = 'material number'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.



wa_field_cat-col_pos = 2.
wa_field_cat-tabname = 'mara'.
wa_field_cat-fieldname = 'ERSDA'.
wa_field_cat-seltext_m = 'created date'.
append wa_field_cat to it_field_cat.
clear wa_field_cat.


wa_field_cat-col_pos = 3.
wa_field_cat-tabname = 'marc'.
wa_field_cat-fieldname = 'WERKS'.
wa_field_cat-seltext_m = 'plant number'.
append wa_field_cat to it_field_cat.
clear wa_field_cat.

wa_field_cat-col_pos = 4.
wa_field_cat-tabname = 'marc'.
wa_field_cat-fieldname = 'PSTAT'.
wa_field_cat-seltext_m = 'plant status'.
append wa_field_cat to it_field_cat.
clear wa_field_cat.

wa_field_cat-col_pos = 5.
wa_field_cat-tabname = 'marc'.
wa_field_cat-fieldname = 'BWTTY'.
wa_field_cat-seltext_m = 'batch '.
append wa_field_cat to it_field_cat.
clear wa_field_cat.



ENDFORM.                    " IT_FIELD_CAT

my below programis showing an erroe "calling function module was wrong"........could any 1 plz lt me knw wts wrng wth my prog


REPORT  Z_ALV_LIST.

tables:mara,marc.

type-pools:slis.

types: begin of ty_mara_marc,

        matnr type matnr,

        ersda type ersda,

       werks type marc-werks,

       pstst type marc-pstat,

       BWTTY type marc-BWTTY,

   end of ty_mara_marc.

data : wa_mara_marc type  ty_mara_marc,

        it_mara_marc type table of ty_mara_marc,

        wa_field_cat type slis_fieldcat_alv,

        it_field_cat type slis_t_fieldcat_alv.

select-options: s_matnr for mara-matnr.

  perform get_data.

  perform write_data.

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

*&      Form  GET_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM GET_DATA .

   select A~matnr

          A~ersda

          B~werks

          B~pstat

          B~BWTTY

             into table it_mara_marc

             from mara as A inner join marc as B on B~matnr = A~matnr

             where A~matnr in s_matnr.

ENDFORM.                    " GET_DATA

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

*&      Form  WRITE_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM WRITE_DATA .

   perform it_field_cat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

  EXPORTING

*   I_INTERFACE_CHECK              = ' '

*   I_BYPASSING_BUFFER             =

*   I_BUFFER_ACTIVE                = ' '

    I_CALLBACK_PROGRAM             = 'sy-cpro'

*   I_CALLBACK_PF_STATUS_SET       = ' '

*   I_CALLBACK_USER_COMMAND        = ' '

*   I_STRUCTURE_NAME               = 'ZALV_MARA_MARC'

*   IS_LAYOUT                      =

    IT_FIELDCAT                    = 'it_field_cat'

*   IT_EXCLUDING                   =

*   IT_SPECIAL_GROUPS              =

*   IT_SORT                        =

*   IT_FILTER                      =

*   IS_SEL_HIDE                    =

*   I_DEFAULT                      = 'X'

*   I_SAVE                         = ' '

*   IS_VARIANT                     =

*   IT_EVENTS                      =

*   IT_EVENT_EXIT                  =

*   IS_PRINT                       =

*   IS_REPREP_ID                   =

*   I_SCREEN_START_COLUMN          = 0

*   I_SCREEN_START_LINE            = 0

*   I_SCREEN_END_COLUMN            = 0

*   I_SCREEN_END_LINE              = 0

*   IR_SALV_LIST_ADAPTER           =

*   IT_EXCEPT_QINFO                =

*   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE

* IMPORTING

*   E_EXIT_CAUSED_BY_CALLER        =

*   ES_EXIT_CAUSED_BY_USER         =

   TABLES

     T_OUTTAB                       = it_mara_marc[]

  EXCEPTIONS

    PROGRAM_ERROR                  = 1

    OTHERS                         = 2

           .

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

ENDFORM.                    " WRITE_DATA

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

*&      Form  IT_FIELD_CAT

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM IT_FIELD_CAT .

wa_field_cat-col_pos = 1.

wa_field_cat-tabname = 'mara'.

wa_field_cat-fieldname = 'matnr'.

wa_field_cat-seltext_m = 'material number'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 2.

wa_field_cat-tabname = 'mara'.

wa_field_cat-fieldname = 'ersda'.

wa_field_cat-seltext_m = 'created date'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 3.

wa_field_cat-tabname = 'marc'.

wa_field_cat-fieldname = 'werks'.

wa_field_cat-seltext_m = 'plant number'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 4.

wa_field_cat-tabname = 'marc'.

wa_field_cat-fieldname = 'pstat'.

wa_field_cat-seltext_m = 'plant status'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

wa_field_cat-col_pos = 5.

wa_field_cat-tabname = 'marc'.

wa_field_cat-fieldname = 'BWTTY'.

wa_field_cat-seltext_m = 'batch '.

append wa_field_cat to it_field_cat.

clear wa_field_cat.

ENDFORM.                    " IT_FIELD_CAT

Reply
2 REPLIES 2
Read only

Go to solution
Former Member

‎2014 Nov 16 5:44 PM

0 Likes
610

Hi sandeep,

1) change fieldname from small letter to capital letters.

2)      IT_FIELDCAT                    = it_field_cat[] (removed inverted commas')

*&---------------------------------------------------------------------*
*& Report  Z_ALV_LIST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_ALV_LIST.

  tables:mara,marc.

type-pools:slis.

data: gd_repid     LIKE sy-repid.

types: begin of ty_mara_marc,

         matnr type matnr,

         ersda type ersda,

        werks type marc-werks,

        pstst type marc-pstat,

        BWTTY type marc-BWTTY,

    end of ty_mara_marc.



data : wa_mara_marc type  ty_mara_marc,

         it_mara_marc type table of ty_mara_marc,



         wa_field_cat type slis_fieldcat_alv,

         it_field_cat type slis_t_fieldcat_alv.







select-options: s_matnr for mara-matnr.



   perform get_data.

   perform write_data.

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

*&      Form  GET_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM GET_DATA .

    select A~matnr

           A~ersda

           B~werks

           B~pstat

           B~BWTTY

              into table it_mara_marc

              from mara as A inner join marc as B on B~matnr = A~matnr

              where A~matnr in s_matnr.



ENDFORM.                    " GET_DATA

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

*&      Form  WRITE_DATA

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM WRITE_DATA .

    perform it_field_cat.

gd_repid = sy-repid.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = gd_repid
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   I_STRUCTURE_NAME               = 'ZALV_MARA_MARC'
*   IS_LAYOUT                      =
     IT_FIELDCAT                    = it_field_cat[]
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
*   IR_SALV_LIST_ADAPTER           =
*   IT_EXCEPT_QINFO                =

*   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE

* IMPORTING

*   E_EXIT_CAUSED_BY_CALLER        =

*   ES_EXIT_CAUSED_BY_USER         =

    TABLES

      T_OUTTAB                       = it_mara_marc

   EXCEPTIONS

     PROGRAM_ERROR                  = 1

     OTHERS                         = 2

            .

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.



ENDFORM.                    " WRITE_DATA

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

*&      Form  IT_FIELD_CAT

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

*       text

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

*  -->  p1        text

*  <--  p2        text

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

FORM IT_FIELD_CAT .



wa_field_cat-col_pos = 1.

*wa_field_cat-tabname = 'mara'.

wa_field_cat-fieldname = 'MATNR'.

wa_field_cat-seltext_m = 'material number'.

append wa_field_cat to it_field_cat.

clear wa_field_cat.



wa_field_cat-col_pos = 2.
wa_field_cat-tabname = 'mara'.
wa_field_cat-fieldname = 'ERSDA'.
wa_field_cat-seltext_m = 'created date'.
append wa_field_cat to it_field_cat.
clear wa_field_cat.


wa_field_cat-col_pos = 3.
wa_field_cat-tabname = 'marc'.
wa_field_cat-fieldname = 'WERKS'.
wa_field_cat-seltext_m = 'plant number'.
append wa_field_cat to it_field_cat.
clear wa_field_cat.

wa_field_cat-col_pos = 4.
wa_field_cat-tabname = 'marc'.
wa_field_cat-fieldname = 'PSTAT'.
wa_field_cat-seltext_m = 'plant status'.
append wa_field_cat to it_field_cat.
clear wa_field_cat.

wa_field_cat-col_pos = 5.
wa_field_cat-tabname = 'marc'.
wa_field_cat-fieldname = 'BWTTY'.
wa_field_cat-seltext_m = 'batch '.
append wa_field_cat to it_field_cat.
clear wa_field_cat.



ENDFORM.                    " IT_FIELD_CAT

Read only

Go to solution
sandeepkarnati
Participant
In response to Former Member

‎2014 Nov 16 5:59 PM

0 Likes
609

Hi Mr Adul Raheem Mohammad..........

it is working.....tnq vmch.......