Função - DDIF_FIELDINFO_GET

 
"  Essa function traz pra vc a descrição do campo informado,
" muito usado em estipulações e modificações na SAP.

REPORT  zmj_prog_003.
" Tabelas Transparentes ....
TABLES : cdpos
.
" Tabelas Transparentes
DATA : DFIES_TAB like table of dfies,
       st_DFIES like dfies_tab with header line
       .

" Tela de Seleção .....
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_fname type cdpos-fname,
             p_tname type cdpos-tabname
  .
SELECTION-SCREEN END OF BLOCK b1.

" Start of Selection
START-OF-SELECTION.
  PERFORM : z_ddif_fieldinfo_get,
            z_mostra_dados
            .

*&---------------------------------------------------------------------*
*&      Form  Z_DDIF_FIELDINFO_GET
*&---------------------------------------------------------------------*
FORM z_ddif_fieldinfo_get .

  CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
      tabname             = p_tname     " Nome da Tabela
     fieldname            = p_fname     " Nome do Campo
     langu                = sy-langu    " Lingua do sistema
 TABLES
     dfies_tab            = dfies_tab   " Tabela de retorno
                  .
break-point.

ENDFORM.                    " Z_DDIF_FIELDINFO_GET

*&---------------------------------------------------------------------*
*&      Form  Z_MOSTRA_DADOS
*&---------------------------------------------------------------------*
form Z_MOSTRA_DADOS .

LOOP AT dfies_tab into st_dfies.

  write : /,'Tabela : ', st_dfies-tabname ,/
           ,'Campo: ', st_dfies-fieldname ,/
           , 'Descrição do campo:' , st_dfies-FIELDTEXT
.
ENDLOOP.

endform.                    " Z_MOSTRA_DADOS