topic Down loading file to apps server, in Application Development and Automation Discussions

Down loading file to apps server,

Former Member — Thu, 16 Mar 2006 08:12:04 GMT

Hi Experts,

Presntly I have to download a file to apps server,the contents of the file has FI related entries.

In my program I have writen BDC for the FB01 transaction,

When the transaction is updated then a FI document number is generated.

I have to save file with this FI document # and other entries to the apps server.

Please give me an idea to work out with this issue.

Thanks in Advance,

Regards,

Irfan Hussain

Re: Down loading file to apps server,

Former Member — Thu, 16 Mar 2006 08:29:25 GMT

Hi,

Use OPEN DATASET for output

...transfer

close dataset.

1) Write OPEN DATASET.

2) Start the loop.

2) Call Transaction.

3) Transfer

4) Complete loop.

5) Close dataset.

Is there any other issue??

Regards,

Shashank

Re: Down loading file to apps server,

Former Member — Thu, 16 Mar 2006 08:31:00 GMT

hi Irfan

try this

parameters: V_DATA(132) lower case.

open dataset V_DATA FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT RECORD.

TRANSFER RECORD TO V_DATA.

ENDLOOP.

CLOSE DATASET V_DATA.

WRITE: /10 'SUCCESSFULLY WRITTEN IN THE APPLICATION SERVER'.

regards

kishore

Re: Down loading file to apps server,

Former Member — Thu, 16 Mar 2006 08:31:23 GMT

Use this syntax to capture the FI Document no that got generated after a successful run of ur BDC

GET PARAMETER ID 'BLN' FIELD <var>.

(var => is the variable to capture the FI Document that got created)

Append ur other entries of the FI Document from the program and download it into appln server using OPEN, TRANSFER & CLOSE statements

Message was edited by: Sravanthi

Re: Down loading file to apps server,

Former Member — Thu, 16 Mar 2006 08:31:26 GMT

hi Irfan,

Use OPEN DATASET FOR OUTPUT...

here is the sample code

IF I_FLG = ''.

OPEN DATASET I_FILE FOR OUTPUT IN TEXT MODE.

IF SY-SUBRC NE 0.

PERFORM ZYIR008_PUT_MESSAGE USING 'E'

'File Open Delete Error(?1)- ?2 ?3 ?4'

SY-SUBRC I_FILE 'OUTPUT' SPACE.

ENDIF.

I_FLG = 'X'.

ENDIF.

PERFORM CSV_CONVERT USING I_BUFF WK-BUFFER.

TRANSFER WK-BUFFER TO I_FILE.

CASE SY-SUBRC.

WHEN 0.

ADD 1 TO O_CONT.

WHEN OTHERS.

PERFORM ZYIR008_PUT_MESSAGE USING 'A'

'Transfer Dataset Error(?1) - ?2 ?3 ?4'

SY-SUBRC

I_FILE

O_CONT

SPACE.

ENDCASE.

Regards,

Santosh P