Need help in GUI_UPLOAD and SM35!

Question

Hi Guys,
I'm having trouble in uploading a flat file. Im currently using ECC 6. What are the steps that should I be doing? One more thing, after uploading the file it should run in SM35. I dont have any idea how to this problem. By the way, the flat file have like this....
1345,02/02/2008,4,12    notice the COMMA not tab delimited. Can i upload this kind of format? Pls state the code if you have sample.
I need your help guys! Thanks in advance!
Regards,
Mackoy

Answer 1

Hi
U program should have a structure like following:
PARAMETERS: P_FILE(100).
TYPES: TY_RECORD TYPE STRING.
DATA FILE_NAME TYPE STRING
DATA: W_RECORD    TYPE TY_RECORD,
      T_DATA_FILE TYPE STANDARD TABLE TY_RECORD
DATA: T_BDCDATA   TYPE STANDARD TABLE OF BDCDATA WITH HEADER LINE.
* A) Upload the file
MOVE P_FILE TO FILE_NAME.
CALL FUNCTION 'GUI_UPLOAD'
     EXPORTING
          FILENAME                = FILE_NAME
     TABLES
          DATA_TAB                = T_DATA_FILE
     EXCEPTIONS
          FILE_OPEN_ERROR         = 1
          FILE_READ_ERROR         = 2
          NO_BATCH                = 3
          GUI_REFUSE_FILETRANSFER = 4
          INVALID_TYPE            = 5
          NO_AUTHORITY            = 6
          UNKNOWN_ERROR           = 7
          BAD_DATA_FORMAT         = 8
          HEADER_NOT_ALLOWED      = 9
          SEPARATOR_NOT_ALLOWED   = 10
          HEADER_TOO_LONG         = 11
          UNKNOWN_DP_ERROR        = 12
          ACCESS_DENIED           = 13
          DP_OUT_OF_MEMORY        = 14
          DISK_FULL               = 15
          DP_TIMEOUT              = 16
          OTHERS                  = 17.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* B) Open the session
DESCRIBE TABLE T_DATA_FILE LINES SY-TABIX.
CHECK SY-TABIX > 0.
CALL FUNCTION 'BDC_OPEN_GROUP'.
* C) Read data file in order to create the trx data
LOOP AT T_DATA_FILE INTO W_RECORD.
* D) Fill BDC data
  APPEND T_BDCDATA
* E) Insert the trx
  CALL FUNCTION 'BDC_INSERT'
       EXPORTING
            TCODE            = <TCODE>
       TABLES
            DYNPROTAB        = T_BDCDATA
       EXCEPTIONS
            INTERNAL_ERROR   = 1
            NOT_OPEN         = 2
            QUEUE_ERROR      = 3
            TCODE_INVALID    = 4
            PRINTING_INVALID = 5
            POSTING_INVALID  = 6
            OTHERS           = 7.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  REFRESH T_BDCDATA.
ENDLOOP.
* F) Close sessjon
CALL FUNCTION 'BDC_CLOSE_GROUP'
* EXCEPTIONS
*   NOT_OPEN          = 1
*   QUEUE_ERROR       = 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.
U can find all routines to create a BDC session in include BDCRECX1
Max