topic Re: alv report in Application Development and Automation Discussions

alv report

Former Member — Tue, 08 May 2007 07:10:12 GMT

can sombody help me in displaying alv report

i want to have a display in way eg

************************************************

pernr fatherNa

empna

desig

************************************

1 ram

mohan

softwareeng

***********************************

2 madhvi

rajiv

sap

*************************************

so by this i mean that in one column three or any required number of feilds should be printed.

ie in one row of the column three things to be printed

Re: alv report

dev_parbutteea — Tue, 08 May 2007 07:15:08 GMT

use <b>write</b> statements directly or <b>write at</b>

Re: alv report

dev_parbutteea — Tue, 08 May 2007 07:15:46 GMT

in a loop obviously

Re: alv report

Former Member — Tue, 08 May 2007 07:32:39 GMT

how can you use write in alv report.

Re: alv report

Former Member — Tue, 08 May 2007 07:34:43 GMT

wat i want to do is my internal table itab is pointing to eg itab-name now in this field i want to print empname, fathers name and his designation. so how to do it

Re: alv report

dev_parbutteea — Tue, 08 May 2007 07:44:31 GMT

Hi,

Instead of using FM like REUSE_ALV_GRID_DISPLAY or REUSE_ALV_LIST_DISPLAY, you can use write statements directly also!

Re: alv report

dev_parbutteea — Tue, 08 May 2007 07:59:42 GMT

HI,

is this wat u want

pernr fatherNa

ram madhvi
empna
mohan rajiv
desig
softwareeng sap

Re: alv report

Former Member — Tue, 08 May 2007 10:22:17 GMT

hi Sooness, yes i want to display three information abt a person in the same field catalog. wat i mean is that i want to display all the three info of the person his name designation and fathers name in the same fieldcatalog.

what i mean is i want to print an alv report in that i want to print more thn three feilds of an itab in one column only by this i mean that i want to print a persons name, designation and fathers name in one feildcatalog of alv ie details.

eg in fieldcatalog : details

*****

1 madhvi

rajiv

sap cons

**************

2 raj

mohan

software engg

*******************

so i want all these three details in one feildcatalog. can this be done in alv report. please reply me as soon as possible.

Re: alv report

Former Member — Tue, 08 May 2007 10:23:54 GMT

reply fast

Re: alv report

dev_parbutteea — Tue, 08 May 2007 11:13:58 GMT

hi,

*****

1 madhvi

rajiv

sap cons

**************

2 raj

mohan

software engg

*******************

Is this the only thing that u have to display on ur screen

Re: alv report

Former Member — Thu, 10 May 2007 12:54:07 GMT

hi madhvi

if you include those in field catalog like this below,

d_fieldcat_wa-fieldname ='xxx'.

d_fieldcat_wa-seltext_l = 'name'.

append d_fieldcat_wa.

clear d_fieldcat_wa.

if u give like this u wil get output as

ram mohan softwrae but not like wat u expect

so you can just use write stmt but in alv it is not possible...

REWARD PLEASE...!!!

Re: alv report

Former Member — Thu, 06 Dec 2007 14:18:19 GMT

I tried to emulate your requirement. In the field catalog I changed the row_pos from 1 to 3 (which is the limitation in this case) and kept the col_pos constant so that it be displayed in one column. However I get a information message stating "Multiple lines are only supported for printing and print view".

The program which I tried is as below:

&----

*& Report ZRAJALV_TEST3 *

*& *

&----

*& Program to display information of three fields in one column but *

*& different rows *

&----

REPORT ZRAJALV_TEST4ROWDISP.

type-pools: slis.

tables: SFLIGHT.

*data: begin of it_mara occurs 0 ,

CARRID like SFLIGHT-CARRID,
CONNID LIKE SFLIGHT-CARRID,
end of it_mara.

**data:it_mara like mara occurs 0 with header line.

data: begin of it_mara occurs 0,

matnr like mara-matnr,

mtart like mara-mtart,

matkl like mara-matkl,

groes like mara-groes,

blanz like mara-blanz,

end of it_mara.

