Error on line read dataset p_zfile into it_int

hi while executing this below code..
open dataset p_zfile for input in text mode ENCODING DEFAULT.
    if sy-subrc = 0.
      v_one = 1.
      do.
        v_no = v_no + 1.
     *read dataset pzfile into it_record*_ this is giving short dump as below
code to read file
end do
short dump
the following error is being prompted
CONVT_CODEPAGE
CX_SY_CONVERSION_CODEPAGE
A character set conversion is not possible.
At the conversion of a text from codepage '4110' to codepage '4103':
- a character was found that cannot be displayed in one of the two
codepages;
- or it was detected that this conversion is not supported
where
it_record is type infile_struct,
and infile_struct is as below
types: begin of infile_struct,
        data(1150)           type c,
       end of infile_struct.
and p_zfile is used in fm call file_get_nam
please suggest this code is working fine in 4.6 c not upgraded to SAP ECC 6.0 this error is occuring in the code
regarda
arora

here is code
open dataset p_infile for input in text mode ENCODING DEFAULT.
f sy-subrc = 0.
 v_one = 1.
 do.
 v_no = v_no + 1.
 read dataset p_infile into in_record. if sy-subrc = 0. here dump is occuring at last record i deleted the last record in the file but again the dump comes on last record only when all records are read and finally when the cursor come to read dataset statement last time
 if v_no <> v_one.
 split in_record at v_tab into wa_record-idno
 wa_record-stonumber
 wa_record-stolineno
 wa_record-sched_line
 wa_record-pur_group
 wa_record-frmplant
 wa_record-frmstglocatin
 wa_record-toplant
 wa_record-tostglocation
 wa_record-material
 wa_record-matdesc
 wa_record-quantity
 wa_record-dockdate
 wa_record-splinst1
 wa_record-splinst2
 wa_record-splinst3
 wa_record-splinst4
 wa_record-delete
 wa_record-block.

Similar Messages

Upload read dataset only one line

hi all
i have a problem, i want to upload a file from applikation server. When i want to read dataset into a xstring field,
it read only the first line not all why?
here is my code
type-pools dset.
data lf_filename type string value '/opt/interface/indtrans/d58_sst/integrale/output/PLU.plu'.
data lf_line type xstring.
data lf_str_line type string.
data lf_hex_code type swxmlcont.
data lt_attr type dset_attributes.
start-of-selection.
open dataset lf_filename for input in binary mode.
do.
 read dataset lf_filename into lf_line.
 if sy-subrc <> 0.
 exit.
 else.
* get dataset lf_filename attributes lt_attr.
 append lf_line to lf_hex_code.
 endif.
enddo.
close dataset lf_filename.
thx abap_begin....

that to be functional, but when i read with the file with cl_gui_frontend_services=>gui_upload with file Typ "BIN"
CALL METHOD cl_gui_frontend_services=>gui_upload
 EXPORTING
 FILENAME = l_filename
 FILETYPE = 'BIN'
* HAS_FIELD_SEPARATOR = SPACE
* HEADER_LENGTH = 0
 IMPORTING
 FILELENGTH = l_size
* HEADER =
 CHANGING
 data_tab = lt_data
 EXCEPTIONS
 FILE_OPEN_ERROR = c_not_found
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 GUI_REFUSE_FILETRANSFER = 7
 others = 99.
i becam a other result then, when i read with
open dataset lf_filename for input in binary mode.
why?
Now i have a idea, i read the file value in text mode and save this in an internal table.
Then make the loop over table, and convert the value in identical princple such as cl_gui_frontend_services=>gui_upload with the filetype "BIN".
I dont' know, how you do this?
thx abap_begin

Read Dataset Line by line

hi,
I have a text file in application server which is formed line by line. Each line has variable length. How can i use the open dataset to put the data line by line to internal table??
Regards,
Kit

open dataset <dsname> for input in text mode encoding default.
do.
read dataset <dsname> into v_rec.
if sy-subrc = 0.
<ur code>
endif.
endo.
Here text mode reads the content line by line...
Also check the below link.
http://help.sap.com/saphelp_nw04/helpdata/en/79/c554a0b3dc11d5993800508b6b8b11/content.htm
Regards,
Maha

Upload xml file from aplication server using read dataset, parser error.

Hi,
I would like to upload xml file from app. server but parser failed. If I upload this xml file from workstation (using ws_upload) it is correct. For uploading xml file from app. server I use open dataset... read dataset. In loop section I remove '#' char. How do You upload xml file from app server? What Could be incorrect.
I try to open dataset in binary mode, text mode...
TYPES: BEGIN OF xml_line,
 data(255) TYPE c,
 END OF xml_line.
DATA: gt_xml_table TYPE TABLE OF xml_line,
 gs_xml_structure TYPE xml_line,
 gv_xml_table_size TYPE i.
OPEN DATASET s FOR INPUT IN BINARY MODE.
IF sy-subrc <> 0.
 MESSAGE e001(zet) WITH '....'.
ENDIF.
DO.
 READ DATASET s INTO gs_xml_structure.
 IF sy-subrc <> 0.
 EXIT.
 ELSE.
 len = STRLEN( gs_xml_structure ).
 len = len - 1.
 check len > 0.
 WRITE gs_xml_structure(len) TO gs_xml_structure.
 APPEND gs_xml_structure TO gt_xml_table.
 ENDIF.
ENDDO.

You Can do this too
parameters: p_file like rlgrap-filename.
data: subrc like sy-subrc.
create object me.
REFRESH t_data.
* Open XML File
CALL METHOD me->CREATE_WITH_FILE
 EXPORTING
 filename = p_file
 RECEIVING
 retcode = subrc.
