Solved: Hi Amit it is regarding your email attachment Prog...

abdul_hakim · ‎02-18-2006

Hi Amit,

The email attachment program which you gave me before is working fine when i read data from presentation server.I have replaced the gui_upload with OPEN DATASET FNAME FOR INPUT for reading from Appln.server but the values are not in the correct format in the attachment.Please help..

Thanks,

Abdul

Former Member · ‎02-20-2006

Hi abdul,

sorry for the late reply !

1. Are u opening the file

in BINARY mode ?

(or text mode is required ) ?

regards,

amit m.

Former Member · ‎02-18-2006

Hi abdul,

1. but the values are not in the correct format in the attachment

The internal table which u used

for getting the data of file,

should be declared like this :

DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.

2. or else, it should have 134 character length !

regards,

amit m.

abdul_hakim · ‎02-18-2006

Hi Amit,

I have written data into Appln server using the below statement..

OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE.

And i replaced The GUI_UPLOAD in your code with

OPEN DATASET FOR FNAME IN BINARY MODE.

DO.

READ DATASET FNAME INTO ITAB.

IF SY-SUBRC EQ 0.

APPEND ITAB.

ELSE.

EXIT.

ENDDO.

I have not all changed the any piece of code, ITAB is defined as

DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.

Please help..

Thanks,

abdul

Former Member · ‎02-18-2006

Hi again,

1. it should be opened in INPUT mode

(not in output mode)

regards,

amit m.

abdul_hakim · ‎02-18-2006

Hi Amit,.

I have opened in INPUT mode only....

I feel the below code is causing problem.Some values are also truncated...

LOOP AT mypdf.

pos = 255 - len.

IF pos > 134. "length of pdf_table

pos = 134.

ENDIF.

outbin+len = mypdf(pos).

len = len + pos.

IF len = 255. "length of out (contents_bin)

APPEND outbin.

CLEAR: outbin, len.

IF pos < 134.

outbin = mypdf+pos.

len = 134 - pos.

ENDIF.

ENDLOOP.

IF len > 0.

APPEND outbin.

ENDIF.

Abdul

Message was edited by: Abdul Hakim

Former Member · ‎02-18-2006

try this...

OPEN DATASET FNAME FOR INPUT IN  TEXT MODE.

transfer fname to itab

close dataset

abdul_hakim · ‎02-18-2006

Hi Chandu,

I have text mode also.

You can only read using READ DATASET statement..

Abdul

Former Member · ‎02-20-2006

Hi abdul,

sorry for the late reply !

1. Are u opening the file

in BINARY mode ?

(or text mode is required ) ?

regards,

amit m.

abdul_hakim · ‎02-20-2006

Hi Amit,

Sorry for the late reply.

I have written in Text mode and reading in Binary Mode.

All the lines are coming in a single line without any format..

For eg i want the attachment to be like below.

Vendor Vendor Name

10000 Amit

But in the attachment i am getting like below.

Vendor Vendor Name 10000 Amit

Kindly Advice..

Thanks,

Abdul

Former Member · ‎02-20-2006

Hi abdul,

1. Even if we open in text mode,

it will work fine.

2. i tried to make same program at my end

and it works fine (ie. it shows in NEXT LINE)

3. I assume u already have

include

zami_inclfor_mail

4.

REPORT zam_temp147 .

INCLUDE zami_inclfor_mail.

*----

DATA

*----

DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.

DATA : file_name TYPE string.

DATA : path LIKE pcfile-path.

DATA : extension(5) TYPE c.

DATA : name(100) TYPE c.

*----

SELECTION SCREEN

*----

PARAMETERS : receiver TYPE somlreci1-receiver LOWER CASE.

*PARAMETERS : p_file LIKE rlgrap-filename

*OBLIGATORY.

*

PARAMETERS : appfn(150) TYPE c LOWER CASE OBLIGATORY.

*----

START-OF-SELECTION

*----

START-OF-SELECTION.

PERFORM ml_customize USING 'Tst' 'Testing'.

