Open dataset......

Hi Kiran,

<b>Presentation Server</b> is the Presentation Layer in R/3 architecture i.e Windows in our case.

The presentation components are responsible for the interaction between the R/3 System and the user, and for desktop component integration (such as word processing and spreadsheets).

<b>Application server is</b> the APplication Layer in R/3 architecture

The application layer consists of one or more application servers and a message server. Each application server contains a set of services used to run the R/3 System. Theoretically, you only need one application server to run an R/3 System. In practice, the services are distributed across more than one application server. This means that not all application servers will provide the full range of services. The message server is responsible for communication between the application servers. It passes requests from one application server to another within the system. It also contains information about application server groups and the current load balancing within them. It uses this information to choose an appropriate server when a user logs onto the system.

refer this link for architecture diagram which will clear you doubts:

http://www.erpgenie.com/sap/basis/

Best regards,

Prashant

Hi Kiran,

To my understanding your file is not being created cause you have not passed a location for your file to be put. Refer to my below code you see how its done.

If you need more info let me know.

----

---

• TYPES DECLARATIONS *

----

---

*Data type for Accounting Document Header Table

TYPES: BEGIN OF gt_bkpf,

bukrs TYPE bkpf-bukrs, "Company Code

belnr TYPE bkpf-belnr, "Accounting Document Number

gjahr TYPE bkpf-gjahr, "Fiscal Year

budat TYPE bkpf-budat, "Posting Date

END OF gt_bkpf.

*Data type for Accounting Document Segment Table

TYPES: BEGIN OF gt_bseg,

bukrs TYPE bkpf-bukrs, "Company Code

belnr TYPE bkpf-belnr, "Accounting Document Number

gjahr TYPE bkpf-gjahr, "Fiscal Year

buzei TYPE bseg-buzei , "Line Item

shkzg TYPE bseg-shkzg , "Debit/Credit Indicator

wrbtr TYPE bseg-wrbtr , "Amount in document currency

kostl TYPE bseg-kostl , "Cost Center

aufnr TYPE bseg-aufnr , "Project / Order Number

hkont TYPE bseg-hkont , "General Ledger Account Key

prctr TYPE bseg-prctr , "Profit Center

segment TYPE bseg-segment, "Segment

END OF gt_bseg.

*Data type for Posting Summary Table of given file format

TYPES: BEGIN OF gt_posting_summary,

effective_date(10) TYPE c, "Date of last tuesday

company_code(4) TYPE c, "Company Code

gl_key(6) TYPE c, "General Ledger Account Key

cost_centre(10) TYPE c, "Cost Center

profit_centre(10) TYPE c, "Profit Center

project(12) TYPE c, "Order Number

segment(10) TYPE c, "Segment for Segmental Reporting

amount(16) TYPE c, "Amount with minor denomination & debit/credit indicator

END OF gt_posting_summary.

----

---

• INTERNAL TABLE DECLARATIONS *

----

---

DATA:

*Internal table for Accounting Document Header Table

gi_bkpf TYPE STANDARD TABLE OF gt_bkpf,

*Internal table for Accounting Document Segment Table

gi_bseg TYPE STANDARD TABLE OF gt_bseg,

*Internal table for Posting Summary Table of given file format

gi_posting_summary TYPE STANDARD TABLE OF gt_posting_summary.

----

---

• RANGES DECLARATIONS *

----

---

DATA:

*Building ranges table for last saturday to current date

gr_date TYPE RANGE OF sy-datum.

----

---

• WORK AREA DECLARATIONS *

----

---

DATA:

*Work area for Accounting Document Segment Table

gwa_bseg TYPE gt_bseg,

*Work area for Accounting Document Segment Table

gwa_bkpf TYPE gt_bkpf,

*Work area for Posting Summary Table of given file format

gwa_posting_summary TYPE gt_posting_summary,

*Work area for ranges table for last saturday to current date

gwa_date LIKE LINE OF gr_date.

----

---

• GLOBAL VARIABLE DECLARATIONS *

----

---

DATA: gv_to_date TYPE sy-datum,

gv_from_date TYPE sy-datum,

gv_effective_date(10) TYPE c,

gv_posting_amount(16) TYPE c,

gv_file_name TYPE string,

gv_server_file_name TYPE fileextern,

gv_suspense_accnt TYPE hkont,

gv_amount TYPE wrbtr.

----

---

• GLOBAL CONSTANT DECLARATIONS *

----

---

