PLEASE HELP ME OUT WITH THIS REQUIREMENT VERY URGENT

Question

HI TO ALL EXPERTS,
I HAVE AN INTERNAL TABLE IT_EXCEL WITH THREE FIELDS
SUPPOSE
ROW COL VAL
1         1       231
1         2       001
NOW I WANT TO MOVE  JUST THAT VAL (COLOUMN)CONTENTS TO ANOTHER INTERNAL TABLE
FOR EX :
DATA : BEGIN OF ITAB OCCURS 0,
                VAL1(4),
                 VAL2(5),
           END OF ITAB.
NOW THAT ITAB SHOULD HAVE
VAL1 VAL2
231     001
PLEASE ANYONE EXPALIN HOW TO DO IT?
FULL POINTS FOR CORRECT ANSWER

Answer 1

HI PABLO,
IM SENDING THE CODE,
IM HAVE WRITEN A BAPI FOR MATERIAL SAVE
I HAVE GOT THE DATA IN EXCEL FILE.
NOW I WANT TO MOVE THE VALUE COLOUMN OF EXCEL INTERNAL  TABLE TO IT_DATA INTERNAL TABLE
REPORT  ZBAPI_MATERIAL_SAVEDATA NO STANDARD PAGE HEADING MESSAGE-ID (ZHNC).
TYPES:BEGIN OF TY_MAT,
       MATERIAL(4),
       IND_SECTOR(1),
       MATL_TYPE(4),
       MATL_GROUP(9),
       BASE_UOM(3),
       BASE_UOM_ISO(3),
       PLANT(4),
       DEL_FLAG(1),
       PUR_GROUP(3),
       BASE_QTY(13),
       PLANT1(4),
       STGE_LOC(4),
       MRP_IND(1),
       SALES_ORG(4),
       DISTR_CHAN(2),
       DEL_FLAG1(1),
       MIN_ORDER(13),
       MAKTX(40),
       LANGU(2),
   END OF TY_MAT.
DATA: IT_DATA TYPE TABLE OF TY_MAT,
      WA_DATA LIKE LINE  OF IT_DATA,
      WA_DATA1 TYPE TY_MAT.
*DECLARING WORK AREA  TO BE PASSED TO THE FUNCTION MODULE.
DATA: BAPI_HEAD LIKE BAPIMATHEAD,
      BAPI_CLIENTDATA LIKE BAPI_MARA,
      BAPI_CLIENTDATAX LIKE BAPI_MARAX,
      BAPI_PLANTDATA LIKE BAPI_MARC,
      BAPI_PLANTDATAX LIKE  BAPI_MARCX,
      BAPI_STORAGELOCATIONDATA LIKE BAPI_MARD,
      BAPI_STORAGELOCATIONDATAX LIKE BAPI_MARDX,
      BAPI_SALESDATA LIKE BAPI_MVKE,
      BAPI_SALESDATAX LIKE BAPI_MVKEX,
      BAPI_MAKT LIKE BAPI_MAKT,
      BAPI_RETURN LIKE BAPIRET2.
*EXCELAL TABLE TO HOLD THE MATERIAL DESCRIPTION
DATA: BEGIN OF IT_MAKT.
INCLUDE STRUCTURE BAPI_MAKT.
DATA END OF IT_MAKT.
DATA:BEGIN OF IT_RET.
INCLUDE STRUCTURE BAPIRET2.
DATA END OF IT_RET.
*EXCELAL TABLE TO HOLD HEADER DATA
DATA: IT_EXCEL TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
*SELECTION-SCREEN ELEMENTS
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER: FNAME TYPE RLGRAP-FILENAME OBLIGATORY.
PARAMETERS: P_BEGCOL TYPE I DEFAULT 1 NO-DISPLAY,
            P_BEGROW TYPE I DEFAULT 1 NO-DISPLAY,
            P_ENDCOL TYPE I DEFAULT 100 NO-DISPLAY,
            P_ENDROW TYPE I DEFAULT 32000 NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK B1.
*DECLARATION OF EXCELAL TABLE
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.
PERFORM F_GET_FILE USING FNAME.
START-OF-SELECTION.
PERFORM F_XLS_ITAB USING FNAME
                   CHANGING IT_EXCEL.
PERFORM F_MOVE_DATA.
*&      Form  F_GET_FILE
      text*
     -->P_FNAME  text*
     <--P_SY_SUBRC  text*
FORM F_GET_FILE  USING    P_FNAME LIKE FNAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
   PROGRAM_NAME        = SYST-REPID
   DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '*
  STATIC              = ' '*
  MASK                = ' '*
  CHANGING
    FILE_NAME           = P_FNAME
EXCEPTIONS*
  MASK_TOO_LONG       = 1*
  OTHERS              = 2*
IF SY-SUBRC <> 0.
MESSAGE E006(ZHNC).
ENDIF.
ENDFORM.                    " F_GET_FILE
*&      Form  F_XLS_ITAB
      text*
     -->P_FNAME  text*
     <--P_IT_EXCEL  text*
FORM F_XLS_ITAB  USING    P_FNAME
                 CHANGING P_IT_EXCEL.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    FILENAME                      = FNAME
    I_BEGIN_COL                   = P_BEGCOL
    I_BEGIN_ROW                   = P_BEGROW
    I_END_COL                     = P_ENDCOL
    I_END_ROW                     = P_ENDROW
  TABLES
    INTERN                        = IT_EXCEL
EXCEPTIONS
   INCONSISTENT_PARAMETERS       = 1
   UPLOAD_OLE                    = 2
   OTHERS                        = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.*
ENDIF.