topic interface in Application Development and Automation Discussions

interface

Former Member — Tue, 24 Apr 2007 07:22:25 GMT

Hi,

could you pls guide me how to transfer the data from a internal table T_stat to Unixfile in application server..thanks in advance

Re: interface

Former Member — Tue, 24 Apr 2007 07:25:35 GMT

Hi Prakash,

Check this sample code


DATA : TO_ADDRESS LIKE SY_LISEL,

FROM_ADDRESS LIKE SY-LISEL,

SUBJECT LIKE SY-LISEL,

ATTACHMENT_NAME LIKE SY_LISEL,

DATA_FILE_PATH LIKE SXPGCOLIST-PARAMETERS,

BODY_FILE_PATH LIKE SXPGCOLIST-PARAMETERS.

DATA : BEGIN OF INT_EMAIL_ATTACH OCCURS 0,

TXTLINE CHAR(255),

END OF INT_EMAIL_ATTACH.

DATA : BEGIN OF INT_EMAIL_BODY OCCURS 0,

TXTLINE CHAR(255),

END OF INT_EMAIL_BODY.

CLEAR : INT_EXEC_PROTOCOL,INT_EMAIL_ATTACH,INT_EMAIL_BODY.

REFRESH : INT_EXEC_PROTOCOL,INT_EMAIL_ATTACH,INT_EMAIL_BODY.

*

INT_EMAIL_ATTACH-TXTLINE = 'Put all attachment text in this table'.

APPEND INT_EMAIL_ATTACH. CLEAR INT_EMAIL_ATTACH.

INT_EMAIL_BODY-TXTLINE = 'Put all attachment text in this table'.

APPEND INT_EMAIL_BODY. CLEAR INT_EMAIL_BODY.

*

CONCATENATE TO_ADDRESS

FROM_ADDRESS

SUBJECT

BODY_FILE_PATH

DATA_FILE_PATH

ATTACHMENT_NAME

INTO V_PARAMETERS.

*

IF NOT INT_EMAIL_ATTACH[] IS INITIAL.

OPEN DATASET DATA_FILE_PATH FOR OUTPUT IN TEXT MODE.

LOOP AT INT_EMAIL_ATTACH.

TRANSFER INT_EMAIL_ATTACH-TXTLINE TO DATA_FILE_PATH.

ENDLOOP.

CLOSE DATASET DATA_FILE_PATH.

ENDIF.

*

IF NOT INT_EMAIL_BODY[] IS INITIAL.

OPEN DATASET BODY_FILE_PATH FOR OUTPUT IN TEXT MODE.

LOOP AT INT_EMAIL_BODY.

TRANSFER INT_EMAIL_BODY-TXTLINE TO BODY_FILE_PATH.

ENDLOOP.

CLOSE DATASET BODY_FILE_PATH.

ENDIF.

Regards,

Raghav

Re: interface

Former Member — Tue, 24 Apr 2007 07:26:18 GMT

Hi,

Here is some code which will transfer the data to app sever

OPEN DATASET V_APPFILE FOR OUTPUT IN TEXT MODE.

*---if the file is not opened display this message

IF SY-SUBRC NE 0.

MESSAGE I208 WITH 'Error in opening Server file'.

ELSE.

LOOP AT INT_APP_DATA.

TRANSFER INT_APP_DATA TO V_APPFILE.

ENDLOOP.

IF SY-SUBRC EQ 0.

WRITE : /'Monthly Funded data was uploaded at ', V_APPFILE.

ENDIF.

CLOSE DATASET V_APPFILE.

*---if the file is not closed display this message

IF SY-SUBRC NE 0.

MESSAGE I208 WITH 'Error in closing Server file'.

ENDIF.

Reward with points if satisfeid

Krishna K.

Re: interface

amit_khare — Tue, 24 Apr 2007 07:27:12 GMT

Check the thread -

Regards,

Amit

Reward all helpful replies.

Re: interface

Former Member — Tue, 24 Apr 2007 07:28:18 GMT

by using OPEN DATA SETS.

SELECT * FROM t000 INTO TABLE t_data .

*--- Create the application server file path

OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT MESSAGE w_message.

*--- Display error messages if any.

IF sy-subrc NE 0.

MESSAGE w_message TYPE 'E'.

EXIT.

ELSE.

*---Data is downloaded to the application server file path

LOOP AT t_data INTO wa_data.

TRANSFER wa_data TO p_file.

ENDLOOP.

ENDIF.

*--Close the Application server file (Mandatory).

CLOSE DATASET p_file.

IF sy-subrc NE 0.

MESSAGE 'Error closing the File' TYPE 'E'.

EXIT.

ELSEIF sy-subrc IS INITIAL.

WRITE : 'File saved in the location' , p_file.

ENDIF.

Regards

Prabhu