DATA: gc_x TYPE c VALUE 'X',

gc_s TYPE bseg-shkzg VALUE 'S',

gc_h TYPE bseg-shkzg VALUE 'H',

gc_i TYPE tvarv-sign VALUE 'I',

gc_bt TYPE tvarv-opti VALUE 'BT',

gc_ys TYPE bkpf-blart VALUE 'YS',

gc_zfii0431 TYPE filepath-pathintern VALUE 'ZFII0431',

gc_debit TYPE c VALUE '+',

gc_credit TYPE c VALUE '-',

gc_dot TYPE c VALUE '.',

gc_suspense_key TYPE zglkey VALUE 'SUSPENSE_GL_ACCOUNT'.

----

---

• Selection Screen *

----

---

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECTION-SCREEN SKIP 1.

*Accounting Document type for eSFA postings

PARAMETERS : p_ys TYPE bkpf-blart DEFAULT gc_ys.

SELECTION-SCREEN SKIP 1.

*Logical Path of file to be downloaded on Application Server

PARAMETERS : p_l_path TYPE filepath-pathintern DEFAULT gc_zfii0431.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECT-OPTIONS : s_date FOR sy-datum .

SELECTION-SCREEN END OF BLOCK b2.

----

---

• ON LOAD EVENT - Occurs only once, when the program is loaded *

----

---

LOAD-OF-PROGRAM.

************************MAIN PROGRAM************************

----

---

• START-OF-SELECTION - start of database access *

----

---

START-OF-SELECTION.

• Clear all global variables

PERFORM clear_memory.

• Routine for calulating date of Last Saturday and Current Tuesday

PERFORM calculate_posting_dates.

• Routine to select posted G/L records from database

PERFORM posting_record_selection.

• Routine to compile posting summary table

PERFORM build_posting_summary.

• Routine to make filename as eSFA_GL_CandC_YYYYMMDD.txt

PERFORM build_file_name.

• Routine for compile physical path of file on Appln. Server

• from logical path and desired filename.

PERFORM get_physical_path USING p_l_path

gv_file_name

gc_x

CHANGING gv_server_file_name.

• Routine to download file on application server

PERFORM download_on_application_server.

**************************INCLUDES***************************

INCLUDE zfi_get_physical_path.

INCLUDE zfi_file_status_change.

*************************SUBROUTINES*************************

&----

---

*& Form calculate_posting_dates

&----

---

• Routine for calulating date of Last Saturday and Current Tuesday

----

---

FORM calculate_posting_dates .

DATA: lv_monday TYPE sy-datum.

*Get the first day of the week.

CALL FUNCTION 'BWSO_DATE_GET_FIRST_WEEKDAY'

EXPORTING

date_in = sy-datum

IMPORTING

date_out = lv_monday.

*Calculate the to date (saturday)

gv_to_date = lv_monday - 2.

*Calculate the from date (sunday)

gv_from_date = lv_monday - 8.

IF s_date-low IS NOT INITIAL.

gv_from_date = s_date-low.

ENDIF.

IF s_date-high IS NOT INITIAL.

gv_to_date = s_date-high.

ENDIF.

ENDFORM. " calculate_posting_dates

&----

---

*& Form build_posting_summary

&----

---

• Routine for processing posting summary data table & compile

• in given output file table

----

---

FORM build_posting_summary .

DATA : lv_kostl TYPE kostl,

lv_amount TYPE wrbtr,

lv_amount_str TYPE wrbtr.

DATA : li_posting_summary TYPE TABLE OF gt_posting_summary.

DATA : lwa_posting_summary TYPE gt_posting_summary.

LOOP AT gi_bseg INTO gwa_bseg.

READ TABLE gi_bkpf INTO gwa_bkpf

WITH KEY bukrs = gwa_bseg-bukrs

belnr = gwa_bseg-belnr

gjahr = gwa_bseg-gjahr.

• Routine to calcualte effective date in format YYYY-MM-DD

PERFORM calculate_effective_date.

gwa_posting_summary-effective_date = gv_effective_date.

gwa_posting_summary-company_code = gwa_bseg-bukrs.

gwa_posting_summary-gl_key = gwa_bseg-hkont+4(6).

gwa_posting_summary-cost_centre = gwa_bseg-kostl.

gwa_posting_summary-profit_centre = gwa_bseg-prctr.

gwa_posting_summary-project = gwa_bseg-aufnr.

gwa_posting_summary-segment = gwa_bseg-segment.