* Saves Data in an itab from XML File.
CALL METHOD me->get_data
 IMPORTING
 retcode = subrc
 CHANGING
 dataobject = t_data[].
Regards,
Claudio.

Problem reading DATASET into xstring

Hi,
I am facing a curious problem where I'd appreciate a helping hand: when I read data from a dataset into a variable of fixed-length, everything works fine. When I try to do the same with a variable-length type, nothing is read.
This code works fine:
DATA binarydata(32000) TYPE x,
 alen TYPE i.
OPEN DATASET filename FOR INPUT IN BINARY MODE.
READ DATASET filename INTO binarydata ACTUAL LENGTH alen.
Here alen contains the correct number of bytes read (eg. 19000).
But if I try:
DATA binarydata TYPE xstring,
 alen TYPE i.
OPEN DATASET filename FOR INPUT IN BINARY MODE.
READ DATASET filename INTO binarydata ACTUAL LENGTH alen.

Here alen is 0.
Can anybody tell me what's wrong here ?
Thanks & Regards
Heiko

Hello Heiko
 If you are using NON-UNICODE system, please try by unselecting the checkbox "Unicode Checks Active" in program attributes.
 While using UNICODE system, need to use as STRING.
Reason:
In UNICODE enabled or when Unicode Checks is active, system can transfer data between structures only when both are of characater format.
In your case, the data is read in text mode i.e character format but trying to move to XSRTING which is sequence of 'X' type characters. Hence resulting in dump.
Just for your info:
The elementary data type STRING is similar to data type C and refers to a variable-length string. Accordingly, the elementary data type XSTRING is similar to data type X and refers to a variable-length byte sequence.
 Hope the above info clarifies you.
Kind Regards
Eswar

Explain why READ DATASET conversion from codepage '4110' to codepage '4102'

I am unfamiliar with unicode but I am trying to solve a problem in an ABAP program.
Our code is
OPEN DATA p_in FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
READ DATASET p_in INTO i_tab.
The program gives me the error 'At the conversion of a text from codepage '4110' to codepage '4102'. The program abends on a line in the file that contains the special character '#'.
Does this mean that the file I am reading is in codepage '4110' and the internal format of i_tab is codepage '4102'? If so, how do the codepages get assigned to unix files and internal structures How can I make the both codepage '4110' or codepage '4102'? Also, what is the difference between these two codepages?
thanks.
Ryan
My

Hi,
Use
open dataset DSN in text mode for input encoding utf-8.
a®

Strange Error ! For Reading Application Server File

Hi Friends,
I am getting very strange error while compliling my code. As I am reading a text file for input from Application server for further processing. But my system is giving me an error.
As the file and the path is not yet configured on the application server but i believe
it has to allow me to compile the program and when i execute it then it will give an error as I have tracked.
Kindly help.
I have pasted the code below for reference.
===============================
TYPES : BEGIN OF ty_file,
         line(1055) TYPE c,
          end of ty_file.
data : gs_file type ty_file.
data : g_file4 TYPE string VALUE '\usr\sap\CISCO\SP\CISCO_SP_CHG.TXT'.
OPEN DATASET g_file4 IN TEXT MODE FOR INPUT
                         ENCODING DEFAULT
                         WITH SMART LINEFEED.
IF sy-subrc NE 0.
    MESSAGE e012.
    LEAVE LIST-PROCESSING.
ENDIF.
CLEAR : gs_file.
DO.
    READ g_file4 INTO gs_file.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.
    APPEND gs_file into gt_cust_tmp.
    clear gs_file.
ENDDO.
CLOSE DATASET g_file4.
ERROR i am getting
Unable to interpret g_file4. Possible cause of error "Incorrect Spelling or Comma error".
=======================
Regards,
pradeep

TYPES : BEGIN OF ty_file,
line(1055) TYPE c,
end of ty_file.
data : gs_file type ty_file.
data gt_cust_tmp type table of ty_file.
data : g_file4 TYPE string VALUE '\usr\sap\CISCO\SP\CISCO_SP_CHG.TXT'.
OPEN DATASET g_file4 IN TEXT MODE FOR INPUT
ENCODING DEFAULT
WITH SMART LINEFEED.
IF sy-subrc NE 0.
MESSAGE e012.
LEAVE LIST-PROCESSING.
ENDIF.
CLEAR : gs_file.
DO.
READ dataset g_file4 INTO gs_file.
IF sy-subrc NE 0.
EXIT.
ENDIF.
APPEND gs_file to gt_cust_tmp.
clear gs_file.
ENDDO.
CLOSE DATASET g_file4.
check this coding. in the read statement dataset is missing.
with regards,
Vamsi

Error in executing ABAP program. Error occurred when creating dataset