data: i_fldcat type slis_t_fieldcat_alv,

G_REPID LIKE SY-REPID,

wa_fldcat type slis_fieldcat_alv.

INITIALIZATION.

G_REPID = SY-REPID.

select matnr mtart matkl groes blanz from mara into corresponding fields of table it_mara.

END-OF-SELECTION.

clear wa_fldcat.

wa_fldcat-row_pos = 1.

wa_fldcat-col_pos = 1.

wa_fldcat-fieldname = 'MATNR'.

wa_fldcat-tabname = 'it_mara'.

wa_fldcat-outputlen = 18.

wa_fldcat-emphasize = 'C111'.

wa_fldcat-hotspot = 'X'.

wa_fldcat-seltext_l = 'Material Co.'.

wa_fldcat-do_sum = space.

append wa_fldcat to i_fldcat.

clear wa_fldcat.

wa_fldcat-row_pos = 2.

wa_fldcat-col_pos = 1.

wa_fldcat-fieldname = 'MTART'.

wa_fldcat-tabname = 'it_mara'.

wa_fldcat-outputlen = '13'.

wa_fldcat-emphasize = 'C210'.

wa_fldcat-just = 'L'.

wa_fldcat-seltext_l = 'Material Type'.

wa_fldcat-do_sum = space.

append wa_fldcat to i_fldcat.

clear wa_fldcat.

wa_fldcat-row_pos = 3.

wa_fldcat-col_pos = 1.

wa_fldcat-fieldname = 'MATKL'.

wa_fldcat-tabname = 'it_mara'.

wa_fldcat-outputlen = '15'.

wa_fldcat-emphasize = space.

wa_fldcat-just = 'L'.

wa_fldcat-seltext_l = 'Material Group'.

wa_fldcat-do_sum = space.

append wa_fldcat to i_fldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = 'X'
I_BUFFER_ACTIVE = 'X '

I_CALLBACK_PROGRAM = G_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'Practice ALV Grid Display'

I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = i_fldcat

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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_mara

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Re: alv report

Former Member — Fri, 07 Dec 2007 10:19:23 GMT

It can be done using alv list, but couldn't do using alv grids.

&----

*& Report ZRAJALV_TEST7 *

*& *

&----

*& *

&----

REPORT ZRAJALV_TEST7.

type-pools: slis.

tables: SFLIGHT.

*data: begin of it_mara occurs 0 ,

CARRID like SFLIGHT-CARRID,
CONNID LIKE SFLIGHT-CARRID,
end of it_mara.

**data:it_mara like mara occurs 0 with header line.

data: begin of it_mara occurs 0,

matnr like mara-matnr,

mtart like mara-mtart,

matkl like mara-matkl,

groes like mara-groes,

blanz like mara-blanz,

end of it_mara.

data: i_fldcat type slis_t_fieldcat_alv,

G_REPID LIKE SY-REPID,

wa_fldcat type slis_fieldcat_alv.

INITIALIZATION.

G_REPID = SY-REPID.

select matnr mtart matkl groes blanz from mara into corresponding fields of table it_mara.

END-OF-SELECTION.

clear wa_fldcat.

wa_fldcat-row_pos = 1.

wa_fldcat-col_pos = 1.

wa_fldcat-fieldname = 'MATNR'.

wa_fldcat-tabname = 'it_mara'.

wa_fldcat-outputlen = 18.

wa_fldcat-emphasize = 'C111'.

wa_fldcat-hotspot = 'X'.

wa_fldcat-seltext_l = 'Material Co.'.

wa_fldcat-do_sum = space.

append wa_fldcat to i_fldcat.

clear wa_fldcat.

wa_fldcat-row_pos = 2.

wa_fldcat-col_pos = 1.

wa_fldcat-fieldname = 'MTART'.

wa_fldcat-tabname = 'it_mara'.

wa_fldcat-outputlen = '13'.

wa_fldcat-emphasize = 'C210'.

wa_fldcat-just = 'L'.

wa_fldcat-seltext_l = 'Material Type'.

wa_fldcat-do_sum = space.