• Remove the derived fields created in SAP while posting

IF gwa_bseg-kostl IS NOT INITIAL OR

gwa_bseg-aufnr IS NOT INITIAL.

CLEAR: gwa_posting_summary-profit_centre,

gwa_posting_summary-segment.

ENDIF.

IF gwa_bseg-aufnr IS NOT INITIAL.

• Substitution for internal order to costcenter for document type 'YS'

SELECT SINGLE cost_centre

INTO lv_kostl

FROM ztfi_sub_costctr

WHERE internal_order = gwa_bseg-aufnr.

IF sy-subrc = 0.

gwa_posting_summary-cost_centre = lv_kostl.

CLEAR gwa_posting_summary-project.

ENDIF.

ENDIF.

IF gwa_bseg-shkzg = gc_h.

gwa_bseg-wrbtr = gwa_bseg-wrbtr * -1.

gwa_posting_summary-amount = gwa_bseg-wrbtr.

ELSE.

gwa_posting_summary-amount = gwa_bseg-wrbtr.

ENDIF.

APPEND gwa_posting_summary TO gi_posting_summary.

CLEAR gwa_posting_summary.

CLEAR gwa_bseg.

ENDLOOP. "LOOP AT gi_bseg INTO gwa_bseg

• Sort to find the summary

SORT gi_posting_summary BY company_code

gl_key

cost_centre

profit_centre

project

segment.

*Summarise amount for unique entries

LOOP AT gi_posting_summary INTO gwa_posting_summary.

lv_amount_str = gwa_posting_summary-amount.

lv_amount = lv_amount + lv_amount_str.

AT END OF segment.

gv_amount = lv_amount.

PERFORM calculate_amount.

gwa_posting_summary-amount = gv_posting_amount.

APPEND gwa_posting_summary TO li_posting_summary.

CLEAR lv_amount.

ENDAT.

ENDLOOP.

*Copy the summarised table back to summary table

gi_posting_summary = li_posting_summary.

ENDFORM. " build_posting_summary

&----

---

*& Form calculate_effective_date

&----

---

• Routine to calcualte effective date in format YYYY-MM-DD

----

---

FORM calculate_effective_date .

DATA: lv_date(8) TYPE c,

lv_yyyy(4) TYPE c,

lv_mm(2) TYPE c,

lv_dd(2) TYPE c,

lv_effective_date(10) TYPE c.

DATA: lc_dash TYPE c VALUE '-'.

lv_date = gv_to_date.

lv_yyyy = lv_date+0(4).

lv_mm = lv_date+4(2).

lv_dd = lv_date+6(2).

CONCATENATE lv_yyyy

lc_dash

lv_mm

lc_dash

lv_dd

INTO lv_effective_date.

gv_effective_date = lv_effective_date.

ENDFORM. " calculate_effective_date

&----

---

*& Form posting_record_selection

&----

---

• Routine to select posted G/L records from database

----

---

FORM posting_record_selection .

gwa_date-sign = gc_i.

gwa_date-option = gc_bt.

gwa_date-low = gv_from_date.

gwa_date-high = gv_to_date.

APPEND gwa_date TO gr_date.

*Get the suspese GL accout number from ZTFI_SIXPARTKEY table.

SELECT SINGLE gl_account

FROM ztfi_sixpartkey

INTO gv_suspense_accnt

WHERE sixpartkey = gc_suspense_key .

IF sy-subrc IS INITIAL.

• Selection of records (other than suspended acc. no. 999999) posted

• between last saturday and current tuesday where document type is 'YS'

SELECT bukrs "Company Code

belnr "Accounting Document Number

gjahr "Fiscal Year

budat "Posting Date

FROM bkpf

INTO TABLE gi_bkpf

WHERE blart EQ p_ys

AND budat IN gr_date. "Change - MV - 16.04.2007 - FCDK902208

• AND cpudt IN gr_date.

IF sy-subrc IS NOT INITIAL.

WRITE / 'No records for current posting period, file not created.'(m03).

ELSEIF sy-subrc IS INITIAL.

READ TABLE gi_bkpf INTO gwa_bkpf INDEX 1.

IF sy-subrc = 0.

PERFORM calculate_effective_date.

ENDIF.

• Selection of details of all records selected in above table

SELECT bukrs "Company Code

belnr "Document Number

gjahr "fiscal year

buzei "Line Item

shkzg "Debit/Credit Indicator

wrbtr "Amount in document currency