hi,
when I use LKM SAP ERP to Oracle (SQLLDR) to extract data from SAP ERP server. I execute my interface, and it's stop at extract data step.
This is message:
java.lang.RuntimeException: Error occured in open tool execute method...Error in executing ABAP program...Error in executing ABAP program...Error occurred when creating dataset/abc/ZODI_13001_6001_GLOBAL.txt
I tried others path name, tried slash or backslash. This is content in code tab
OdiSAPAbapExecute "-UPLOAD=1" "-EXECUTE=1" "-EXECUTEBASE_RKM=0" "-ZRFC_RUN_INSTALL=1" "-ABAP_PROGRAM_NAME=ZODI_13001_6001" "-HOST=10.86.87.24" "-USER=sv_hoa" "-PASSWORD=<@=snpRef.getInfo("SRC_PASS") @>" "-SAP_CLIENT=800" "-SAP_LANGUAGE=EN" "-SAP_SYSTEM_NUMBER=02" "-SAP_FUNCTION_GROUP_NAME=ZODI_FGR_13001" "-CONNECTION_POOL_NAME=SAP_ODI_ERP_POOL_10.86.87.24" "-CONNECTION_POOL_SIZE=10" "-FILE_DELIMITER=<@=""+(char)8@>" "-FILE_NAME=ZODI_13001_6001_GLOBAL.txt" "-FTP_HOST=10.86.82.108" "-FTP_USER=anh" "-FTP_PASSWORD=<@=sFtpPassword@>" "-FTP_PASSIVE_MODE=1" "-FTP_TRANSFER_TIMEOUT=100000" "-ODI_VARIABLE_NAMES=" "-ODI_VARIABLE_VALUES=" "-USER_ABAP_PARAMETER_NAMES=IV_DELIMITER,CHAR3;IV_FILENAME,CHAR255;IV_USER,CHAR35;IV_PWD,CHAR35;IV_HOST,CHAR35;IV_HASHVALUE,CHAR35;IV_PATH,CHAR35;IV_MAX_ROW_CNT,SYTABIX;IV_FETCH_BATCH_SIZE,SYTABIX;" "-USER_ABAP_PARAMETER_VALUES=<Value>" "-USER_ABAP_PARAMETER_SEPARATOR=<Value>" "-ABAP_TABLE_PARAMETERS=RETURN,BAPIRETURN;ET_FILE_RETURN,BAPIRET2" "-ABAP_EXPORT_PARAMETERS=ERRORMESSAGE;SY-MSGV1" "-LOG_FILE_NAME=C:\Users\anh\AppData\Local\Temp\SapAbapExecuteOpenTool_13001.log" "-FTP_PATH=/abc/" "-DEV_CLASS=ZODI_DEVCLASS" "-MAX_ROW_COUNT=" "-FETCH_BATCH_SIZE=100000" "-HASH_VALUE_MARKER=HVM" "-ABAP_PROGRAM_BODY=
*Final Type declarations
TYPES : BEGIN OF ty_final,
Y03HOCSINH_HOCSINH_ID TYPE
Y03HOCSINH-HOCSINH_ID,
Y03HOCSINH_MA_HOC_SINH TYPE
Y03HOCSINH-MA_HOC_SINH,
Y03HOCSINH_TEN_HOC_SINH TYPE
Y03HOCSINH-TEN_HOC_SINH,
Y03HOCSINH_GIOI_TINH TYPE
Y03HOCSINH-GIOI_TINH,
Y03HOCSINH_DIA_CHI TYPE
Y03HOCSINH-DIA_CHI,
Y03HOCSINH_GHI_CHU TYPE
Y03HOCSINH-GHI_CHU,
END OF ty_final.
*Final Temp Type Declarations
TYPES : BEGIN OF ty_final_tmp,
Y03HOCSINH_HOCSINH_ID TYPE
Y03HOCSINH-HOCSINH_ID ,
Y03HOCSINH_MA_HOC_SINH TYPE
Y03HOCSINH-MA_HOC_SINH ,
Y03HOCSINH_TEN_HOC_SINH TYPE
Y03HOCSINH-TEN_HOC_SINH ,
Y03HOCSINH_GIOI_TINH TYPE
Y03HOCSINH-GIOI_TINH ,
Y03HOCSINH_DIA_CHI TYPE
Y03HOCSINH-DIA_CHI ,
Y03HOCSINH_GHI_CHU TYPE
Y03HOCSINH-GHI_CHU ,
END OF ty_final_tmp.
*Final Target Type Declarations
TYPES : BEGIN OF ty_final_target,
C0_Y03HOCSINH_HOCSINH_ID TYPE
Y03HOCSINH-HOCSINH_ID,
C1_Y03HOCSINH_MA_HOC_SINH TYPE
Y03HOCSINH-MA_HOC_SINH,
C2_Y03HOCSINH_TEN_HOC_SINH TYPE
Y03HOCSINH-TEN_HOC_SINH,
C3_Y03HOCSINH_GIOI_TINH TYPE
Y03HOCSINH-GIOI_TINH,
C4_Y03HOCSINH_DIA_CHI TYPE
Y03HOCSINH-DIA_CHI,
C5_Y03HOCSINH_GHI_CHU TYPE
Y03HOCSINH-GHI_CHU,
END OF ty_final_target.
* Table type for Y03HOCSINH
TYPES : BEGIN OF ty_Y03HOCSINH,
HOCSINH_ID TYPE
Y03HOCSINH-HOCSINH_ID,
MA_HOC_SINH TYPE
Y03HOCSINH-MA_HOC_SINH,
TEN_HOC_SINH TYPE
Y03HOCSINH-TEN_HOC_SINH,
GIOI_TINH TYPE
Y03HOCSINH-GIOI_TINH,
DIA_CHI TYPE
Y03HOCSINH-DIA_CHI,
GHI_CHU TYPE
Y03HOCSINH-GHI_CHU,
END OF ty_Y03HOCSINH.
TYPES: BEGIN OF gs_text,
line(843) TYPE c,
END OF gs_text.
*Structure Declarations
DATA: wa_final_string TYPE string,
wa_final TYPE ty_final,
wa_final_target TYPE ty_final_target,
wa_Y03HOCSINH TYPE ty_Y03HOCSINH,
*Table Declarations
tt_final TYPE STANDARD TABLE OF ty_final,
tt_Y03HOCSINH TYPE STANDARD TABLE OF ty_Y03HOCSINH,
tt_final_target TYPE STANDARD TABLE
OF ty_final_target,
tt_final_tmp TYPE STANDARD TABLE OF ty_final_tmp,
tt_final_tmp1 TYPE STANDARD TABLE OF ty_final,
gt_result TYPE STANDARD TABLE OF gs_text,
*Variable Declarations
lv_path TYPE string,
lv_flag TYPE char1,
C0_Y03HOCSINH_HOCSINH_ID TYPE
STRING,
C1_Y03HOCSINH_MA_HOC_SINH TYPE
STRING,
C2_Y03HOCSINH_TEN_HOC_SINH TYPE
STRING,
C3_Y03HOCSINH_GIOI_TINH TYPE
STRING,
C4_Y03HOCSINH_DIA_CHI TYPE
STRING,
C5_Y03HOCSINH_GHI_CHU TYPE
STRING,
wa_final_tmp TYPE ty_final_tmp,
lv_file TYPE string,
lv_datum TYPE sy-datum,
lv_date TYPE char10,
wa_result TYPE string,
lv_delimiter type string,
lv_cnt TYPE sytabix,
*-Cursor Declaration
lv_Y03HOCSINH_dbcur TYPE cursor,
lv_tabix_frm TYPE sy-tabix.
lv_delimiter = iv_delimiter.
IF iv_hashvalue = 'HVM'.
*Open/delete output file
CONCATENATE iv_path iv_filename INTO lv_path.
*Check for file existence, if found, delete it
OPEN DATASET lv_path FOR INPUT
IN TEXT MODE
ENCODING DEFAULT.
IF sy-subrc EQ 0.
DELETE DATASET lv_path.
ENDIF.
*Open/create output file
OPEN DATASET lv_path FOR APPENDING
IN TEXT MODE
ENCODING DEFAULT.
IF sy-subrc EQ 0.
*Batch Processing
OPEN CURSOR WITH HOLD lv_Y03HOCSINH_dbcur FOR
SELECT HOCSINH_ID
MA_HOC_SINH
TEN_HOC_SINH
GIOI_TINH
DIA_CHI
GHI_CHU
FROM Y03HOCSINH.
DO.
*Check for the counter, only for first batch
*process new line is required...
lv_cnt = lv_cnt + 1.
REFRESH tt_Y03HOCSINH.
FETCH NEXT CURSOR lv_Y03HOCSINH_dbcur
APPENDING TABLE tt_Y03HOCSINH
PACKAGE SIZE IV_FETCH_BATCH_SIZE.
IF NOT tt_Y03HOCSINH IS INITIAL.
ELSE.
EXIT.
ENDIF.
LOOP AT tt_Y03HOCSINH INTO wa_Y03HOCSINH.
MOVE wa_Y03HOCSINH-HOCSINH_ID
TO wa_final_tmp-Y03HOCSINH_HOCSINH_ID.
MOVE wa_Y03HOCSINH-MA_HOC_SINH
TO wa_final_tmp-Y03HOCSINH_MA_HOC_SINH.
MOVE wa_Y03HOCSINH-TEN_HOC_SINH
TO wa_final_tmp-Y03HOCSINH_TEN_HOC_SINH.
MOVE wa_Y03HOCSINH-GIOI_TINH
TO wa_final_tmp-Y03HOCSINH_GIOI_TINH.
MOVE wa_Y03HOCSINH-DIA_CHI
TO wa_final_tmp-Y03HOCSINH_DIA_CHI.
MOVE wa_Y03HOCSINH-GHI_CHU
TO wa_final_tmp-Y03HOCSINH_GHI_CHU.
APPEND wa_final_tmp TO tt_final_tmp.
ENDLOOP.
free : tt_Y03HOCSINH.
LOOP AT tt_final_tmp INTO wa_final_tmp.
MOVE wa_final_tmp-Y03HOCSINH_HOCSINH_ID
TO wa_final_target-C0_Y03HOCSINH_HOCSINH_ID.
MOVE wa_final_tmp-Y03HOCSINH_MA_HOC_SINH
TO wa_final_target-C1_Y03HOCSINH_MA_HOC_SINH.
MOVE wa_final_tmp-Y03HOCSINH_TEN_HOC_SINH
TO wa_final_target-C2_Y03HOCSINH_TEN_HOC_SINH.
MOVE wa_final_tmp-Y03HOCSINH_GIOI_TINH
TO wa_final_target-C3_Y03HOCSINH_GIOI_TINH.
MOVE wa_final_tmp-Y03HOCSINH_DIA_CHI
TO wa_final_target-C4_Y03HOCSINH_DIA_CHI.
MOVE wa_final_tmp-Y03HOCSINH_GHI_CHU
TO wa_final_target-C5_Y03HOCSINH_GHI_CHU.
Append wa_final_target to tt_final_target.
ENDLOOP.
free : tt_final_tmp.
Clear wa_final_target.
IF NOT iv_max_row_cnt IS INITIAL.
Loop at tt_final_target into
wa_final_target TO iv_max_row_cnt.
MOVE wa_final_target-C0_Y03HOCSINH_HOCSINH_ID
TO C0_Y03HOCSINH_HOCSINH_ID.
MOVE wa_final_target-C1_Y03HOCSINH_MA_HOC_SINH
TO C1_Y03HOCSINH_MA_HOC_SINH.
MOVE wa_final_target-C2_Y03HOCSINH_TEN_HOC_SINH
TO C2_Y03HOCSINH_TEN_HOC_SINH.
MOVE wa_final_target-C3_Y03HOCSINH_GIOI_TINH
TO C3_Y03HOCSINH_GIOI_TINH.
MOVE wa_final_target-C4_Y03HOCSINH_DIA_CHI
TO C4_Y03HOCSINH_DIA_CHI.
MOVE wa_final_target-C5_Y03HOCSINH_GHI_CHU
TO C5_Y03HOCSINH_GHI_CHU.
CONCATENATE
C0_Y03HOCSINH_HOCSINH_ID
C1_Y03HOCSINH_MA_HOC_SINH
C2_Y03HOCSINH_TEN_HOC_SINH
C3_Y03HOCSINH_GIOI_TINH
C4_Y03HOCSINH_DIA_CHI
C5_Y03HOCSINH_GHI_CHU
INTO wa_final_string
SEPARATED BY lv_delimiter.
IF sy-tabix EQ 1 AND lv_cnt EQ 1.
CONCATENATE wa_final_string
lv_delimiter INTO wa_final_string.
ELSE.
CONCATENATE '<@=""+(char)8@>' lv_delimiter wa_final_string
lv_delimiter INTO wa_final_string.
ENDIF.
APPEND wa_final_string TO gt_result.
CLEAR : C0_Y03HOCSINH_HOCSINH_ID,
C1_Y03HOCSINH_MA_HOC_SINH,
C2_Y03HOCSINH_TEN_HOC_SINH,
C3_Y03HOCSINH_GIOI_TINH,
C4_Y03HOCSINH_DIA_CHI,
C5_Y03HOCSINH_GHI_CHU.
ENDLOOP.
ELSE.
Loop at tt_final_target into wa_final_target.
MOVE wa_final_target-C0_Y03HOCSINH_HOCSINH_ID
TO C0_Y03HOCSINH_HOCSINH_ID.
MOVE wa_final_target-C1_Y03HOCSINH_MA_HOC_SINH
TO C1_Y03HOCSINH_MA_HOC_SINH.
MOVE wa_final_target-C2_Y03HOCSINH_TEN_HOC_SINH
TO C2_Y03HOCSINH_TEN_HOC_SINH.
MOVE wa_final_target-C3_Y03HOCSINH_GIOI_TINH
TO C3_Y03HOCSINH_GIOI_TINH.
MOVE wa_final_target-C4_Y03HOCSINH_DIA_CHI
TO C4_Y03HOCSINH_DIA_CHI.
MOVE wa_final_target-C5_Y03HOCSINH_GHI_CHU
TO C5_Y03HOCSINH_GHI_CHU.
CONCATENATE
C0_Y03HOCSINH_HOCSINH_ID
C1_Y03HOCSINH_MA_HOC_SINH
C2_Y03HOCSINH_TEN_HOC_SINH
C3_Y03HOCSINH_GIOI_TINH
C4_Y03HOCSINH_DIA_CHI
C5_Y03HOCSINH_GHI_CHU
INTO wa_final_string
SEPARATED BY lv_delimiter.
IF sy-tabix EQ 1 AND lv_cnt EQ 1.
CONCATENATE wa_final_string
lv_delimiter INTO wa_final_string.
ELSE.
CONCATENATE '<@=""+(char)8@>' lv_delimiter wa_final_string
lv_delimiter INTO wa_final_string.
ENDIF.
APPEND wa_final_string TO gt_result.
CLEAR : C0_Y03HOCSINH_HOCSINH_ID,
C1_Y03HOCSINH_MA_HOC_SINH,
C2_Y03HOCSINH_TEN_HOC_SINH,
C3_Y03HOCSINH_GIOI_TINH,
C4_Y03HOCSINH_DIA_CHI,
C5_Y03HOCSINH_GHI_CHU.
ENDLOOP.
ENDIF.
free : tt_final_target.
IF NOT gt_result IS INITIAL.
CLEAR wa_result.
LOOP AT gt_result INTO wa_result.
TRANSFER wa_result TO lv_path.
ENDLOOP.
ENDIF.
REFRESH gt_result.
*End of main loop for batching
ENDDO.
*Close dataset
CLOSE DATASET lv_path.
CLOSE CURSOR lv_Y03HOCSINH_dbcur.
ELSE.
DATA: lv_mesg TYPE string.
CLEAR et_file_return.
et_file_return-type = 'E'.
CONCATENATE
'Error occurred when creating dataset' lv_path
INTO lv_mesg.
et_file_return-message = lv_mesg.
Append et_file_return.
ENDIF.
ELSE.
CLEAR et_file_return.
et_file_return-type = 'E'.
et_file_return-message =
'Installed ABAP program does not match interface definition'.
APPEND et_file_return.
ENDIF.
Thanks for help