append wa_fldcat to i_fldcat.

clear wa_fldcat.

wa_fldcat-row_pos = 3.

wa_fldcat-col_pos = 1.

wa_fldcat-fieldname = 'MATKL'.

wa_fldcat-tabname = 'it_mara'.

wa_fldcat-outputlen = '15'.

wa_fldcat-emphasize = space.

wa_fldcat-just = 'L'.

wa_fldcat-seltext_l = 'Material Group'.

wa_fldcat-do_sum = space.

append wa_fldcat to i_fldcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

IT_FIELDCAT = i_fldcat

TABLES

t_outtab = it_mara

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Re: alv report

Former Member — Fri, 07 Dec 2007 11:41:16 GMT

Try with this

*&---------------------------------------------------------------------*
*& Report  ZCHAR11
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zchar11.




TABLES: mara,ausp,klah.


TYPE-POOLS: slis.
DATA : pos TYPE i VALUE 1.
DATA:gs_layout TYPE slis_layout_alv,
     g_repid LIKE sy-repid,
     g_grid_title TYPE lvc_title.

DATA:g_tabname TYPE slis_tabname VALUE 'it_charlist',
g_save .

DATA:gs_variant LIKE disvariant.
DATA:ls_fieldcat TYPE slis_fieldcat_alv.
DATA: it_sort TYPE slis_t_sortinfo_alv.  " Sort table
DATA:gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
g_save = 'A'.

DATA : st_sctms LIKE sctms .
DATA : v_index LIKE sy-index .
DATA : it_clx2f LIKE clx2f OCCURS 0 WITH HEADER LINE .
DATA : it_clx2v LIKE clx2v OCCURS 0 WITH HEADER LINE .


DATA : BEGIN OF itab_chars_var OCCURS 0 ,
         atinn  LIKE  ausp-atinn,
         atnam  LIKE  cabn-atnam,
         atbez  LIKE  cabnt-atbez,
         atwrt  LIKE  ausp-atwrt,
       END   OF itab_chars_var .


DATA: itab LIKE STANDARD TABLE OF itab_chars_var.

DATA : xindex LIKE sy-index ,
     xindex_var LIKE sy-index .
DATA : it_kl  LIKE klvmera OCCURS 0 WITH HEADER LINE .
DATA : it_apval LIKE api_vali OCCURS 0 WITH HEADER LINE .

DATA : BEGIN OF it_apval_sel_var OCCURS 0 ,
         sel .
        INCLUDE STRUCTURE api_vali .
DATA : END OF it_apval_sel_var .



DATA: BEGIN OF wa_mara,
        matnr LIKE mara-matnr,
        cuobf LIKE ausp-objek,
      END OF wa_mara.

DATA: int_mara LIKE STANDARD TABLE OF wa_mara.

DATA: BEGIN OF wa_ausp,
       objek LIKE ausp-objek,
       atinn LIKE ausp-atinn,
       atwrt LIKE ausp-atwrt,
      END OF wa_ausp.

DATA: int_ausp LIKE STANDARD TABLE OF wa_ausp.

DATA: BEGIN OF wa_final,
         matnr LIKE mara-matnr,
         des(15) TYPE c,
         atinn LIKE ausp-atinn,
         atnam  LIKE  cabn-atnam,
         atwrt LIKE ausp-atwrt,
        END OF wa_final.


DATA: BEGIN OF it_final OCCURS 0,
         matnr LIKE mara-matnr,
         atnam  LIKE  cabn-atnam,
         atwrt LIKE ausp-atwrt,
        END OF it_final.


DATA: int_final LIKE STANDARD TABLE OF wa_final WITH HEADER LINE.

DATA: BEGIN OF wa_charname,

