topic Re: need help on application server in Application Development and Automation Discussions

need help on application server

Former Member — Tue, 26 Aug 2008 09:24:41 GMT

1) I have the data in internal table.I want to send the data into application server file (/usr/sap/trans).can anybdy explain with code?

Re: need help on application server

Former Member — Tue, 26 Aug 2008 09:28:16 GMT

Hi...

Use keywords like open dataset

and read dataset

Its not that difficult try doing yourself dont ask for code directly

regards

vivek

Re: need help on application server

bpawanchand — Tue, 26 Aug 2008 09:29:43 GMT

USe OPEN DATASET and TRANSFER and CLOSE DATASET statement

http://help.sap.com/saphelp_nw04/helpdata/EN/fc/eb3d42358411d1829f0000e829fbfe/content.htm

[Sample Code|]

Regards

Pavan

Re: need help on application server

Former Member — Tue, 26 Aug 2008 09:29:47 GMT

Use Open data set Syntax .

Regards

jana

Re: need help on application server

Former Member — Tue, 26 Aug 2008 09:34:31 GMT

Hi,

Check this sample code


REPORT  z_file2.
DATA: fname(40),
      w_line TYPE i VALUE 1.
DATA:
  BEGIN OF fs_flight,
    carrid   LIKE sflight-carrid,
    connid   LIKE sflight-connid,
    fldate   LIKE sflight-fldate,
  END OF fs_flight.

DATA:
  t_flight LIKE
     TABLE OF
           fs_flight.

SELECT-OPTIONS:
  s_carrid FOR fs_flight-carrid,
  s_connid FOR fs_flight-connid.
fname = '.\usr\sap\trans\ztest.csv'.
PERFORM get_flight_data.
OPEN DATASET fname FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
LOOP AT t_flight INTO fs_flight.
  TRANSFER fs_flight TO fname.
ENDLOOP.
IF sy-subrc EQ 0.
  WRITE: 'File Opened On Apps Server'.
ELSE.
  WRITE: 'File could not be opened'.
ENDIF.
CLOSE DATASET fname.




*&---------------------------------------------------------------------*
*&      Form  get_flight_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_flight_data .
  SELECT carrid
         connid
         fldate
    FROM sflight
    INTO TABLE t_flight
   WHERE carrid IN s_carrid
     AND connid IN s_connid.
ENDFORM.                    " get_flight_data

Regards

Abhijeet

Re: need help on application server

former_member386202 — Tue, 26 Aug 2008 09:37:53 GMT

Hi,

Refer below code

&----

*& Form sub_download_appl_error

&----

text

----

--> p1 text
<-- p2 text

----

FORM sub_download_appl_error.

*--Local Variables

DATA : l_erfile TYPE string.

*--Clear file

CLEAR : l_erfile.

l_erfile = p_aefile.

*--Open dataset for output mode to transfer the error log

OPEN DATASET l_erfile FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ c_ok.

IF NOT it_erfile[] IS INITIAL.

LOOP AT it_erfile INTO st_erfile.

TRANSFER st_erfile TO l_erfile.

CLEAR : st_erfile.

ENDLOOP.

*--Error Log downloaded on given path

MESSAGE i000 WITH text-005.

ELSE.

*--Legacy Data Created Successfully

MESSAGE i000 WITH text-004.

ENDIF.

ENDFORM. " sub_download_appl_error

Regards,

Prashant

Re: need help on application server

Former Member — Tue, 26 Aug 2008 09:38:29 GMT

change this code according your requirment

&----

*& Report ZPP_DOWNLOAD_MAT_AIX

&----

REPORT ZPP_DOWNLOAD_MAT_AIX.

*----

Declare Module level data structures.

*----

TABLES : CABN.

data: str type string.

DATA : BEGIN OF I_MKAL OCCURS 0,

MATNR LIKE MKAL-MATNR,

WERKS LIKE MKAL-WERKS,

VERID LIKE MKAL-VERID,

END OF I_MKAL.

DATA : WA_MKAL LIKE I_MKAL.