r u able to figure it out..........i got the same error .......can someone help me fix this issue

Not able to get file from application server with read dataset

Hi,
Firstly i download a file from application server from read data set and then i sent this file as attachment. But problem is that i am able to send .jpg .bmp file but i am not able to send .pdf or .doc file so what can i do for that. ?
My code is like below...
DATA : PATH TYPE STRING.
DATA: E_FILE LIKE RLGRAP-FILENAME.
CONCATENATE '/tmp/' NAME_WITH_EXT INTO E_FILE SEPARATED BY SPACE.
CONDENSE E_FILE NO-GAPS.
IF EXTENSION = 'TXT'.
 OPEN DATASET E_FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT WITH WINDOWS LINEFEED . " MESSAGE MSG.
 IF SY-SUBRC <> 0.
 WRITE: SY-SUBRC, MSG, ' LIKE ', C_FNAME.
 ELSE.
 WHILE SY-SUBRC = 0.
 READ DATASET E_FILE INTO WA_C.
 IF SY-SUBRC <> 0.
 EXIT.
 ENDIF.
 APPEND WA_C TO IT_C.
 ENDWHILE.
 CLOSE DATASET E_FILE.
 ENDIF.
ELSE.
 OPEN DATASET E_FILE FOR INPUT IN BINARY MODE. " ENCODING DEFAULT. " INPUT IN BINARY MODE . " TEXT MODE ENCODING NON-UNICODE.
 IF SY-SUBRC = 0.
 DO .
 READ DATASET E_FILE INTO GS_PDF_TAB.
 IF SY-SUBRC = 0.
 APPEND GS_PDF_TAB TO GT_PDF_TAB.
 ELSE.
 EXIT.
 ENDIF.
 ENDDO.
 CLOSE DATASET E_FILE.
 ENDIF.