*        matnr LIKE mara-matnr,
*        costpr LIKE konp-kbetr,
*        mrp LIKE konp-kbetr,
*        salespr LIKE konp-kbetr,
        atnam01 LIKE cabn-atnam,
        atnam02 LIKE cabn-atnam,
        atnam03 LIKE cabn-atnam,
        atnam04 LIKE cabn-atnam,
        atnam05 LIKE cabn-atnam,
        atnam06 LIKE cabn-atnam,
        atnam07 LIKE cabn-atnam,
        atnam08 LIKE cabn-atnam,
        atnam09 LIKE cabn-atnam,
        atnam10 LIKE cabn-atnam,
        atnam11 LIKE cabn-atnam,
        atnam12 LIKE cabn-atnam,
        atnam13 LIKE cabn-atnam,
        atnam14 LIKE cabn-atnam,
        atnam15 LIKE cabn-atnam,
        atnam16 LIKE cabn-atnam,

      END OF wa_charname.

*DATA: it_charname LIKE STANDARD TABLE OF wa_charname WITH HEADER LINE.



DATA: BEGIN OF wa_charlist,

  matnr LIKE mara-matnr,
  costpr LIKE konp-kbetr,
  mrp LIKE konp-kbetr,
  salespr LIKE konp-kbetr,
  char01 LIKE ausp-atwrt,
  char02 LIKE ausp-atwrt,
  char03 LIKE ausp-atwrt,
  char04 LIKE ausp-atwrt,
  char05 LIKE ausp-atwrt,
  char06 LIKE ausp-atwrt,
  char07 LIKE ausp-atwrt,
  char08 LIKE ausp-atwrt,
  char09 LIKE ausp-atwrt,
  char10 LIKE ausp-atwrt,
  char11 LIKE ausp-atwrt,
  char12 LIKE ausp-atwrt,
  char13 LIKE ausp-atwrt,
  char14 LIKE ausp-atwrt,
  char15 LIKE ausp-atwrt,
  char16 LIKE ausp-atwrt,

END OF wa_charlist.

DATA: it_charlist LIKE STANDARD TABLE OF wa_charlist WITH HEADER LINE.


DATA: BEGIN OF wa_output,

        matnr LIKE mara-matnr,
        atnam01 LIKE cabn-atnam,
        char01 LIKE ausp-atwrt,
        atnam02 LIKE cabn-atnam,
        char02 LIKE ausp-atwrt,
        atnam03 LIKE cabn-atnam,
        char03 LIKE ausp-atwrt,
        atnam04 LIKE cabn-atnam,
        char04 LIKE ausp-atwrt,
        atnam05 LIKE cabn-atnam,
        char05 LIKE ausp-atwrt,
        atnam06 LIKE cabn-atnam,
        char06 LIKE ausp-atwrt,

END OF wa_output.
DATA: it_output LIKE STANDARD TABLE OF wa_output WITH HEADER LINE.




SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.


SELECT-OPTIONS: s_matnr FOR mara-matnr OBLIGATORY.

