Knowledge Management

Question:
I've defined field symbols like..
It's printing the row data, but how to print heading of it. Means <TAB> is like.
MATNR MAKTX
M1 Material 1
It's printing the row data, but how to print heading of it. Means <TAB> is like.
MATNR MAKTX
M1 Material 1
LOOP AT <tab> ASSIGNING <wa>.
  WRITE: / <wa>.
ENDLOOP.
the above loop prints like..
M1 Material 1
TIA.
Guest-D (UK)
In order to print the technical names of your internal table columns I suggest you look at the ABAP documentation on the keyword DESCRIBE which will allow you to get those details.
_________________
Kind Regards
Rosie Brent
Please remember to search the forum and check the FAQ before posting questions, thank you.
Tuly Idiot most of the time, part-time Guru
Answer:
Hi hope this helps, read help on SYDES.
Just take below as hint.
Report  ztmp_mara.
type-pools : sydes.
FIELD-SYMBOLS : <fname> TYPE ANY.
FORM GET_MARA.
    DATA : TABNAME  LIKE DD03VT-TABNAME,
           FIELDNAME LIKE DD03VT-FIELDNAME.
    DATA : BEGIN OF NAMEINFO,
              CONTINUE   TYPE C,   " Continuation flag (* = continued)
              NAME(40)   TYPE C,         " Name fragments
           END OF NAMEINFO.
    DATA : BEGIN OF I_FIELDNAMES OCCURS 0,
              FNAME(40) TYPE C,
           END OF I_FIELDNAMES.
     DATA : LV_SCRTEXT_M LIKE DD03VT-SCRTEXT_M.
  DO.
    CLEAR : LV_SCRTEXT_M, TABNAME, FIELDNAME.
    ASSIGN COMPONENT SY-INDEX OF STRUCTURE WA_MARA TO <FNAME>.
    IF SY-SUBRC <> 0.
      EXIT.
    ELSE.
      CLEAR : TDNAME.
      CLEAR : NAMEINFO.
      DESCRIBE FIELD <FNAME> INTO TDNAME.
      READ TABLE TDNAME-NAMES INTO NAMEINFO INDEX 2.
      IF NOT NAMEINFO-NAME IS INITIAL.
        SPLIT NAMEINFO-NAME AT '-' INTO TABNAME FIELDNAME.
        SELECT SINGLE SCRTEXT_M INTO LV_SCRTEXT_M FROM DD03VT
                WHERE TABNAME    = TABNAME
                  AND FIELDNAME  = FIELDNAME
                  AND DDLANGUAGE = SY-LANGU.
        IF SY-SUBRC EQ 0.
          MOVE LV_SCRTEXT_M TO I_FIELDNAMES-FNAME.
          APPEND I_FIELDNAMES.
          CLEAR I_FIELDNAMES.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDDO.
  SELECT * FROM MARA INTO TABLE I_MARA
    WHERE MATNR IN S_MATNR AND
          MTART IN S_MTART AND
          MATKL IN S_MATKL.
  CALL FUNCTION 'WS_DOWNLOAD'
      EXPORTING
           FILENAME                = P_FNAME
           FILETYPE                = 'DAT'
       TABLES
            DATA_TAB                = I_MARA
           FIELDNAMES               = I_FIELDNAMES
       EXCEPTIONS
            FILE_OPEN_ERROR         = 1
            FILE_WRITE_ERROR        = 2
            INVALID_FILESIZE        = 3
            INVALID_TABLE_WIDTH     = 4
            INVALID_TYPE            = 5
            NO_BATCH                = 6
            UNKNOWN_ERROR           = 7
            GUI_REFUSE_FILETRANSFER = 8
            OTHERS                  = 9.
IF SY-SUBRC NE 0.
......
ENDIF.
ENDFORM.                    " GET_MARA
_________________
MyAbap.Com
(Pentium wise, pen and paper foolish !! )