topic Re: internal table read field name runtime in Application Development and Automation Discussions

internal table read field name runtime

Former Member — Sat, 09 Aug 2008 16:13:05 GMT

hi,

I want to read fieldname of internal table to *gs_fcat-fieldname .

*so beg01

**beg02 = gs_fcat-fieldname " how I can do this ???*

*beg03

*----

DATA : BEGIN OF it_master OCCURS 0 ,

mark ,

pernr LIKE p2010-pernr,

ename LIKE p0001-ename,

this place..............................................

beg01 LIKE P2010-ANZHL,

beg02 LIKE P2010-ANZHL,

beg03 LIKE P2010-ANZHL,

END OF it_master .

syc = syc + 1.

gs_fcat-col_pos = syc + 3.

gs_fcat-fieldname = ???????. ==> (begnn)

gs_fcat-SCRTEXT_l = syc.

gs_fcat-SCRTEXT_m = syc.

gs_fcat-SCRTEXT_s = syc.

gs_fcat-edit = 'X'.

APPEND gs_fcat TO gt_fcat.

CLEAR gs_fcat.

Thanks For Reply ...

Edited by: burak özer on Aug 9, 2008 6:13 PM

Re: internal table read field name runtime

Former Member — Sat, 09 Aug 2008 16:34:21 GMT

instead you can do this..

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-repid
      i_internal_tabname     = 'IT_MASTER'
      i_inclname             = sy-repid      
    CHANGING
      ct_fieldcat            =  it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc ne 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

or else

data: ind(2) type n.


do 3 times.
ind = ind + 1.
concatenate 'BEG' ind into gs_fcat-fieldname.
syc = syc + 1.
gs_fcat-col_pos = syc + 3.
"gs_fcat-fieldname = ???????. ==> (begnn)
gs_fcat-SCRTEXT_l = syc.
gs_fcat-SCRTEXT_m = syc.
gs_fcat-SCRTEXT_s = syc.
gs_fcat-edit = 'X'.

APPEND gs_fcat TO gt_fcat.
CLEAR gs_fcat.
enddo.

Re: internal table read field name runtime

Former Member — Sat, 09 Aug 2008 16:49:28 GMT

thanks....