Map the fields with internal table

[Former Member]

hello friends,

Below mentioned is my program , now I need to map the fields to respective BAPI FM : BAPI: K_COSTS_PLAN_INTERFACE_PERIOD with my ITERnal table, As I fresher to BAPI I don't know I tomap the fields, could you help me

TYPES : BEGIN OF Y_T_HEADER,

COL1(4) TYPE C,

COL2(10),

COL3 TYPE STRING,

COL4(10),

COL5(5) TYPE C,

COL6 TYPE C,

COL7(5) ,

COL8 TYPE C,

COL9 TYPE STRING,

END OF Y_T_HEADER.

DATA : Y_I_HEADER TYPE STANDARD TABLE OF Y_T_HEADER.

DATA : Y_WA_HEADER TYPE Y_T_HEADER.

DATA ITAB TYPE STANDARD TABLE OF ALSMEX_TABLINE WITH DEFAULT KEY.

DATA WA TYPE ALSMEX_TABLINE.

*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

*

*PARAMETERS: P1 TYPE RADIBUTTON GROUP G1 DEFAULT 'x',

• P2 TYPE RADIBUTTON GROUP G1,

• P3 TYPE RADIBUTTON GROUP G2,

• P4 TYPE RADIBUTTON GROUP G2.

*SELECTION-SCREEN END OF BLOCK B1.

*selection-screen begin of block b1 with frame title texat-002.

*Parameters

PARAMETERS : PA_FNAME TYPE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PA_FNAME.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = 'PA_FNAME'

IMPORTING

FILE_NAME = PA_FNAME.

.

START-OF-SELECTION.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = PA_FNAME

I_BEGIN_COL = '1'

I_BEGIN_ROW = '1'

I_END_COL = '9'

I_END_ROW = '35'

TABLES

INTERN = ITAB.

END-OF-SELECTION.

LOOP AT ITAB INTO WA.

*IF WA-ROW BETWEEN '5' AND '14' .

IF WA-ROW > '5'.

IF WA-ROW = '15'.

CONTINUE.

ENDIF.

CASE WA-COL.

WHEN '0001'.

Y_WA_HEADER-COL1 = WA-VALUE.

WHEN '0002'.

Y_WA_HEADER-COL2 = WA-VALUE.

WHEN '0003'.

Y_WA_HEADER-COL3 = WA-VALUE.

WHEN '0004'.

Y_WA_HEADER-COL4 = WA-VALUE.

WHEN '0005'.

Y_WA_HEADER-COL5 = WA-VALUE.

WHEN '0006'.

Y_WA_HEADER-COL6 = WA-VALUE.

WHEN '0007'.

Y_WA_HEADER-COL7 = WA-VALUE.

WHEN '0008'.

Y_WA_HEADER-COL8 = WA-VALUE.

WHEN '0009'.

Y_WA_HEADER-COL9 = WA-VALUE.

ENDCASE.

ENDIF.

AT END OF ROW.

APPEND Y_WA_HEADER TO Y_I_HEADER.

CLEAR Y_WA_HEADER.

ENDAT.

ENDLOOP.

END-OF-SELECTION.

LOOP AT Y_I_HEADER INTO Y_WA_HEADER.

WRITE : / Y_WA_HEADER-COL1,

Y_WA_HEADER-COL2,

Y_WA_HEADER-COL3,

Y_WA_HEADER-COL4,

Y_WA_HEADER-COL5,

Y_WA_HEADER-COL6,

Y_WA_HEADER-COL7,

Y_WA_HEADER-COL8,

Y_WA_HEADER-COL9.

ENDLOOP.

thanks & regards

Santosh

[Former Member]

chk the description of the parameters of that FM

o BLTXT : Header text if line item update is active in the version

o COMMIT : Indicator for the module to execute a commit itself

o DELTA : Indicator for adding plan values onto existing values (X)

or

for treating them as new totals values ( )

o GJAHR : Fiscal year

o KOKRS : Controlling area

o MESSAGES_SHOW: Indicator for showing any error messages occurring

o PERAB : First period in which values are to be transferred

o PERBI : Last period in which values are to be transferred

o RPLAN : No longer used

o UPDATE_VALUES: Indicator for overwriting existing records (X) or for

retaining them unchanged ( )

o VERSN : Version

o VRGNG : Indicator for choosing the business transaction to be

transferred

RKP1 = Primary cost elements

RKP4 = Revenue elements

o ONLINE_VB: Indicator for online posting

o IRKU01_CUR: Structure used to control which currency fields in table

IRKU01JA receive the plan values. Only one currency type

may

appear; any currency translations occur automatically

WKG_MAN = X : Total value in controlling area currency

WTG_MAN = X : Total value in transaction currency

WOG_MAN = X : Total value in object currency

TESTMODE: If the flag is set to "X" no update occurs.

WSVALUE: Only to be used internally.

Table IRKU01JA

o Identically named fields, such as the parameter fields above, will

be set automatically. You need not make these entries yourself.

You must set the following fields, depending on the planning object:

o KOSTL: Cost center

o AUFNR: Order

o POSID: Project structure object

o KSTAR: Cost element to be used in planning

One of the periodic value field groups (WKGxxx, WKTxxx, or WKOxxx)

receives the plan values based on parameter IRKU01_CUR. The values of

the other field groups are ignored because the function module

determines the values itself, when necessary.

You can use fields MEGxxx to transfer plan quantities. You must enter

the corresponding quantity unit in field MEINH.