topic Re: Data Transfer to Application Server in Application Development and Automation Discussions

Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 16:16:38 GMT

Hi friends,

I have a requirement to wirte data to application server. this is ok.

but what i need is, i am not just following the same structure of data.

the data in the program is like this

abcd 123 4566666

abcd 124 4566667

abcd 125 4566668

i want to write this using TRANSFER like below

1 abcd

2 123 4566666

2 124 4566667

2 125 4566668.

this is an example.,

appreciate your help. points will be rewarded.

Thanks a lot.

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 16:23:18 GMT

Hi,

What should be output for the next set of data.

Ex..

Input

abcd 123 4566666

abcd 124 4566667

abcd 125 4566668

bcde 123 4566666

bcde 124 4566667

bcde 125 4566668

Output

1 abcd

2 123 4566666

2 124 4566667

2 125 4566668

?????

Thanks,

Naren

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 16:34:24 GMT

Assuming your internal table (itab) has columns a, b and c, you could use the following:


LOOP AT itab.
  AT NEW a.
    CONCATENATE '1' itab-a INTO l_string SEPARATED BY SPACE.
    TRANSFER l_string TO l_file.
  ENDAT.

  CONCATENATE '2' itab-b itab-c INTO l_string
      SEPARATED BY SPACE.
  TRANSFER l_string TO l_file.
ENDLOOP.

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 16:44:39 GMT

Hi Kiran,

You can do something like this.



IF NOT p_err IS INITIAL.

  OPEN DATASET p_err FOR OUTPUT IN TEXT MODE ENCODING DEFAULT MESSAGE w_message.
  IF sy-subrc IS INITIAL.
    LOOP AT t_results.

      ON CHANGE OF t_results-field1.

        w_count = w_count + 1.
        CONCATENATE w_count t_results-field1 INTO w_temp.
        TRANSFER w_temp TO p_err.  " Transfer t_results-field1 only
        CONTINUE.
        w_count = w_count + 1.

      ENDON.

      CONCATENATE w_count t_results-field2 t_results-field3 INTO w_temp.
      TRANSFER w_temp TO p_err.    " Transfer t_results-field2 t_results-field3 only


    ENDLOOP.

    CLOSE DATASET p_err.

  ELSE.

    MESSAGE w_message TYPE 'E' DISPLAY LIKE 'S'.
    LEAVE LIST-PROCESSING.

  ENDIF.



ENDIF.

Will try to write full code. Tomo. Good Night.

Regards,

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 16:45:19 GMT

Hi Naren

1 abcd

2 123 4566666

2 124 4566667

2 125 4566668

1 bcde

2 123 4566666

2 124 4566667

2 125 4566668

this is the next set of data.

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 16:54:33 GMT

See my solution above.

Re: Data Transfer to Application Server

ferry_lianto — Mon, 13 Nov 2006 17:02:32 GMT

Hi Kiran,

Please try this.

DATA: WA_OUTPUT TYPE STRING. 
DATA: WA_SEQ TYPE I.

OPEN DATASET P_FILE FOR OUTPUT IN TEXT MODE. 

SORT ITAB.
LOOP AT ITAB.
  AT NEW <itab-field1>.
    WA_SEQ = WA_SEQ + 1.
    CONCATENATE WA_SEQ ITAB-<FIELD1> 
                INTO WA_OUTPUT SEPARATED BY SPACE.
    TRANSFER WA_OUTPUT TO P_FILE.
  ENDAT.
 
  CONCATENATE WA_SEQ ITAB-<FIELD2> ITAB-<FIELD3>
              INTO WA_OUTPUT SEPARATED BY SPACE.
  TRANSFER WA_OUTPUT TO P_FILE.
ENDLOOP.

CLOSE DATASET P_FILE.

Hope this will help.

Regards,

Ferry Lianto

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 17:04:34 GMT

Hi,

Check Michael Malvey's reply..That should work..

One small addition..Add a sort statement for the column "a" mention in his post to group the records..

SORT ITAB BY a.

Thanks,

Naren

Re: Data Transfer to Application Server

Former Member — Mon, 13 Nov 2006 17:09:24 GMT

Thank you very much all.

ferry, after this i need to read the file from application server. so in Apllication server will it be stored as tab delimmited text file???

thanks once again.

Re: Data Transfer to Application Server

ferry_lianto — Mon, 13 Nov 2006 17:35:44 GMT

Hi Kiran,

The file will be stored as flat file (not tab delimmited) in application server.

But you can try this to save with tab delimited.

DATA: WA_OUTPUT TYPE STRING.

DATA: WA_SEQ TYPE I.

CONSTANTS: C_TAB TYPE X VALUE '09'.

OPEN DATASET P_FILE FOR OUTPUT IN TEXT MODE.

SORT ITAB.

LOOP AT ITAB.

AT NEW <ITAB-FIELD1>.

WA_SEQ = WA_SEQ + 1.

CONCATENATE WA_SEQ C_TAB ITAB-<FIELD1>

INTO WA_OUTPUT.

TRANSFER WA_OUTPUT TO P_FILE.

ENDAT.

CONCATENATE WA_SEQ C_TAB ITAB-<FIELD2> C_TAB ITAB-<FIELD3>

INTO WA_OUTPUT.

TRANSFER WA_OUTPUT TO P_FILE.

ENDLOOP.

CLOSE DATASET P_FILE.

Regards,

Ferry Lianto

Please reward points if helpful.