topic regarding preparing field catalog in Application Development and Automation Discussions

regarding preparing field catalog

Former Member — Thu, 15 Feb 2007 17:17:17 GMT

Hi all,

how can we populate a field catalog using REUSE_ALV_FIELDCATALOG_MERGE.

Thanks and regards.

bharath.

Re: regarding preparing field catalog

RichHeilman — Thu, 15 Feb 2007 17:29:01 GMT

There are examples all over the place.

http://www.sap-img.com/fu015.htm

http://www.sap-img.com/abap/reincarnation-of-reuse-alv-fieldcatalog-merge.htm

http://www.erpgenie.com/abap/code/abap28.htm

http://www.sapdevelopment.co.uk/reporting/alv/alv_variousfcat.htm

Here are just a few.....

Regards,

Rich Heilman

Re: regarding preparing field catalog

Former Member — Thu, 15 Feb 2007 18:27:41 GMT

good

Data to be displayed in ALV

Using the following syntax, REUSE_ALV_FIELDCATALOG_MERGE can auto-
matically determine the fieldstructure from this source program

Data:

begin of imat occurs 100,

matnr like marav-matnr, "Material number

maktx like marav-maktx, "Material short text

matkl like marav-matkl, "Material group (so you can test to make

" intermediate sums)

ntgew like marav-ntgew, "Net weight, numeric field (so you can test to

"make sums)

gewei like marav-gewei, "weight unit (just to be complete)

end of imat.

----

Other data needed
field to store report name

data i_repid like sy-repid.

field to check table length

data i_lines like sy-tabix.

----

Data for ALV display

TYPE-POOLS: SLIS.

data int_fcat type SLIS_T_FIELDCAT_ALV.

----

select-options:

s_matnr for marav-matnr matchcode object MAT1.

----

start-of-selection.

read data into table imat

select * from marav

into corresponding fields of table imat

where

matnr in s_matnr.

Check if material was found

clear i_lines.

describe table imat lines i_lines.

if i_lines lt 1.

Using hardcoded write here for easy upload

write: /

'No materials found.'.

exit.

endif.

end-of-selection.

----

Now, we start with ALV

----

To use ALV, we need a DDIC-structure or a thing called Fieldcatalogue.
The fieldcatalouge can be generated by FUNCTION
'REUSE_ALV_FIELDCATALOG_MERGE' from an internal table from any
report source, including this report.
The only problem one might have is that the report and table names
need to be in capital letters. (I had it )

----

Store report name

i_repid = sy-repid.

Create Fieldcatalogue from internal table

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = i_repid

I_INTERNAL_TABNAME = 'IMAT' "capital letters!

I_INCLNAME = i_repid

CHANGING

CT_FIELDCAT = int_fcat

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3.

*explanations:

I_PROGRAM_NAME is the program which calls this function

I_INTERNAL_TABNAME is the name of the internal table which you want
to display in ALV

I_INCLNAME is the ABAP-source where the internal table is defined
(DATA....)
CT_FIELDCAT contains the Fieldcatalouge that we need later for
ALV display

IF SY-SUBRC <> 0.

write: /

'Returncode',

sy-subrc,

'from FUNCTION REUSE_ALV_FIELDCATALOG_MERGE'.

ENDIF.

*This was the fieldcatlogue

----

And now, we are ready to display our list

Call for ALV list display

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'Z_ALV_SIMPLE_EXAMPLE_WITH_ITAB'

I_CALLBACK_PROGRAM = i_repid

IT_FIELDCAT = int_fcat

I_SAVE = 'A'

TABLES

T_OUTTAB = imat

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

*explanations:

I_CALLBACK_PROGRAM is the program which calls this function

IT_FIELDCAT (just made by REUSE_ALV_FIELDCATALOG_MERGE) contains
now the data definition needed for display

I_SAVE allows the user to save his own layouts

T_OUTTAB contains the data to be displayed in ALV

IF SY-SUBRC <> 0.

write: /

'Returncode',

sy-subrc,

'from FUNCTION REUSE_ALV_LIST_DISPLAY'.

ENDIF.

thanks

mrutyun^

Re: regarding preparing field catalog

Former Member — Thu, 15 Feb 2007 19:12:06 GMT

HI,

u can add fields to fieldcatalog manually...

<b>**************************

DATA: BEGIN OF gt_final_outtab OCCURS 0,

matnr LIKE mara-matnr,

mtart like mara-mtart,

maktx LIKE makt-maktx,

menge LIKE mseg-menge,

meins LIKE mseg-meins,

per_val TYPE p DECIMALS 4,

werks like mseg-werks,

END OF gt_final_outtab.

FORM get_fieldcat.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

DATA: pos TYPE i VALUE 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'MATNR'.

ls_fieldcat-datatype = 'CHAR'.

ls_fieldcat-outputlen = 18.

ls_fieldcat-seltext_l = 'Material Number'.

ls_fieldcat-checkbox = 'X'.

APPEND ls_fieldcat TO gt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'MAKTX'.

ls_fieldcat-datatype = 'CHAR'.

ls_fieldcat-outputlen = 20.

ls_fieldcat-seltext_l = 'Product Description'.

ls_fieldcat-checkbox = 'X'.

APPEND ls_fieldcat TO gt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'MENGE'.

ls_fieldcat-outputlen = 15.

ls_fieldcat-seltext_l = 'Lbs Shipped'.

ls_fieldcat-checkbox = 'X'.

APPEND ls_fieldcat TO gt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'MEINS'.

ls_fieldcat-outputlen = 4.

ls_fieldcat-seltext_l = 'QTY'.

APPEND ls_fieldcat TO gt_fieldcat.

CLEAR ls_fieldcat.

ENDFORM. " get_fieldcat

----

FORM show_report.

PERFORM get_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = w_repid

it_fieldcat = gt_fieldcat[]

i_save = 'A'

TABLES

t_outtab = gt_final_outtab.

ENDFORM. " Show_report</b>

Regards

SAB

Re: regarding preparing field catalog

Former Member — Thu, 15 Feb 2007 19:17:13 GMT

HI,

Please note that structure ZSTOCK is a custom table and iline looks as follow :-

data: iline type table of zstock with header line. 
data: gt_fieldcat         type slis_t_fieldcat_alv. 

  perform setup-fieldcatalog using gt_fieldcat[]. 

form setup-fieldcatalog using _fieldcat type slis_t_fieldcat_alv. 
  data: ls_fieldcat type slis_fieldcat_alv. 

  call function 'REUSE_ALV_FIELDCATALOG_MERGE' 
       exporting 
            i_internal_tabname = 'ILINE' 
            i_structure_name   = 'ZSTOCK' 
       changing 
            ct_fieldcat        = _fieldcat. 

  loop at _fieldcat into ls_fieldcat. 
    case ls_fieldcat-fieldname. 
      when 'DEPT'. 
        ls_fieldcat-no_out    = 'X'. 
       when 'DESCR'. 
        ls_fieldcat-no_out    = 'X'. 
      when 'GOOD_PRD'. 
        ls_fieldcat-do_sum    = 'X'. 
    endcase. 

    modify _fieldcat from ls_fieldcat. 
  endloop. 

endform.                    " FIELDCATALOG

See the below link for an example program, it is well explained

http://www.erpgenie.com/abap/code/abap28.htm

Regards

Sudheer