PARAMETER: s_matkl LIKE mara-matkl OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

  SELECT matnr
         cuobf
         FROM mara
     INTO TABLE int_mara
     WHERE matnr IN s_matnr AND matkl = s_matkl.

  IF NOT int_mara[] IS INITIAL.
    SORT int_mara BY cuobf.
    SELECT objek
           atinn
           atwrt
           FROM ausp
      INTO TABLE int_ausp
      FOR ALL ENTRIES IN int_mara
      WHERE objek = int_mara-cuobf.
  ENDIF.


  SELECT SINGLE * FROM klah
         WHERE class EQ s_matkl .
  xindex = 1 .
  xindex_var = 1 .


  CALL FUNCTION 'CLEX_GET_CLASS_FEATURES_VALUES'
    EXPORTING
      activity                      = 'P'
      classnumber                   = klah-clint
      classtype                     = klah-klart
      display_scope_in              = st_sctms
      language                      = sy-langu
    TABLES
      features                      = it_clx2f
      values                        = it_clx2v
    EXCEPTIONS
      not_authorized_classification = 1
      not_authorized_maintenance    = 2
      not_authorized_selection      = 3
      no_features_defined           = 4
      OTHERS                        = 5.

  LOOP AT it_clx2f .
    itab_chars_var-atinn = it_clx2f-atinn .
    itab_chars_var-atnam = it_clx2f-atnam .
    itab_chars_var-atbez = it_clx2f-atbez .
    APPEND itab_chars_var .
  ENDLOOP .


  CALL FUNCTION 'CLME_FEATURE_ATTR_OF_CLASS_INH'
    EXPORTING
      class           = klah-class
      classtype       = klah-klart
      language        = sy-langu
      key_date        = sy-datum
      with_values     = 'X'
    TABLES
      tfeatures       = it_kl
      tvalues         = it_apval
    EXCEPTIONS
      class_not_found = 1
      no_authority    = 2
      OTHERS          = 3.

  LOOP AT it_kl .
    itab_chars_var-atinn = it_kl-atinn .
    itab_chars_var-atnam = it_kl-atnam .
    itab_chars_var-atbez = it_kl-atbez .
    APPEND itab_chars_var .
  ENDLOOP .

  SORT itab_chars_var.
  LOOP AT itab_chars_var.
    int_final-atinn = itab_chars_var-atinn.
    int_final-atnam  = itab_chars_var-atnam.
    APPEND int_final.
  ENDLOOP.


  SORT int_mara BY matnr.
  SORT int_mara BY matnr.
  SORT int_ausp BY objek atinn.
  SORT int_final BY atinn.

  LOOP AT int_mara INTO wa_mara.

    CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
      EXPORTING
        input  = wa_mara-matnr
      IMPORTING
        output = wa_mara-matnr.

    LOOP AT  int_final.
      READ TABLE int_ausp INTO wa_ausp WITH KEY objek = wa_mara-cuobf
                                                atinn = int_final-atinn.
      IF sy-subrc EQ 0.
        it_final-matnr = wa_mara-matnr.
        it_final-atnam = int_final-atnam.
        it_final-atwrt = wa_ausp-atwrt.
        APPEND it_final.
        CLEAR it_final.
      ELSE.
        it_final-matnr = wa_mara-matnr.
        it_final-atnam = int_final-atnam.

        APPEND it_final.
        CLEAR it_final.
      ENDIF.
    ENDLOOP.
  ENDLOOP.


********
  DATA: cnt(2) TYPE n.

  DATA : field(50).

  FIELD-SYMBOLS : <field>.



  LOOP AT itab_chars_var.

*  LOOP AT it_final.

    cnt = cnt + 01.

    CONCATENATE 'wa_charname-atnam' cnt INTO field .

    ASSIGN (field) TO <field> .
    IF sy-subrc EQ 0 .

      IF itab_chars_var-atnam IS NOT INITIAL.
        <field> = itab_chars_var-atnam.
      ENDIF.
    ENDIF .

*    APPEND it_charname.


  ENDLOOP.


  LOOP AT it_final.

    AT NEW matnr.

      CLEAR cnt.

      it_charlist-matnr = it_final-matnr.

*    it_charlist-costpr = it_final-matnr.
*
*    it_charlist-mrp = it_final-matnr.
*
*    it_charlist-salespr = it_final-matnr.

    ENDAT.


    cnt = cnt + 01.


    CONCATENATE 'it_charlist-char' cnt INTO field .

    ASSIGN (field) TO <field> .
    IF sy-subrc EQ 0 .
      <field> = it_final-atwrt.
    ENDIF .

    AT END OF matnr.

      APPEND it_charlist.

    ENDAT.

  ENDLOOP.



********

  PERFORM fieldcat_init USING gt_fieldcat[].

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = 'SY-REPID'
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
      i_grid_title                      = 'Characterstics of Article No'
*     I_GRID_SETTINGS                   =
     is_layout                         = gs_layout

     it_fieldcat                       = gt_fieldcat[]
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
      it_sort                           = it_sort
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
     i_default                         = 'X'
     i_save                            = g_save
     is_variant                        = gs_variant
   TABLES
      t_outtab                          = it_charlist
*   EXCEPTIONS
*     PROGRAM_ERROR                     = 1
*     OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

*
**&---------------------------------------------------------------------
*
**&      Form  FIELDCAT_INIT
**&---------------------------------------------------------------------
*
**       text
**----------------------------------------------------------------------
*
**      -->RT_FIELDCAT  text
**----------------------------------------------------------------------
*
*
*
*
FORM fieldcat_init
       USING rt_fieldcat TYPE slis_t_fieldcat_alv.