kostl "Cost Center

aufnr "Project / Order Number

hkont "General Ledger Account Key

prctr "Profit Center

segment "Segment

FROM bseg

INTO TABLE gi_bseg

FOR ALL ENTRIES IN gi_bkpf

WHERE bukrs = gi_bkpf-bukrs

AND belnr = gi_bkpf-belnr

AND gjahr = gi_bkpf-gjahr

AND hkont <> gv_suspense_accnt.

IF sy-subrc IS NOT INITIAL.

WRITE / 'No records Found, file not created.'(002).

ENDIF.

ENDIF.

ELSE.

WRITE / 'Suspense GL account is not maintained in sixpart key look up table'(001).

ENDIF.

ENDFORM. " posting_record_selection

&----

---

*& Form calculate_amount

&----

---

• Routine to concancate amouunt and debit/credit indicator

----

---

FORM calculate_amount .

DATA: lv_amount(15) TYPE c,

lv_amount_1(12) TYPE c,

lv_amount_2(2) TYPE c,

lv_debit_credit TYPE c.

IF gv_amount <= 0.

lv_debit_credit = gc_credit.

gv_amount = gv_amount * -1.

ELSE.

lv_debit_credit = gc_debit.

ENDIF.

lv_amount = gv_amount.

SPLIT lv_amount AT gc_dot

INTO lv_amount_1

lv_amount_2.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = lv_amount_1

IMPORTING

output = lv_amount_1.

CONCATENATE lv_amount_1

lv_amount_2

INTO lv_amount

SEPARATED BY gc_dot.

CONCATENATE lv_debit_credit lv_amount INTO gv_posting_amount.

ENDFORM. " calculate_amount

&----

---

*& Form build_file_name

&----

---

• Routine to make filename as eSFA_GL_CandC_YYYYMMDD.txt

----

---

FORM build_file_name .

DATA: lv_date(8) TYPE c,

lv_file_name TYPE string.

DATA: lc_file_prefix(14) TYPE c VALUE 'eSFA_GL_CandC_',

lc_file_suffix(4) TYPE c VALUE '.txt'.

lv_date = gv_to_date.

CONCATENATE lc_file_prefix lv_date lc_file_suffix INTO lv_file_name.

gv_file_name = lv_file_name.

ENDFORM. " build_file_name

&----

---

*& Form download_on_application_server

&----

---

• Routine to download file on application server

----

---

FORM download_on_application_server.

DATA : lv_command TYPE string,

lv_lines TYPE i.

lv_command = 'ZFII0431'.

• File should be downloaded only if it is not empty

IF gi_bseg IS NOT INITIAL.

• Open file for output in text mode

OPEN DATASET gv_server_file_name FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc IS NOT INITIAL.

WRITE / 'File could not be open.'(m01).

EXIT.

ENDIF. "IF sy-subrc IS NOT INITIAL

DESCRIBE TABLE gi_posting_summary LINES lv_lines.

LOOP AT gi_posting_summary INTO gwa_posting_summary.

IF sy-tabix <> lv_lines.

• Transfer data to application server

TRANSFER gwa_posting_summary TO gv_server_file_name.

ELSE.

• Transfer data to application server with out end of line

TRANSFER gwa_posting_summary TO gv_server_file_name NO END OF LINE.

ENDIF.

ENDLOOP. " LOOP AT gi_posting_summary INTO gwa_posting_summary

• Close file for output in text mode

CLOSE DATASET gv_server_file_name.

IF sy-subrc IS NOT INITIAL.

WRITE / 'File could not be close.'(m02).

EXIT.

ELSEIF sy-subrc IS INITIAL.

WRITE : / 'File Name:', gv_file_name .

WRITE : / 'File Downloaded to Application Server successfully.'(m04).

• Call the OS command to run Shell script.

PERFORM change_file_status USING lv_command.

ENDIF.

ENDIF.

ENDFORM. " download_on_application_server

&----

---

*& Form clear_memory

&----

---

• Clear all global variables

----

---

FORM clear_memory .

REFRESH: gi_bkpf ,

gi_bseg ,

gi_posting_summary.

REFRESH: gr_date.

CLEAR: gwa_bseg ,

gwa_posting_summary,

gwa_date .

CLEAR: gv_from_date ,

gv_to_date ,

gv_effective_date ,

gv_posting_amount ,

gv_file_name ,

gv_server_file_name.

ENDFORM. " clear_memory

----

---