ENDIF.
Regards,
Gurprit Bhatia

delete this line DEFAULT WITH WINDOWS LINEFEED and check this..

Reading File from Application Server using Read Dataset

Hi,
i am trying to read excel file from Application Server and has multiple records in that based on structure below. but when i execute its giving me error message.here is the code, can sumone suggest me on this please ??
FORM f_data_upload .
DATA:
 l_filename TYPE string, "file name
 l_wa_string TYPE string. "file record
 l_filename = p_inp_as. "File path from Application Server
 OPEN DATASET l_filename FOR INPUT IN TEXT MODE ENCODING DEFAULT.
 DO.
 IF sy-subrc <> 0.
 EXIT.
 ENDIF.
Read the data from the file in Application server.
 READ DATASET l_filename INTO l_wa_string.
 IF sy-subrc = 0.
 SPLIT l_wa_string AT cl_abap_char_utilities=>horizontal_tab
 INTO w_data-tcode
 w_data-matnr
 w_data-mtart
 w_data-werks
 w_data-vkorg
 w_data-vtweg
 w_data-lgort
 w_data-meins
 w_data-maktx
 w_data-spart
 w_data-kosch
 w_data-mstae
 w_data-brgew
 w_data-ntgew
 w_data-groes
 w_data-matkl
 w_data-prdha
 w_data-mstde
 w_data-mtpos_mara
 w_data-gewei
 w_data-spart
 w_data-mstav
 w_data-mstdv
 w_data-dwerk
 w_data-taxkm
 w_data-versg
 w_data-kondm
 w_data-ktgrm
 w_data-mtpos
 w_data-mtvfp
 w_data-tragr
 w_data-ladgr
 w_data-herkl
 w_data-ekgrp
 w_data-webaz
 w_data-dismm
 w_data-beskz
 w_data-prctr
 w_data-bklas
 w_data-bwtty
 w_data-vprsv
 w_data-verpr
 IN CHARACTER MODE.
 APPEND w_data TO i_data.
 CLEAR w_data.
 ENDIF.
 ENDDO.
 CLOSE DATASET l_filename.
