tabspace

Former Member — Tue, 15 May 2007 15:25:11 GMT

hi all,

i am uploading data to ml10 transaction.

its for multiple line items, activityno and and quantity are multiple line items here.

i developed the code

my text file is

10.1|serv|test|test|inr|0003|cg01|col|200

i am using pipe symbol to split the file.instead of that i want to use tab space.how can i do that,the code is below,

i want to give my file like this

10.1 serv test test inr 003 cg01 col 201

can any body help me in this regard.

TYPES: BEGIN OF TY_FLAT, " structure for flat file

STRING(200),

END OF TY_FLAT.

TYPES: BEGIN OF TY_HEAD, " structure for header file

IND(2) TYPE N,

SPEC_NO(10),

ASTYP(4),

TXZ01(40),

SORT1(20),

WAERS(5),

MATKL(9),

EKORG(4),

END OF TY_HEAD.

TYPES :BEGIN OF TY_ITEM, "structure for item file

IND(2) TYPE N,

SRVPOS(18),

MENGE(13),

END OF TY_ITEM.

TYPES :BEGIN OF TY_FLAT1, " structure for final file

SPEC_NO(10),

ASTYP(4),

TXZ01(40),

SORT1(20),

WAERS(5),

MATKL(9),

EKORG(4),

SRVPOS(18),

MENGE(13),

END OF TY_FLAT1.

----

INTERNAL TABLE DECLARATIONS *

----

DATA : T_FLAT TYPE STANDARD TABLE OF TY_FLAT,

T_FLAT1 TYPE STANDARD TABLE OF TY_FLAT1,

T_HEAD TYPE STANDARD TABLE OF TY_HEAD,

T_ITEM TYPE STANDARD TABLE OF TY_ITEM,

T_BDCDATA TYPE STANDARD TABLE OF BDCDATA,

T_BDCMSG TYPE STANDARD TABLE OF BDCMSGCOLL.

----

WORK AREA DECLARATIONS *

----

DATA : ST_FLAT TYPE TY_FLAT,

ST_FLAT1 TYPE TY_FLAT1,

ST_HEAD TYPE TY_HEAD,

ST_ITEM TYPE TY_ITEM,

ST_BDCDATA TYPE BDCDATA,

ST_BDCMSG TYPE BDCMSGCOLL.

----

VARIABLES *

----

DATA : FNAM TYPE LOCALFILE, "rlgrap-filename,

FTYP TYPE RLGRAP-FILETYPE,

LF_FNAM TYPE STRING.

----

VARIABLES *

----

DATA : V_IND(2) TYPE N, " value 1,

V_FLD(20),

V_NO(2) TYPE N.

----

SELECTION SCREEN *

----

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. "selection screen

PARAMETERS : P_FNAM LIKE FNAM.

SELECTION-SCREEN : END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAM.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = ' '

IMPORTING

FILE_NAME = P_FNAM.

CALL FUNCTION 'WS_UPLOAD' " uploading flat file

EXPORTING

FILENAME = P_FNAM

FILETYPE = 'ASC'

TABLES

DATA_TAB = T_FLAT.

IF SY-SUBRC NE 0.

WRITE : /1 'no flat file to upload into internal table t_flat'.

LEAVE TO LIST-PROCESSING.

ENDIF.

START-OF-SELECTION.

splitting the flat file data into header table and item table

LOOP AT T_FLAT INTO ST_FLAT.

ADD 1 TO v_ind.

SPLIT ST_FLAT AT '|' INTO ST_FLAT1-SPEC_NO ST_FLAT1-ASTYP

ST_FLAT1-TXZ01 ST_FLAT1-SORT1

ST_FLAT1-WAERS ST_FLAT1-MATKL

ST_FLAT1-EKORG ST_FLAT1-SRVPOS

ST_FLAT1-MENGE.

APPEND ST_FLAT1 TO T_FLAT1.

CLEAR ST_FLAT1.

ENDLOOP.

SORT T_FLAT1 BY SPEC_NO ASTYP TXZ01 SORT1 WAERS MATKL EKORG.

LOOP AT T_FLAT1 INTO ST_FLAT1.

MOVE :

ST_FLAT1-SPEC_NO TO ST_HEAD-SPEC_NO,

ST_FLAT1-ASTYP TO ST_HEAD-ASTYP,

ST_FLAT1-TXZ01 TO ST_HEAD-TXZ01,

ST_FLAT1-SORT1 TO ST_HEAD-SORT1,

ST_FLAT1-WAERS TO ST_HEAD-WAERS,

ST_FLAT1-MATKL TO ST_HEAD-MATKL,

ST_FLAT1-EKORG TO ST_HEAD-EKORG,

ST_FLAT1-SRVPOS TO ST_ITEM-SRVPOS,

ST_FLAT1-MENGE TO ST_ITEM-MENGE .

AT NEW EKORG.

AT end of EKORG.

ADD 1 TO V_IND.

ENDAT.

MOVE V_IND TO ST_HEAD-IND.

MOVE V_IND TO ST_ITEM-IND.

APPEND ST_HEAD TO T_HEAD.

APPEND ST_ITEM TO T_ITEM.

CLEAR ST_HEAD.

CLEAR ST_ITEM.

*CLEAR v_ind.

ENDLOOP.

CLEAR V_IND.

*perform open_group.

SORT T_ITEM BY IND.

SORT T_HEAD BY IND.