***INCLUDE ZFI_GET_PHYSICAL_PATH .

----

---

&----

---

*& Form get_physical_path

&----

---

• Routine for compile physical path of file on Appln. Server

• from logical path and desired filename.

----

---

• -->P_P_L_PATH text

• -->P_GV_FILE_NAME text

• -->P_GC_OK text

• <--P_GV_SERVER_FILE_NAME text

----

---

FORM get_physical_path USING p_p_l_path TYPE any

p_gv_file_name TYPE any

p_gc_ok TYPE any

CHANGING p_gv_server_file_name TYPE any.

CALL FUNCTION 'FILE_GET_NAME_USING_PATH'

EXPORTING

client = sy-mandt

logical_path = p_p_l_path

operating_system = sy-opsys

file_name = p_gv_file_name

eleminate_blanks = p_gc_ok

IMPORTING

file_name_with_path = p_gv_server_file_name

EXCEPTIONS

path_not_found = 1

missing_parameter = 2

operating_system_not_found = 3

file_system_not_found = 4

OTHERS = 5.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " get_physical_path

Hi Kiran,

Please try this code. I've made some changes to the code. Please check if this works. Please revert back if i have made any mistakes.

report zlabel .

type-pools : slis,icon.

tables : makt.

*Declarations for ALV

data:itfieldcat type slis_t_fieldcat_alv with header line.

data:itfieldcat1 type slis_t_fieldcat_alv with header line.

data:itprintparams type slis_print_alv.

data:itrepid type sy-repid.

itrepid = sy-repid.

data:itevent type slis_t_event.

data:itlistheader type slis_t_listheader.

data:walistheader like line of itlistheader.

data:itlayout type slis_layout_alv.

data:top type slis_formname.

data:itsort type slis_t_sortinfo_alv with header line.

data : grid type ref to cl_gui_alv_grid.

*Declaration for DSN

data : file(50) value 'C:\labelfiles'.

data : dsn(150).

data : dsn1(100).

data : n1(4) type n.

*Declarations for Internal tables.

data:begin of imakt occurs 0,

matnr like makt-matnr,

spras like makt-spras,

maktx like makt-maktx,

label1(03) type c,

qty1(03) type c,

label2(03) type c,

qty2(03) type c,

end of imakt.

data:itfinal like imakt occurs 0 with header line.

selection-screen begin of block b1 with frame title text-001.

select-options:matnr for makt-matnr obligatory.

selection-screen end of block b1.

start-of-selection.

perform getdata.

if sy-subrc = 0.

perform alv.

else.

stop.

endif.

&----

---

*& Form getdata

&----

---

• text

----

---

form getdata.

select matnr

spras

maktx

from makt

into corresponding fields of table imakt

where spras = sy-langu.

endform. "getdata

&----

---

*& Form ALV

&----

---

• text

----

---

form alv.

define m_fieldcat.

itfieldcat-fieldname = &1.

itfieldcat-col_pos = &2.

itfieldcat-seltext_l = &3.

itfieldcat-do_sum = &4.

itfieldcat-outputlen = &5.

itfieldcat-edit = &6.

append itfieldcat to itfieldcat.

clear itfieldcat.

end-of-definition.

m_fieldcat 'MATNR' '' 'MATERIAL No' '' 18 ''.

m_fieldcat 'SPRAS' '' 'Language' '' 02 ''.

m_fieldcat 'MAKTX' '' 'Description' '' 40 ''.

m_fieldcat 'LABEL1' '' 'LABEL1' '' 12 'X'.

m_fieldcat 'QTY1' '' 'QTY1' '' 12 'X'.

m_fieldcat 'LABEL2' '' 'LABEL2' '' 12 'X'.

m_fieldcat 'QTY2' '' 'QTY2' '' 12 'X'.

itlayout-zebra = 'X'.

itlayout-colwidth_optimize = 'X'.

itlayout-no_subtotals = ' '.

data : i_repid type sy-repid.

i_repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = i_repid

is_layout = itlayout

• i_callback_pf_status_set = 'PF_STATUS'

i_callback_user_command = 'LIST1'

i_callback_top_of_page = 'TOP'

it_fieldcat = itfieldcat[]

i_save = 'X'

• is_variant = ITVARIANT

it_events = itevent[]

is_print = itprintparams

it_sort = itsort[]

tables

t_outtab = imakt

exceptions

program_error = 1

others = 2.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

clear itfieldcat.

endform. "ALV

&----

---

*& Form list1