PERFORM ml_addrecp USING receiver 'U'.

PERFORM upl.

PERFORM servupload.

PERFORM doconv TABLES itab objbin.

PERFORM ml_prepare USING 'X' extension name.

PERFORM ml_dosend.

*----

SUBMIT rsconn01

WITH mode EQ 'INT'

AND RETURN.

*----

FORM servupload.

OPEN DATASET appfn FOR INPUT IN BINARY MODE .

IF sy-subrc <> 0.

MESSAGE s999(yhr) WITH 'COULD NOT OPEN FILE ON APP SERVER'.

LEAVE LIST-PROCESSING.

ENDIF.

DO.

READ DATASET appfn INTO itab.

IF sy-subrc = 0.

APPEND itab.

ELSE.

EXIT.

ENDIF.

ENDDO.

ENDFORM. "servupload

regards,

amit m.

abdul_hakim · ‎02-20-2006

Hi Amit,

My file width is more than 132 char and it is missing out certain characters as well and i am not getting the output in correct format..

Thanks,

Abdul

Former Member · ‎02-20-2006

hi again,

1. more width than 132 is not at all a problem.

2. there must be VERY MINOR MISTAKE

in the code, which is causing such problem.

3. pls provide ur code so that

we may be able to diagnose the problem.

regards,

amit m.

abdul_hakim · ‎02-20-2006

REPORT ZSAMPL_001 .

INCLUDE ZINCLUDE_01.

*----

DATA

*----

DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.

DATA : file_name TYPE string.

data : path like PCFILE-PATH.

data : extension(5) type c.

data : name(100) type c.

*----

SELECTION SCREEN

*----

PARAMETERS : receiver TYPE somlreci1-receiver lower case.

*PARAMETERS : p_file LIKE rlgrap-filename

*OBLIGATORY.

PARAMETERS : appfn(150) TYPE c LOWER CASE OBLIGATORY.

*----

AT SELECTION SCREEN

*----

*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

*CLEAR p_file.

*

*CALL FUNCTION 'F4_FILENAME'

*IMPORTING

*file_name = p_file.

*----

START-OF-SELECTION

*----

START-OF-SELECTION.

PERFORM ml_customize USING 'Tst' 'Testing'.

PERFORM ml_addrecp USING receiver 'U'.

PERFORM upl.

PERFORM doconv TABLES itab objbin.

PERFORM ml_prepare USING 'X' extension name.

PERFORM ml_dosend.

*----

SUBMIT rsconn01

WITH mode EQ 'INT'

AND RETURN.

*----

FORM

*----

FORM upl.

*file_name = p_file.

file_name = appfn.

OPEN DATASET appfn FOR INPUT IN BINARY MODE.

DO.

READ DATASET FILE_NAME INTO ITAB.

IF SY-SUBRC EQ 0.

APPEND ITAB.

ELSE.

EXIT.

ENDIF.

ENDDO.

*CALL FUNCTION 'GUI_UPLOAD'

*EXPORTING

*filename = file_name

*filetype = 'BIN'

*TABLES

*data_tab = itab

*EXCEPTIONS

*file_open_error = 1

*file_read_error = 2

*no_batch = 3

*gui_refuse_filetransfer = 4

*invalid_type = 5

*no_authority = 6

*unknown_error = 7

*bad_data_format = 8

*header_not_allowed = 9

*separator_not_allowed = 10

*header_too_long = 11

*unknown_dp_error = 12

*access_denied = 13

*dp_out_of_memory = 14

*disk_full = 15

*dp_timeout = 16

*OTHERS = 17.

path = file_name.

CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'

EXPORTING

complete_filename = path

CHECK_DOS_FORMAT =

IMPORTING

DRIVE =

EXTENSION = extension

NAME = name

NAME_WITH_EXT =
PATH =

EXCEPTIONS

INVALID_DRIVE = 1

INVALID_EXTENSION = 2

INVALID_NAME = 3

INVALID_PATH = 4

OTHERS = 5

.

ENDFORM. "upl