Error Message while executing
What happened?
 At the conversion of a text from codepage '4110' to codepage '4102':
 - a character was found that cannot be displayed in one of the two
 codepages;
 - or it was detected that this conversion is not supported
 The running ABAP program 'ZHDI_LOMM_VEHI_MAT_MASS_CREATE' had to be terminated
 as the conversion
 would have produced incorrect data.
 The number of characters that could not be displayed (and therefore not
 be converted), is 449. If this number is 0, the second error case, as
 mentioned above, has occurred.
Error analysis
 An exception occurred that is explained in detail below.
 The exception, which is assigned to class 'CX_SY_CONVERSION_CODEPAGE', was not
 caught in
 procedure "F_DATA_UPLOAD" "(FORM)", nor was it propagated by a RAISING clause.
 Since the caller of the procedure could not have anticipated that the
 exception would occur, the current program is terminated.
 The reason for the exception is:
 Characters are always displayed in only a certain codepage. Many
 codepages only define a limited set of characters. If a text from a
 codepage should be converted into another codepage, and if this text
 contains characters that are not defined in one of the two codepages, a
 conversion error occurs.
 Moreover, a conversion error can occur if one of the needed codepages
 '4110' or '4102' is not known to the system.
 If the conversion error occurred at read or write of screen, the file
 name was '/usr/sap/interfaces/conversion/pioneer/ddm/data/test_data1.xls'.
 (further information about the file: "X 549
 24064rw-rw----200812232135082008122307293120081223072931")
Please help me
Thank You

Woah ... perfect guru
but data looks like all junk characters ? its filling with special characters, hashes # and other characters but not with Excel data.. any idea ??
Temesh
Edited by: New2Sap Abap on Dec 24, 2008 6:42 AM

READ DATASET

Hi Friends,
I'm getting problem in reading only 100 records from the application server using the READ DATASET statement. The file on the application server may have 8000 records but i wanted to get only 100 records and process them. Then i wanted to get next 100 records from the file stored on app.server and process and so on.
After I get the 100 records, I wanted to do further operations such as putting them into a custom table.
Will the below code work?
DATA l_item(100) type c.
*Open the .DAT file for reading
OPEN DATASET p_file1 FOR INPUT IN TEXT MODE ENCODING UTF-8 MESSAGE
x_error.
IF sy-subrc NE 0.
*An error occured during opening the dataset !
 MESSAGE x_error TYPE 'E'.
 CLEAR x_error.
ENDIF.
DO.
*Read the .DAT file into an internal table
 READ DATASET p_file1 INTO l_item.
 IF sy-subrc EQ 0.
*split the records into data fields based on delimiter ','
*then append the current record to an internal table
 SPLIT l_item AT ',' INTO
 x_item-inv_item_id
 x_item-intl_aa_nbr
 x_item-intl_pba_nbr
 x_item-intl_ta_nbr
 x_item-intl_product_code
 x_item-descr254
 x_item-intl_stck_id
 x_item-awr_disallowed_flg
 x_item-returnable_flg
 x_item-fulfillment_flg
 x_item-refund_only_flg
 x_item-prod_returnable_flg
 x_item-stock_cat_id.
 APPEND x_item TO i_item.
 CLEAR x_item.
 ELSE.
*Data was read and the end of the file was reached
 MESSAGE i006.
 EXIT.
 ENDIF.
ENDDO.

Hi,
If you want to process every 100 records once, you can in ways.
1.
DO.
*Read the .DAT file into an internal table
 READ DATASET p_file1 INTO l_item.
 IF sy-subrc EQ 0.
*split the records into data fields based on delimiter ','
*then append the current record to an internal table
 SPLIT l_item AT ',' INTO
 x_item-inv_item_id
 x_item-intl_aa_nbr
 x_item-intl_pba_nbr
 x_item-intl_ta_nbr
 x_item-intl_product_code
 x_item-descr254
 x_item-intl_stck_id
 x_item-awr_disallowed_flg
 x_item-returnable_flg
 x_item-fulfillment_flg
 x_item-refund_only_flg
 x_item-prod_returnable_flg
 x_item-stock_cat_id.
 APPEND x_item TO i_item.
 CLEAR x_item.
 lv_count = lv_count + 1.
 if lv_count = 100.
 perform process 100 records.
 clear: lv_count, x_items.
 refresh x_items.
 endif.
 ELSE.
*Data was read and the end of the file was reached
 MESSAGE i006.
 EXIT.
 ENDIF.
ENDDO.
2. Download all records into an internal table once.
then loop internaltable.
data: lv_count type i,
 lv_count1 type i,
 lv_previous type i.
lv_count = lv_count + 1.
lv_count1 = lv_count1 + 1.
if lv_count1 < = 100.
copy 100 records into another internal table2.
else.
 lv_previous = lv_count - lv_previous.
if lv_previous = 100.
 process records.
 clear: lv_count1, internal table2.
 refresh internal table2
endif.
endif.
endloop.
regards,
Ganesh

How to write read dataset statement in unicode

Hi All,
I am writing the program using open dataset concept .
i am using follwing code.
 PERFORM FILE_OPEN_INPUT USING P_P_IFIL.
 READ DATASET P_P_IFIL INTO V_WA.
 IF SY-SUBRC <> 0.
 V_ABORT = C_X.
 WRITE: / TEXT-108.
 PERFORM CLOSE_FILE USING P_P_IFIL.
 ELSE.
 V_HEADER_CT = V_HEADER_CT + 1.
 ENDIF.
Read dataset will work for normal code.
when it comes to unicode it is going to dump.
Please can u tell the solution how to write read dataset in unicode.
Very urget.
Regards
Venu

Hi Venu,
This example deals with the opening and closing of files.
Before Unicode conversion
data:
begin of STRUC,
 F1 type c,
 F2 type p,
end of STRUC,
DSN(30) type c value 'TEMPFILE'.
STRUC-F1 = 'X'.
STRUC-F2 = 42.
Write data to file
open dataset DSN in text mode. ß Unicode error
transfer STRUC to DSN.
close dataset DSN.
Read data from file
clear STRUC.
open dataset DSN in text mode. ß Unicode error
read dataset DSN into STRUC.
close dataset DSN.
write: / STRUC-F1, STRUC-F2.
This example program cannot be executed in Unicode for two reasons. Firstly, in Unicode programs, the file format must be specified more precisely for OPEN DATASET and, secondly, only purely character-type structures can still be written to text files.
Depending on whether the old file format still has to be read or whether it is possible to store the data in a new format, there are various possible conversion variants, two of which are introduced here.
After Unicode conversion
Case 1: New textual storage in UTF-8 format
data:
begin of STRUC2,
 F1 type c,
 F2(20) type c,
end of STRUC2.
Put data into text format
move-corresponding STRUC to STRUC2.
Write data to file
open dataset DSN in text mode for output encoding utf-8.
transfer STRUC2 to DSN.
close dataset DSN.
Read data from file
clear STRUC.
open dataset DSN in text mode for input encoding utf-8.
read dataset DSN into STRUC2.
close dataset DSN.
move-corresponding STRUC2 to STRUC.
write: / STRUC-F1, STRUC-F2.
The textual storage in UTF-8 format ensures that the created files are platform-independent.
After Unicode conversion
Case 2: Old non-Unicode format must be retained
Write data to file
open dataset DSN in legacy text mode for output.
transfer STRUC to DSN.
close dataset DSN.
read from file
clear STRUC.
open dataset DSN in legacy text mode for input.
read dataset DSN into STRUC.
close dataset DSN.
write: / STRUC-F1, STRUC-F2.
Using the LEGACY TEXT MODE ensures that the data is stored and read in the old non-Unicode format. In this mode, it is also possible to read or write non-character-type structures. However, be aware that data loss and conversion errors can occur in Unicode systems if there are characters in the structure that cannot be represented in the non-Unicode codepage.
Reward pts if found usefull :)
Regards
Sathish