&----

---

• text

----

---

• -->R_UCOMM text

• -->RS_SELFIELDtext

----

---

form list1 using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when 'EXIT'.

stop.

endcase.

clear itfieldcat1.

refresh itfieldcat1.

define k_fieldcat.

itfieldcat1-fieldname = &1.

itfieldcat1-col_pos = &2.

itfieldcat1-seltext_l = &3.

itfieldcat1-outputlen = &4.

append itfieldcat1 to itfieldcat1.

clear itfieldcat1.

end-of-definition.

k_fieldcat 'MATNR' '' 'MATERIAL No' 18 .

k_fieldcat 'SPRAS' '' 'Language' 02 .

k_fieldcat 'MAKTX' '' 'Description' 40 .

k_fieldcat 'LABEL1' '' 'LABEL1' 12 .

k_fieldcat 'QTY1' '' 'QTY1' 12 .

k_fieldcat 'LABEL2' '' 'LABEL2' 12 .

k_fieldcat 'QTY2' '' 'QTY2' 12 .

data : i_repid type sy-repid.

i_repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = i_repid

is_layout = itlayout

• i_callback_pf_status_set = 'PF_STATUS'

i_callback_user_command = 'LIST2'

i_callback_top_of_page = 'TOP'

it_fieldcat = itfieldcat1[]

i_save = 'X'

• is_variant = ITVARIANT

it_events = itevent[]

is_print = itprintparams

it_sort = itsort[]

tables

t_outtab = imakt

exceptions

program_error = 1

others = 2.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

clear:itfieldcat1,itfieldcat.

endform. "list1

&----

---

*& Form list2

&----

---

• text

----

---

• -->R_UCOMM text

• -->RS_SELFIELDtext

----

---

form list2 using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when '&IC1'.

if rs_selfield-fieldname = 'QTY1'.

loop at imakt.

concatenate file n1 '.PJ' into dsn.

perform dsn.

clear dsn.

n1 = n1 + 1.

endloop.

endif.

endcase.

endform. "list2

&----

---

*& Form top

&----

---

• text

----

---

form top.

data:title(70) type c.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = itevent

• EXCEPTIONS

• LIST_TYPE_WRONG = 1

• OTHERS = 2

.

if sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

title = 'LABEL'.

walistheader-typ = 'H'.

walistheader-info = title.

append walistheader to itlistheader.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = itlistheader

• I_LOGO = ''.

• I_END_OF_LIST_GRID =

.

clear itlistheader.

endform. "TOP

&----

---

*& Form DSN

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form dsn .

open dataset dsn for output.

if sy-subrc <> 0.

exit.

endif.

move-corresponding imakt to itfinal.

append itfinal.

transfer 'MDA.LBL' to dsn.

transfer '1' to dsn.

transfer: itfinal-matnr to dsn,

itfinal-spras to dsn,

itfinal-maktx to dsn,

itfinal-label1 to dsn,

itfinal-qty1 to dsn,

itfinal-label2 to dsn,

itfinal-qty2 to dsn.

if sy-subrc <> 0.

write:/ 'Check your code'.

endif.

close dataset dsn.

endform.

Regards,

Sai

Hi,

If you're program executed properly and you want to get the file

then use TCODE - CG3Y to download the file to local machine

from the application server.

Regards,

Samson Rodrigues.

Hi Kiran,

You are trying to open a file which is on Presentation Server through Open Dataset.

Open Dataset deals only with the files placed on Application Server.

Transaction CG3Y & CG3Z are used to upload/download files from application/Presentation server.

Place the file in application server & pass the correct path. The code should work.

<b>Use GUI_DOWNLOAD/GUI_UPLOAD if you want to deal with files placed on Presentation server.</b>

Best regards,

Prashant

Message was edited by:

Prashant Patil

Hi Kiran,

Yes its possible to create a file on application server through ABAP coding.

Here is a sample program:

The path wont be C:\ ... You can check the path through AL11 or CG3Y/CG3Z transaction you can get a fair idea about the path.

DATA: file TYPE string VALUE `G:\usr\sap\trans\flights.dat`,

wa TYPE spfli.

FIELD-SYMBOLS TYPE x.

OPEN DATASET file FOR OUTPUT IN BINARY MODE.

SELECT *

FROM spfli

INTO wa.

ASSIGN wa TO CASTING.

TRANSFER TO file.

ENDSELECT.

CLOSE DATASET file.

Best regards,

Prashant