How to concatenate all the fields in a single statement with tilda..

Question

hi, i have 10 fields, i have to concatenate those fields seperated with tilda... and put into the application server...in a single statement,
kindly suggest me hw to write..?
Thanx in Advance.
Akshitha.

Answer 1

Hi.....
Just see the following code...
It solves your requirement.....
REPORT  ZCSV_SPFLI_APP.
TABLES :
  SPFLI.                               " Flight
  FIELD-SYMBOLS : <FS>. "TYPE C.
DATA T_SPFLI LIKE STANDARD TABLE OF SPFLI .
DATA W_CHAR(20) TYPE C.
DATA W_TYPE .
DATA:
  BEGIN OF T_TABLE OCCURS 0,
    LINE TYPE STRING,
  END OF T_TABLE.
SELECT * FROM SPFLI INTO TABLE T_SPFLI.
LOOP AT T_SPFLI INTO SPFLI.
  DO.
    ASSIGN COMPONENT SY-INDEX OF STRUCTURE SPFLI TO <FS>.
    IF SY-SUBRC NE 0.
      EXIT.
    ELSE.
      MOVE <FS> TO W_CHAR.
      IF SY-INDEX EQ 1.
        T_TABLE-LINE = <FS>.
      ELSE.
        CONCATENATE T_TABLE-LINE '~' W_CHAR INTO T_TABLE-LINE.
      ENDIF.
    ENDIF.
  ENDDO.
  CONDENSE T_TABLE-LINE.
  APPEND T_TABLE.
ENDLOOP.
LOOP AT T_TABLE.
  WRITE / T_TABLE-LINE.
ENDLOOP.
OPEN DATASET 'YH647_SPFLI' FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC NE 0.
  MESSAGE ' File is Not Opend' TYPE 'S'.
ENDIF.
LOOP AT T_TABLE.
  TRANSFER T_TABLE-LINE TO 'YH647_SPFLI'.
ENDLOOP.
CLOSE DATASET 'YH647_SPFLI'.
This reads flight detail and makes the separated by '~' and  stores in the application server (<b>OPEN_DATASET, TRANAFER , CLOSE DATASET</b>)
Reward points if useful.........
Suresh........