DELETE ADJACENT DUPLICATES FROM T_HEAD.

LOOP AT T_HEAD INTO ST_HEAD.

PERFORM BDC_DYNPRO USING 'SAPLMLSM' '0100'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'TEMP_SPEC-ASTYP'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'TMP_SPEC-SPEC_NO'

ST_HEAD-SPEC_NO.

PERFORM BDC_FIELD USING 'TMP_SPEC-ASTYP'

ST_HEAD-ASTYP.

PERFORM BDC_DYNPRO USING 'SAPLMLSM' '0200'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'TMP_SPEC-EKORG'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=SRV'.

PERFORM BDC_FIELD USING 'TMP_SPEC-TXZ01'

ST_HEAD-TXZ01.

PERFORM BDC_FIELD USING 'TMP_SPEC-SORT1'

ST_HEAD-SORT1.

PERFORM BDC_FIELD USING 'TMP_SPEC-WAERS'

ST_HEAD-WAERS.

PERFORM BDC_FIELD USING 'TMP_SPEC-MATKL'

ST_HEAD-MATKL.

PERFORM BDC_FIELD USING 'TMP_SPEC-EKORG'

ST_HEAD-EKORG.

LOOP AT T_ITEM INTO ST_ITEM WHERE IND = ST_HEAD-IND.

ADD 1 TO V_NO.

PERFORM BDC_DYNPRO USING 'SAPLMLSP' '0201'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=BZE'.

PERFORM BDC_FIELD USING 'BDC_SUBSCR'

'SAPLMLSP'.

PERFORM BDC_DYNPRO USING 'SAPLMLSP' '0201'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=BZE'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'ESLL-MENGE(01)'.

CONCATENATE 'ESLL-SRVPOS(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD USING V_FLD

ST_ITEM-SRVPOS.

CONCATENATE 'ESLL-MENGE(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD USING V_FLD

ST_ITEM-MENGE.

*perform bdc_field using 'ESLL-SRVPOS(01)'

ITAB_PROGRAM-SRVPOS.

*perform bdc_field using 'ESLL-MENGE(01)'

ITAB_PROGRAM-MENGE.

PERFORM BDC_DYNPRO USING 'SAPLMLSP' '0201'.

V_NO = 1.

ENDLOOP.

CLEAR V_NO.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=SAV'.

PERFORM BDC_FIELD USING 'BDC_SUBSCR'

'SAPLMLSP'.

CALL TRANSACTION 'ML10' USING T_BDCDATA MODE 'A'

UPDATE 'A' MESSAGES INTO T_BDCMSG.

ENDLOOP.

PERFORM FR_FORMAT_MESSAGE.

----

Start new screen *

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR ST_BDCDATA.

ST_BDCDATA-PROGRAM = PROGRAM.

ST_BDCDATA-DYNPRO = DYNPRO.

ST_BDCDATA-DYNBEGIN = 'X'.

APPEND ST_BDCDATA TO T_BDCDATA.

ENDFORM.

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL <> SPACE. "NODATA.

CLEAR ST_BDCDATA.

ST_BDCDATA-FNAM = FNAM.

ST_BDCDATA-FVAL = FVAL.

APPEND ST_BDCDATA TO T_BDCDATA.

ENDIF.

ENDFORM.

&----

*& Form fr_format_message

&----

text

----

--> p1 text
<-- p2 text

----

FORM FR_FORMAT_MESSAGE.

DATA : MESSAGE TYPE STRING.

WRITE : /1 'ID',

5 'No',

10 'Type',

20 'Message Info',

55 'Row No'.

LOOP AT T_BDCMSG INTO ST_BDCMSG.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = ST_BDCMSG-MSGID

LANG = SY-LANGU

NO = ST_BDCMSG-MSGNR

V1 = ST_BDCMSG-MSGV1

V2 = ST_BDCMSG-MSGV2

V3 = ST_BDCMSG-MSGV3

V4 = ST_BDCMSG-MSGV4

IMPORTING

MSG = MESSAGE

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2

IF SY-SUBRC EQ 0.

WRITE : /1 ST_BDCMSG-MSGID,

5 ST_BDCMSG-MSGNR,

10 ST_BDCMSG-MSGTYP,

20 MESSAGE.

ENDIF.

IF SY-SUBRC NE 0.

WRITE : /55 SY-TABIX.

ENDIF.

ENDLOOP.

ENDFORM. " fr_format_message

thanks in advance

shiva

Re: tabspace

Former Member — Tue, 15 May 2007 15:34:45 GMT

Hi,

Change the following code

SPLIT ST_FLAT AT<b> '|' </b>

INTO ST_FLAT1-SPEC_NO ST_FLAT1-ASTYP

ST_FLAT1-TXZ01 ST_FLAT1-SORT1

ST_FLAT1-WAERS ST_FLAT1-MATKL

ST_FLAT1-EKORG ST_FLAT1-SRVPOS

ST_FLAT1-MENGE.

SPLIT ST_FLAT AT <b>CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB</b>

INTO ST_FLAT1-SPEC_NO ST_FLAT1-ASTYP

ST_FLAT1-TXZ01 ST_FLAT1-SORT1

ST_FLAT1-WAERS ST_FLAT1-MATKL

ST_FLAT1-EKORG ST_FLAT1-SRVPOS

ST_FLAT1-MENGE.

Regards

Sailaja.

topic tabspace in Application Development and Automation Discussions

tabspace

Re: tabspace

Re: tabspace