Former Member · ‎02-20-2006

Hi again,

1. I tried your code at my end,

and it works perfectly fine.

2. Try to upload some other

standarrd text file (which is

already there on the application server).

for testing purpose.

3. It should work.

regards,

amit m.

abdul_hakim · ‎02-20-2006

Hi Amit,

I have tried with other files and the values are coming in a single line.It is not in a correct format as in appln.server..

Kindly help..

Thanks,

Abdul

Former Member · ‎02-20-2006

Hi again,

1. I suppose u have not modified anything

in the include file.

2. Can u pls give that code

(i will just check if its modified or

somethign is wrong as compared to the original()

regards,

amit m.

abdul_hakim · ‎02-20-2006

REPORT ZSAMPL_001 .

INCLUDE ZINCLUDE_01.

*----

DATA

*----

DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.

DATA : file_name TYPE string.

data : path like PCFILE-PATH.

data : extension(5) type c.

data : name(100) type c.

*----

SELECTION SCREEN

*----

PARAMETERS : receiver TYPE somlreci1-receiver lower case.

*PARAMETERS : p_file LIKE rlgrap-filename

*OBLIGATORY.

PARAMETERS : appfn(150) TYPE c LOWER CASE OBLIGATORY.

*----

AT SELECTION SCREEN

*----

*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

*CLEAR p_file.

*

*CALL FUNCTION 'F4_FILENAME'

*IMPORTING

*file_name = p_file.

*----

START-OF-SELECTION

*----

START-OF-SELECTION.

PERFORM ml_customize USING 'Tst' 'Testing'.

PERFORM ml_addrecp USING receiver 'U'.

PERFORM upl.

PERFORM doconv TABLES itab objbin.

PERFORM ml_prepare USING 'X' extension name.

PERFORM ml_dosend.

*----

SUBMIT rsconn01

WITH mode EQ 'INT'

AND RETURN.

*----

FORM

*----

FORM upl.

*file_name = p_file.

file_name = appfn.

OPEN DATASET appfn FOR INPUT IN TEXT MODE.

DO.

READ DATASET FILE_NAME INTO ITAB.

IF SY-SUBRC EQ 0.

APPEND ITAB.

ELSE.

EXIT.

ENDIF.

ENDDO.

*CALL FUNCTION 'GUI_UPLOAD'

*EXPORTING

*filename = file_name

*filetype = 'BIN'

*TABLES

*data_tab = itab

*EXCEPTIONS

*file_open_error = 1

*file_read_error = 2

*no_batch = 3

*gui_refuse_filetransfer = 4

*invalid_type = 5

*no_authority = 6

*unknown_error = 7

*bad_data_format = 8

*header_not_allowed = 9

*separator_not_allowed = 10

*header_too_long = 11

*unknown_dp_error = 12

*access_denied = 13

*dp_out_of_memory = 14

*disk_full = 15

*dp_timeout = 16

*OTHERS = 17.

path = file_name.

CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'

EXPORTING

complete_filename = path

CHECK_DOS_FORMAT =

IMPORTING

DRIVE =

EXTENSION = extension

NAME = name

NAME_WITH_EXT =
PATH =

EXCEPTIONS

INVALID_DRIVE = 1

INVALID_EXTENSION = 2

INVALID_NAME = 3

INVALID_PATH = 4

OTHERS = 5

.

ENDFORM. "upl

***INCLUDE ZINCLUDE_01 .

*----

10.08.2005 Amit M - Created
Include For Mail (First Req F16)
Modification Log

*

*----

Data

*----

tables crmrfcpar.

DATA: docdata LIKE sodocchgi1,

objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,

objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,

objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,

objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,

objhex LIKE solix OCCURS 10 WITH HEADER LINE,

reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.

DATA: tab_lines TYPE i,

doc_size TYPE i,

att_type LIKE soodk-objtp.

DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.

data v_rfcdest LIKE crmrfcpar-rfcdest.

*----

FORM

*----

FORM ml_customize USING objname objdesc.

*----

Clear Variables

CLEAR docdata.

REFRESH objpack.

CLEAR objpack.

REFRESH objhead.

REFRESH objtxt.

CLEAR objtxt.

REFRESH objbin.

CLEAR objbin.

REFRESH objhex.

CLEAR objhex.

REFRESH reclist.

CLEAR reclist.

REFRESH listobject.

CLEAR listobject.

CLEAR tab_lines.

CLEAR doc_size.

CLEAR att_type.

*----

Set Variables

docdata-obj_name = objname.

docdata-obj_descr = objdesc.

ENDFORM. "ml_customize

*----

FORM

*----

FORM ml_addrecp USING preceiver prec_type.

CLEAR reclist.

reclist-receiver = preceiver.

reclist-rec_type = prec_type.

APPEND reclist.

ENDFORM. "ml_customize

*----

FORM

*----

FORM ml_addtxt USING ptxt.

CLEAR objtxt.

objtxt = ptxt.

APPEND objtxt.

ENDFORM. "ml_customize

*----

FORM

*----

FORM ml_prepare USING bypassmemory whatatt_type whatname.

IF bypassmemory = ''.

*----

Fetch List From Memory

CALL FUNCTION 'LIST_FROM_MEMORY'

TABLES

listobject = listobject

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

MESSAGE ID '61' TYPE 'E' NUMBER '731'

WITH 'LIST_FROM_MEMORY'.

ENDIF.

CALL FUNCTION 'TABLE_COMPRESS'

IMPORTING
COMPRESSED_SIZE =

TABLES

in = listobject

out = objbin

EXCEPTIONS

OTHERS = 1

.

IF sy-subrc <> 0.

MESSAGE ID '61' TYPE 'E' NUMBER '731'

WITH 'TABLE_COMPRESS'.

ENDIF.

-----------
Header Data
Already Done Thru FM
-----------

-----------
Main Text
Already Done Thru FM
-----------

-----------
Packing Info For Text Data
-----------

DESCRIBE TABLE objtxt LINES tab_lines.

READ TABLE objtxt INDEX tab_lines.

docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).