*  DATA : wa_sort TYPE slis_sortinfo_alv.
*  wa_sort-fieldname = 'MATNR'.
*  wa_sort-spos = 1.
*  wa_sort-up = 'X'.
*  APPEND wa_sort TO it_sort.
*
*
*  wa_sort-fieldname = 'ATNAM'.
*  wa_sort-spos = 2.
*  wa_sort-up = 'X'.
*  APPEND wa_sort TO it_sort.
*
*
*
*  wa_sort-fieldname = 'ATWRT'.
*  wa_sort-spos = 3.
*  wa_sort-up = 'X'.
*  APPEND wa_sort TO it_sort.
*
*
*  DATA : pos TYPE i VALUE 1.


  pos = pos + 1.
  CLEAR ls_fieldcat.
  ls_fieldcat-tabname       = g_tabname.
  ls_fieldcat-col_pos = pos.
  ls_fieldcat-seltext_l   = 'Article No'.
  ls_fieldcat-outputlen = 12.
  ls_fieldcat-fieldname     = 'MATNR'.
  ls_fieldcat-ref_fieldname = 'MATNR'.
  ls_fieldcat-ref_tabname   = 'IT_CHARLIST'.
  APPEND ls_fieldcat TO  rt_fieldcat.


  DATA :  field1(50), field2(50).
  FIELD-SYMBOLS :   <field1>, <field2>.

  DATA: cnt2(2) TYPE n.
  CLEAR: field1,field2.
  DO 20 TIMES.

    cnt2 = cnt2 + 01.

    CONCATENATE 'wa_charname-atnam' cnt2 INTO field1 .

    ASSIGN (field1) TO <field1> .

    IF <field1> IS NOT INITIAL.

      IF sy-subrc EQ 0 .
        CONCATENATE 'CHAR' cnt2 INTO field2 .
        ASSIGN (field2) TO <field2> .

        pos = pos + 1.
        CLEAR ls_fieldcat.
*      ls_fieldcat-tabname       = g_tabname.
        ls_fieldcat-col_pos = pos.
        ls_fieldcat-seltext_l = <field1>.
*  ls_fieldcat-seltext_l   = 'Internal characteristic'.
        ls_fieldcat-outputlen = 18.
        ls_fieldcat-fieldname = field2.
        ls_fieldcat-ref_fieldname = field2.
*    ls_fieldcat-fieldname     = <field1>.
*    ls_fieldcat-ref_fieldname = <field1>.
        ls_fieldcat-ref_tabname   = 'IT_CHARLIST'.
        APPEND ls_fieldcat TO  rt_fieldcat.


      ENDIF .
    ENDIF.






*    pos = pos + 1.
*    CLEAR ls_fieldcat.
*    ls_fieldcat-tabname       = g_tabname.
*    ls_fieldcat-col_pos = pos.
**  ls_fieldcat-seltext_l   = 'Internal characteristic'.
*    ls_fieldcat-outputlen = 18.
**    ls_fieldcat-fieldname     = <field1>.
**    ls_fieldcat-ref_fieldname = <field1>.
*    ls_fieldcat-ref_tabname   = 'IT_CHARLIST'.
*    APPEND ls_fieldcat TO  rt_fieldcat.

*  pos = pos + 1.
*  CLEAR ls_fieldcat.
*  ls_fieldcat-tabname       = g_tabname.
*  ls_fieldcat-col_pos = pos.
*  ls_fieldcat-seltext_l   = 'Characteristic Value'.
*  ls_fieldcat-outputlen = 18.
*  ls_fieldcat-fieldname     = 'ATWRT'.
*  ls_fieldcat-ref_fieldname = 'ATWRT'.
*  ls_fieldcat-ref_tabname   = 'INT_FINAL'.
*  APPEND ls_fieldcat TO  rt_fieldcat.

  ENDDO.

ENDFORM.                    "FIELDCAT_INIT

Regards

Pavan