DATA : FLAG TYPE C,

FLAG1 TYPE C.

DATA : ZATNAM LIKE CABN-ATNAM,

ZATINN LIKE CABN-ATINN.

DATA : BEGIN OF I_FINAL OCCURS 0,

MATNR LIKE MKAL-MATNR,

WERKS LIKE MKAL-WERKS,

VERID LIKE MKAL-VERID,

ATWRT LIKE AUSP-ATWRT,

ATWRT1 LIKE AUSP-ATWRT,

ATWRT2 LIKE AUSP-ATWRT,

END OF I_FINAL.

DATA : ZATWRT1 LIKE AUSP-ATWRT,

ZATWRT LIKE AUSP-ATWRT,

ZATWRT2 LIKE AUSP-ATWRT.

data: xout type string.

data: iout type table of string.

field-symbols: <fs>.

data : d1 type localfile value '/downloads/touchscreen/upload/'.

data : d1 type localfile value '/touchscreen/upload/'.

data : fname type localfile value 'materialdata.txt'.

*----

Start of processing

*----

*Selection Process Starts

START-OF-SELECTION.

FORMAT COLOR COL_NORMAL.

SELECT MATNR

WERKS

VERID

FROM MKAL INTO CORRESPONDING FIELDS OF TABLE I_MKAL

WHERE SERKZ = 'X'

AND WERKS IN ('1101', '1102').

LOOP AT I_MKAL.

CLEAR ZATINN.

SELECT SINGLE ATINN

FROM CABN

INTO ZATINN

WHERE ATNAM = 'TYPE'.

SELECT SINGLE ATWRT

FROM AUSP INTO ZATWRT

WHERE OBJEK = I_MKAL-MATNR

AND ATINN = ZATINN " TYPE = 0000000012

AND KLART = '001'.

IF SY-SUBRC = 0.

FLAG = 'X'.

ENDIF.

CLEAR ZATINN.

SELECT SINGLE ATINN

FROM CABN

INTO ZATINN

WHERE ATNAM = 'SUB_TYPE'.

SELECT SINGLE ATWRT

FROM AUSP INTO ZATWRT1

WHERE OBJEK = I_MKAL-MATNR

AND ATINN = ZATINN "SUB_TYPE = 0000000013

AND KLART = '001'.

IF SY-SUBRC = 0.

FLAG1 = 'X'.

ENDIF.

CLEAR ZATINN.

SELECT SINGLE ATINN

FROM CABN

INTO ZATINN

WHERE ATNAM = 'COLOUR'.

SELECT SINGLE ATWRT

FROM AUSP INTO ZATWRT2

WHERE OBJEK = I_MKAL-MATNR

AND ATINN = ZATINN "COLOR = 0000000014

AND KLART = '001'.

IF SY-SUBRC = 0 AND FLAG = 'X' AND FLAG1 = 'X'.

I_FINAL-MATNR = I_MKAL-MATNR.

I_FINAL-WERKS = I_MKAL-WERKS.

I_FINAL-VERID = I_MKAL-VERID.

I_FINAL-ATWRT = ZATWRT. "TYPE

I_FINAL-ATWRT1 = ZATWRT1. "SUBTYPE

I_FINAL-ATWRT2 = ZATWRT2. "COLOR

APPEND I_FINAL.

CLEAR I_FINAL.

ENDIF.

CLEAR ZATWRT.

CLEAR ZATWRT1.

CLEAR ZATWRT2.

CLEAR I_FINAL.

CLEAR FLAG.

CLEAR FLAG1.

CLEAR I_MKAL.

ENDLOOP.

concatenate d1 fname into d1.

open dataset d1 for output in text mode ENCODING DEFAULT.

LOOP AT I_FINAL.

concatenate I_FINAL-MATNR I_FINAL-WERKS I_FINAL-VERID

I_FINAL-ATWRT I_FINAL-ATWRT1 I_FINAL-ATWRT2

into str

separated by cl_abap_char_utilities=>horizontal_tab.

transfer str to d1.

endloop.

close dataset d1.