CLEAR objpack-transf_bin.

objpack-head_start = 1.

objpack-head_num = 0.

objpack-body_start = 1.

objpack-body_num = tab_lines.

objpack-doc_type = 'TXT'.

APPEND objpack.

-----------
Packing Info Attachment
-----------

att_type = whatatt_type..

DESCRIBE TABLE objbin LINES tab_lines.

READ TABLE objbin INDEX tab_lines.

objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).

objpack-transf_bin = 'X'.

objpack-head_start = 1.

objpack-head_num = 0.

objpack-body_start = 1.

objpack-body_num = tab_lines.

objpack-doc_type = att_type.

objpack-obj_name = 'ATTACHMENT'.

objpack-obj_descr = whatname.

APPEND objpack.

-----------
Receiver List
Already done thru fm
-----------

ENDFORM. "ml_prepare

*----

FORM

*----

FORM ml_dosend.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = docdata

put_in_outbox = 'X'

commit_work = 'X' "used from rel. 6.10

IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =

TABLES

packing_list = objpack

object_header = objhead

contents_bin = objbin

contents_txt = objtxt

CONTENTS_HEX = objhex
OBJECT_PARA =
object_parb =

receivers = reclist

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

OTHERS = 8

.

IF sy-subrc <> 0.

MESSAGE ID 'SO' TYPE 'S' NUMBER '023'

WITH docdata-obj_name.

ENDIF.

ENDFORM. "ml_customize

*----

FORM

*----

FORM ml_spooltopdf USING whatspoolid.

DATA : pdf LIKE tline OCCURS 0 WITH HEADER LINE.

*----

Call Function

CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'

EXPORTING

src_spoolid = whatspoolid

TABLES

pdf = pdf

EXCEPTIONS

err_no_otf_spooljob = 1

OTHERS = 12.

*----

Convert

PERFORM doconv TABLES pdf objbin.

ENDFORM. "ml_spooltopdf

