‎2008 Jan 21 7:49 AM
HI TO ALL SDNERS,
IM TRYING TO INSERT A COMMA SEPERATED FILE INTO AN INTERNAL TABLE BY USING FUNCTION MODULE "TEXT_CONVERT_CSV_TO_SAP",BUT IM GETTING A TYPE CONFLICT AND THE PROGRAM IS DUMPED
TYPES : BEGIN OF TY_CUST,
KUNNR(10),
BUKRS(4),
KTOKD(4),
ANRED(15),
NAME1(35),
SORTL(10),
STRAS(35),
ORT01(10),
PSTLZ(10),
LZONE(10),
LAND1(3),
SPRAS(2),
AKONT(10),
END OF TY_CUST.
TYPES: BEGIN OF TY_ECUST,
KUNNR(10),
ERRORMSG(255),
END OF TY_ECUST.
TYPES: BEGIN OF TY_SCUST,
KUNNR(10),
SUCESSMSG(255),
END OF TY_SCUST.
******************************************************************************
INTERNAL TABLE AND WORK AREAS
******************************************************************************
DATA : IT_CUST TYPE STANDARD TABLE OF TY_CUST INITIAL SIZE 0,
RAW_DATA TYPE TABLE OF TY_CUST,
W_RAW_DATA LIKE LINE OF RAW_DATA,
WA_CUST LIKE LINE OF IT_CUST.
DATA: IT_ECUST TYPE TABLE OF TY_ECUST,
WA_ECUST LIKE LINE OF IT_ECUST.
DATA : IT_SCUST TYPE TABLE OF TY_SCUST,
WA_SCUST LIKE LINE OF IT_SCUST.
*********************************************************************************
INTERANAL TABLE FOR STORING BDCDATA
********************************************************************************
DATA: BEGIN OF IT_BDCDATA OCCURS 0.
INCLUDE STRUCTURE BDCDATA.
DATA: END OF IT_BDCDATA.
*********************************************************************************
INTERNAL TABLE FOR STORING MESSAGES
*********************************************************************************
DATA: BEGIN OF IT_CUSTMSG OCCURS 0.
INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF IT_CUSTMSG.
DATA: V_FLAG(1) VALUE '',"FLAG FOR OPENING OF SESSION
V_TLINES TYPE SY-TABIX,"TOTAL NO RECORDS PROCESSED
V_SLINES TYPE SY-TABIX,"TOTAL NO OF SUCESS RECORDS PROCESSED
V_ELINES TYPE SY-TABIX."TOTAL NO OF ERROR RECORDS
********************************************************************************
SELECTION SCREEN
********************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
PARAMETERS : V_FNAME TYPE RLGRAP-FILENAME,
V_SESS TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B2.
INITIALIZATION.
V_FNAME = 'C:\Documents and Settings\Administrator\Desktop\2.TXT'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR V_FNAME.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = V_FNAME
.
START-OF-SELECTION.
PERFORM F_UPLOAD USING V_FNAME
CHANGING IT_CUST.
END-OF-SELECTION.
PERFORM F_BDCGENERATE.
&----
*& Form F_UPLOAD
&----
text
----
-->P_V_FNAME text
<--P_IT_CUST text
----
FORM F_UPLOAD USING P_V_FNAME LIKE V_FNAME
CHANGING P_IT_CUST LIKE IT_CUST.
DATA: LV_FILE TYPE STRING.
LV_FILE = P_V_FNAME.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = LV_FILE
TABLES
DATA_TAB = RAW_DATA
.
IF SY-SUBRC = 0.
*DESCRIBE TABLE P_IT_CUST LINES V_TLINES.
*
ENDIF.
CALL FUNCTION 'TEXT_CONVERT_CSV_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR = ';'
I_LINE_HEADER =
I_TAB_RAW_DATA = RAW_DATA
I_FILENAME = 'C:\Documents and Settings\Administrator\Desktop\2.TXT'
TABLES
I_TAB_CONVERTED_DATA = P_IT_CUST
EXCEPTIONS
CONVERSION_FAILED = 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.
ENDFORM. " F_UPLOAD
‎2008 Jan 21 7:58 AM
hai,
Use
raw_data TYPE TRUXS_T_TEXT_DATA
Don't forget to reward if useful....