Problem with READ DATASET when reading file from app server

Hi,
wondering if anyone can help, I'm using the following code to read from a file on app server, the file is of type .rtf
OPEN DATASET file_rtf FOR INPUT IN TEXT MODE
ENCODING DEFAULT
WITH SMART LINEFEED.
DO.
READ DATASET file_rtf INTO string.
IF SY-SUBRC = 0.
EXIT.
ENDIF.
ENDDO.
the open dataset part works sy-subrc = 0, but the read returns sy-subrc = 8 and no data is passed to string.
Any ideas as to what is causing this problem appreciated, <removed>
Thanks
Edited by: Thomas Zloch on Mar 17, 2010 3:57 PM - please don't offer p...

Hi Adam,
The source code in the below link has details about how to read/write to application server.
[Application server file operartions|http://www.divulgesap.com/blog.php?p=NDk=]
Please let us know if you have any issues.
Regards,
Ravi

# problem while reading dataset from application server.

hi all,
I uplodaed a text file which is tab delimeted, to the application server using transaction code cg3z directly. now that file is stored with # in place of tab(space) in application server.
my broblem is that when i am reading that file using READ DATASET its comming with that # symbol also.
how i split that dataset .
or if there is any other solution ,like openning file into another mode,
help me.
thank uou

Hi Pawan..
you can access the Tab character using CL_CHAR_ABAP_UTILITIES=>HORIZONTAL_TAB
Do like this After READ DATASET.
DATA : V_RECORD(100).
DO.
READ DATASET P_FILE INTO V_RECORD.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
SPLIT V_RECORD INTO FIELD1 FIELD2 SEPARATED BY CL_CHAR_ABAP_UTILITIES=>HORIZONTAL_TAB.
<<<<further operations here>>>>
ENDDO.
reward if Helpful.

Question about reading csv file into internal table

Some one (thanks those nice guys!) in this forum have suggested me to use FM KCD_CSV_FILE_TO_INTERN_CONVERT to read csv file into internal table. However, it can be used to read a local file only.
I would like to ask how can I read a CSV file into internal table from files in application server?
I can't simply use SPLIT as there may be comma in the content. e.g.
"abc","aaa,ab",10,"bbc"
My expected output:
abc
aaa,ab
10
bbb
Thanks again for your help.

Hi Gundam,
Try this code. I have made a custom parser to read the details in the record and split them accordingly. I have also tested them with your provided test cases and it work fine.
OPEN DATASET dsn FOR input IN TEXT MODE ENCODING DEFAULT.
DO.
READ DATASET dsn INTO record.
PERFORM parser USING record.
ENDDO.
*DATA str(32) VALUE '"abc",10,"aaa,ab","bbc"'.
*DATA str(32) VALUE '"abc","aaa,ab",10,"bbc"'.
*DATA str(32) VALUE '"a,bc","aaaab",10,"bbc"'.
*DATA str(32) VALUE '"abc","aaa,ab",10,"b,bc"'.
*DATA str(32) VALUE '"abc","aaaab",10,"bbc"'.
FORM parser USING str.
DATA field(12).
DATA field1(12).
DATA field2(12).
DATA field3(12).
DATA field4(12).
DATA cnt TYPE i.
DATA len TYPE i.
DATA temp TYPE i.
DATA start TYPE i.
DATA quote TYPE i.
DATA rec_cnt TYPE i.
len = strlen( str ).
cnt = 0.
temp = 0.
rec_cnt = 0.
DO.
* Start at the beginning
IF start EQ 0.
    "string just ENDED start new one.
    start = 1.
    quote = 0.
    CLEAR field.
ENDIF.
IF str+cnt(1) EQ '"'. "Check for qoutes
    "CHECK IF quotes is already set
    IF quote = 1.
      "Already quotes set
      "Start new field
      start = 0.
      quote = 0.
      CONCATENATE field '"' INTO field.
      IF field IS NOT INITIAL.
        rec_cnt = rec_cnt + 1.
        CONDENSE field.
        IF rec_cnt EQ 1.
          field1 = field.
        ELSEIF rec_cnt EQ 2.
          field2 = field.
        ELSEIF rec_cnt EQ 3.
          field3 = field.
        ELSEIF rec_cnt EQ 4.
          field4 = field.
        ENDIF.
      ENDIF.
*      WRITE field.
    ELSE.
      "This is the start of quotes
      quote = 1.
    ENDIF.
ENDIF.
IF str+cnt(1) EQ ','. "Check end of field
    IF quote EQ 0. "This is not inside quote end of field
      start = 0.
      quote = 0.
      CONDENSE field.
*      WRITE field.
      IF field IS NOT INITIAL.
        rec_cnt = rec_cnt + 1.
        IF rec_cnt EQ 1.
          field1 = field.
        ELSEIF rec_cnt EQ 2.
          field2 = field.
        ELSEIF rec_cnt EQ 3.
          field3 = field.
        ELSEIF rec_cnt EQ 4.
          field4 = field.
        ENDIF.
      ENDIF.
    ENDIF.
ENDIF.
CONCATENATE field str+cnt(1) INTO field.
cnt = cnt + 1.
IF cnt GE len.
    EXIT.
ENDIF.
ENDDO.
WRITE: field1, field2, field3, field4.
ENDFORM.
Regards,
Wenceslaus.

Error on line read dataset p_zfile into it_int

Similar Messages

Maybe you are looking for