*----

FORM

*----

FORM doconv TABLES

mypdf STRUCTURE tline

outbin STRUCTURE solisti1.

*----

Data

DATA : pos TYPE i.

DATA : len TYPE i.

*----

Loop And Put Data

LOOP AT mypdf.

pos = 255 - len.

IF pos > 134. "length of pdf_table

pos = 134.

ENDIF.

outbin+len = mypdf(pos).

len = len + pos.

IF len = 255. "length of out (contents_bin)

APPEND outbin.

CLEAR: outbin, len.

IF pos < 134.

outbin = mypdf+pos.

len = 134 - pos.

ENDIF.

ENDLOOP.

IF len > 0.

APPEND outbin.

ENDIF.

ENDFORM. "doconv

*----

FORM

*----

FORM ml_saveforbp USING jobname jobcount.

*----

Data

*data : yhead like yhrt_bp_head.

*DATA : ydocdata LIKE yhrt_bp_docdata,

*yobjtxt LIKE yhrt_bp_objtxt OCCURS 0 WITH HEADER LINE,

*yreclist LIKE yhrt_bp_reclist OCCURS 0 WITH HEADER LINE.

*

*DATA : seqnr TYPE i.

*

**----

Head

*yhead-jobname = jobname.

*yhead-jobcount = jobcount..

*MODIFY yhrt_bp_head FROM yhead.

*

**----

Doc Data

*ydocdata-jobname = jobname.

*ydocdata-jobcount = jobcount.

*MOVE-CORRESPONDING docdata TO ydocdata.

*MODIFY yhrt_bp_docdata FROM ydocdata.

*

**----

Objtxt

*seqnr = 0.

*LOOP AT objtxt.

*seqnr = seqnr + 1.

*yobjtxt-jobname = jobname.

*yobjtxt-jobcount = jobcount.

*yobjtxt-seqnr = seqnr.

*MOVE-CORRESPONDING objtxt TO yobjtxt.

*MODIFY yhrt_bp_objtxt FROM yobjtxt.

*ENDLOOP.

*

**----

RecList

*seqnr = 0.

*LOOP AT reclist.

*seqnr = seqnr + 1.

*yreclist-jobname = jobname.

*yreclist-jobcount = jobcount.

*yreclist-seqnr = seqnr.

*MOVE-CORRESPONDING reclist TO yreclist.

*MODIFY yhrt_bp_reclist FROM yreclist.

*ENDLOOP.

ENDFORM. "ml_saveforbp

*----

FORM

*----

FORM ml_fetchfrombp USING jobname jobcount.

*CLEAR docdata.

*REFRESH objtxt.

*REFRESH reclist.

*

*SELECT SINGLE * FROM yhrt_bp_docdata

*INTO corresponding fields of docdata

*WHERE jobname = jobname

*AND jobcount = jobcount.

*

*SELECT * FROM yhrt_bp_objtxt

*INTO corresponding fields of TABLE objtxt

*WHERE jobname = jobname

*AND jobcount = jobcount

*ORDER BY seqnr.

*

*SELECT * FROM yhrt_bp_reclist

*INTO corresponding fields of TABLE reclist

*WHERE jobname = jobname

*AND jobcount = jobcount

*ORDER BY seqnr.

*

ENDFORM. "ml_fetchfrombp

Message was edited by: Abdul Hakim

abdul_hakim · ‎02-20-2006

Hi AMit,

Just analysed that the length of itab is 132 char but my file length is morethan that.Hence it fetching upto 132 character in each line and neglecting the others.Format also not ok here.KIndy advice..

Former Member · ‎02-20-2006

Hi again,

1. Length of itab 132 is not at all a problem.

2. What u do is that :

Create a file in NOTEPAD and write something in it.

Put this file on the SERVER.

3. Open thru program in binary mode (as alrady suggested)

4. Check this file.

5. it will come ok.

6. I have tried YOUR SAME PROGRAM

and its working FANTASTIC

by just changing to binary mode.

regards,

amit m.

former_member927251 · ‎02-20-2006

Hi Abdul,

Please refer the subroutine below if it helps you.

Whenever you write Read Dataset statement you get the content in a single row. You need to split it accordingly based on a delimeter say comma(,). Format the data into another internal table as required. I had a similar requirement.

Award appropriate points if it helps.

&----

*& Form f2000_upload_applserv_file

&----

Upload the file on the Application Server

----

FORM f2000_upload_applserv_file .

DATA: lv_appldata TYPE string,

lv_credit_value TYPE string,

lv_acctbal TYPE string,

lv_item_guid TYPE string.

Open the Application Server file to read the content

OPEN DATASET gv_appl_path FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

To get pass the Header Record in the file

READ DATASET gv_appl_path INTO lv_appldata.

DO.

CLEAR: lv_appldata,

lv_credit_value,

lv_acctbal,

lv_item_guid.

READ DATASET gv_appl_path INTO lv_appldata.

IF sy-subrc EQ 0.

SPLIT lv_appldata

AT gc_comma

INTO wa_file_data-cust_no

wa_file_data-contacct_no

wa_file_data-ba_name

wa_file_data-ba_line1

wa_file_data-ba_line2

wa_file_data-ba_line3

wa_file_data-site_no

wa_file_data-flmt_code

lv_credit_value

wa_file_data-energy_type

wa_file_data-flmt_desc

lv_acctbal

lv_item_guid.

wa_file_data-credit_value = lv_credit_value.

wa_file_data-acct_bal = lv_acctbal.

wa_file_data-item_guid = lv_item_guid.

APPEND wa_file_data TO git_file_data.

ELSE.

EXIT.

ENDIF.

ENDDO.

ELSE.

Display error message if there is an error in opening the file

MESSAGE ID gc_msg_class

TYPE gc_error

NUMBER gc_msgno_261.

ENDIF.

ENDFORM. " f2000_upload_applserv_file

Regards,

Amit Mishra

former_member927251 · ‎02-20-2006

Hi Abdul,

Use following code for writing to the application server and then read the data and you will get it in a single line.

Please award some points if it helps.

DATA: lv_string TYPE string.

CONSTANTS : lc_comma TYPE char1 VALUE ','.

Start Writing into the file

LOOP AT git_contract_det INTO wa_contract_det.

CONCATENATE wa_contract_det-field1

wa_contract_det-field2

wa_contract_det-field3

wa_contract_det-field4

wa_contract_det-field5

INTO lv_string

SEPARATED BY lc_comma .

TRANSFER lv_string TO gv_dsn.

ENDLOOP.

Regards,

Amit Mishra

Former Member · ‎02-20-2006

Hi abdul,

1. Got it.

2. Just replace your line

OPEN DATASET appfn FOR INPUT IN TEXT MODE encoding default.

with

OPEN DATASET appfn FOR INPUT IN BINARY MODE .

(in your main program)

3. I tried, and now

ITS WORKING FINE.

regards,

amit m.

abdul_hakim · ‎02-20-2006

Hi Amit,

I don't know what is happening in my system.

I have replaced with BINARY MODE but

READ DATASET is returning sy-subrc eq 4...

Thanks,

Abdul

Former Member · ‎02-20-2006

Hi again,

1. FILE NAMES (ALONG WITH THE PATH)

ARE CASE - SENSITVIVE.

TAKE CARE OF THAT.

2. Just type the path and file name

AS IT IS

as appears in AL11.

regards,

amit m.

abdul_hakim · ‎02-20-2006

Hi Amit,

I have given it correctly thats y i didnt get any error in OPEN DATASET....

Abdul

Former Member · ‎02-20-2006

Hi again,

1. Just checked if the file

is not opened elsewhere (may be in al11)

2. also (but not important)

just change your variable

while reading file.

READ DATASET appfn INTO itab.

do not use

READ DATASET filename INTO itab.

3. Just debug from that point and check

whats happening !

regards,

amit m.

Hi Amit it is regarding your email attachment Program!!