How to insert sysdate in a flat file

Hi All,
i have a interafce i extract data from oracle database and generate a flat file.
In one of the columns i have to insert sysdate in the file.
could someone help me how to add the sysdate in flat file.
Thanks in advance
Naveen

Hi Naveen,
Trying to contribute a little,
Yes you can use sunopsis CURRENT_DATE function to get the sysdate.
@ your interface
1. In the definition, make sure your staging area different from target is checked and SUNOPSIS MEMEORY ENGINE is selected.
2. In the diagram, for the column which you want date to be inserted just say CURRENT_DATE and make it to execute on STAGING.
3. In the Flow, you have to see 3 boxes, in the first box select LKM SQL to SQL, in the second box make it as UNDEFINED, in the third box select IKM SQL To FIle Append and select the options accordingly.
Makes sens?
Thanks,
G

Similar Messages

How to load data from a flat file which is there in the application server

HI All,
how to load data from a flat file which is there in the application server..

Hi,
Firstly you will need to place the file(s) in the AL11 path. Then in your infopackage in "Extraction" tab you need to select "Application Server" option. Then you need to specify the path as well as the exact file you want to load by using the browsing button.
If your file name keeps changing on a daily basis i.e. name_ddmmyyyy.csv, then in the Extraction tab you have the option to write an ABAP routine that generates the file name. Here you will need to append sy-datum to "name" and then append ".csv" to generate complete filename.
Please let me know if this is helpful or if you need any more inputs.
Thanks & Regards,
Nishant Tatkar.

How to get field separator in flat file using GUI_DOWNLOAD function

hi,
how to get field separator in flat file using GUI_DOWNLOAD function.
                                thanking you.

Hi,
Use WRITE_FIELD_SEPARATOR = 'X'.
Check this sample code
REPORT z_file_download.
DATA: w_name(90) TYPE c.
DATA:
BEGIN OF fs_flight,
    carrid   LIKE sflight-carrid,
    connid   LIKE sflight-connid,
    fldate   LIKE sflight-fldate,
    price    LIKE sflight-price,
    currency LIKE sflight-currency,
END OF fs_flight.
DATA:
BEGIN OF fs_head,
    carrid(10) TYPE c,
    connid(10) TYPE c,
    fldate(10) TYPE c,
    price(10) TYPE c,
    curr(10) TYPE c,
END OF fs_head.
DATA:
t_head LIKE
   TABLE OF
         fs_head.
DATA:
t_flight LIKE
     TABLE OF
           fs_flight.
fs_head-carrid = 'CARRID'.
fs_head-connid = 'CONNID'.
fs_head-fldate = 'FLDATE'.
fs_head-price = 'PRICE'.
fs_head-curr   = 'CURRENCY'.
APPEND fs_head TO t_head.
SELECT-OPTIONS:
s_carrid FOR fs_flight-carrid.
START-OF-SELECTION.
SELECT carrid
         connid
         fldate
         price
         currency
    FROM sflight
    INTO TABLE t_flight
   WHERE carrid IN s_carrid.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
*   BIN_FILESIZE                  =
    filename                      = 'D:\flight.xls'
   FILETYPE                      = 'ASC'
*   APPEND                        = ' '
    WRITE_FIELD_SEPARATOR         = 'X'
*   HEADER                        = '00'
*   TRUNC_TRAILING_BLANKS         = ' '
*   WRITE_LF                      = 'X'
*   COL_SELECT                    = ' '
*   COL_SELECT_MASK               = ' '
*   DAT_MODE                      = ' '
*   CONFIRM_OVERWRITE             = ' '
*   NO_AUTH_CHECK                 = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   WRITE_BOM                     = ' '
* IMPORTING
*   FILELENGTH                    =
tables
    data_tab                      = t_head
EXCEPTIONS
   FILE_WRITE_ERROR              = 1
   NO_BATCH                      = 2
   GUI_REFUSE_FILETRANSFER       = 3
   INVALID_TYPE                  = 4
   NO_AUTHORITY                  = 5
   UNKNOWN_ERROR                 = 6
   HEADER_NOT_ALLOWED            = 7
   SEPARATOR_NOT_ALLOWED         = 8
   FILESIZE_NOT_ALLOWED          = 9
   HEADER_TOO_LONG               = 10
   DP_ERROR_CREATE               = 11
   DP_ERROR_SEND                 = 12
   DP_ERROR_WRITE                = 13
   UNKNOWN_DP_ERROR              = 14
   ACCESS_DENIED                 = 15
   DP_OUT_OF_MEMORY              = 16
   DISK_FULL                     = 17
   DP_TIMEOUT                    = 18
   FILE_NOT_FOUND                = 19
   DATAPROVIDER_EXCEPTION        = 20
   CONTROL_FLUSH_ERROR           = 21
   OTHERS                        = 22
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = 'D:\flight.xls'
      filetype                = 'ASC'
      append                  = 'X'
      write_field_separator   = 'X'
    TABLES
      data_tab                = t_flight
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception = 20
      control_flush_error     = 21
      OTHERS                  = 22.
IF sy-subrc EQ 0.
    MESSAGE 'Download successful' TYPE 'I'.
ENDIF.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Step by Step details on how to load data from a flat file

hi can anyone explain how to load data from a flat file. Pls giv me step by step details. thnx

hi sonam.
it is very easy to load data from flat file. whn compared with other extrations methods...
here r the step to load transation data from a flat file.......
step:1 create a Flat File.
step:2 log on to sap bw (t.code : rsa1 or rsa13).
and observe the flat file source system icon. i.e pc icon.
step:3 create required info objects.
3.1: create infoarea
     (infoObjects Under Modeling > infoObjects (root node)-> context menu -
> create infoarea).
3.2: create char /keyfig infoObject Catalog.(select infoArea ---.context menu --->create infoObject catalog).
3.3:   create char.. infoObj and keyFig infoObjects accourding to ur requirement and activate them.
step:4 create infoSource for transaction data and create transfer structure and maintain communication structure...
    4.1: first create a application component.(select InfoSources Under modeling-->infosources<root node>>context menu-->create applic...component)
   4.2: create infoSource for transation data(select appl..comp--.context menu-->create infosource)
>select O flexible update and give info source name..
>continue..
4.4: *IMp* ASSIGN DATASOURCE..
(EXPAND APPLIC ..COMP..>EXPAND YOUR INFOSOURCE>CONTEXT MENU>ASSIGN DATASOURCE.)
>* DATASOURCE *
>O SOURCE SYSTEM: <BROWSE AND CHOOSE YOUR FLAT FILE SOURCE SYSTEM>.(EX:PC ICON).
>CONTINUE.
4.5: DEFINE DATASOURCE/TRANSFER STRUCTURE FOR IN FOSOURCE..
> SELECT TRANSFER STRUCTURE TAB.
>FILL THE INFOOBJECT FILLED WITH THE NECESSARY INFOOBJ IN THE ORDER OR SEQUENCE OF FLAT FILE STRUCTURE.
4.6: ASSIGN TRANSFER RULES.
---> NOW SELECT TRANSFER RULES TAB. AND SELECT PROPOSE TRANSFER RULES SPINDLE LIKE ICON.
(IF DATA TARGET IS ODS -
INCLUDE 0RECORDMODE IN COMMUNICATION STRUCTURE.)
--->ACTIVATE...
STEP:5 CREATE DATATARGET.(INFOCUBE/ODS OBJECT).
5.1: CREATE INFO CUBE.
-->SELECT YOUR INFOAREA>CONTEXT MENU>CREATE INFOCUBE.
5.2: CREATE INFOCUBE STRUCTURE.
---> FILL THE STRUCTURE PANE WILL REQUIRE INFOOBJECTS...(SELECT INFOSOURCE ICON>FIND UR INFOSOURCE >DOUBLE CLICK > SELECT "YES" FOR INFOOBJECT ASSIGNMENT ).
>MAINTAIN ATLEAST ON TIME CHAR.......(EX; 0CALDAY).
5.3:DEFINE AND ASSIGN DIMENSIONS FOR YOUR CHARACTERISTICS..
>ACTIVATE..
STEP:6 CREATE UPDATE RULES FOR INFOCUDE USING INFOSOURCE .
>SELECT UR INFOCUBE >CONTEXT MENU> CREATE UPDATE RULES.
> DATASOURCE
> O INFOSOURCE : _________(U R INFOSOURCE). AND PRESS ENTER KEY.......
>ACTIVATE.....UR UPDATE RULES....
>>>>SEE THE DATA FLOW <<<<<<<<----
STEP:7 SCHEDULE / LOAD DATA..
7.1 CREATE INFOPACKAGE.
--->SELECT INFOSOURCE UNDER MODELING> EXPAND UR APPLIC.. COMP..> EXPAND UR INFOSOURCE..> SELECT UR DATASOURCE ASSIGN MENT ICON....>CONTEXT MENU> CREAE INFOPACKAGE..
>GIVE INFOPACKAGE DISCREPTION............_________
>SELECT YOUR DATA SOURCE.-------> AND PRESS CONTINUE .....
>SELECT EXTERNAL DATA TAB...
> SELECT *CLIENT WORKSTATION oR APPLI SERVER >GIVE FILE NAME > FILE TYPE> DATA SAPARATER>
>SELECT PROCESSING TAB
> PSA AND THEN INTO DATATARGETS....
>DATATARGET TAB.
>O SELECT DATA TARGETS
[ ] UPDATE DATATARGET CHECK BOX.....
--->UPDATE TAB.
O FULL UPDATE...
>SCHEDULE TAB..
>SELECT O START DATA LOAD IMMEDIATELY...
AND SELECT "START" BUTTON........
>>>>>>>>>>
STEP:8 MONITOR DATA
> CHECK DATA IN PSA
CHECK DATA IN DATA TARGETS.....
>>>>>>>>>>> <<<<<<<<<----
I HOPE THIS LL HELP YOU.....

How to test the RFC to Flat File scenario

Hi,
How to test the RFC to Flat File scenario
regards,
kiran

Hi,
After running the RFC it's going Dump.
this is the error message i got.
"Error analysis
An error occurred when executing a Remote Function Call.
"CPI-C error CM_RESOURCE_FAILURE_NO_RETRY"
Status of connection.... "CODE=CM_RESOURCE_FAILURE_NO_RETRY -1 -1 SAPCODE=666
CONV="
Internal error code.... "RFC_IO5"
There is an error in the communication system. To clarify
and resolve the error, contact your system administrator.                     "

How to import a logo from flat file to SAP in SMARTFORM.

how to import a logo from flat file to SAP in SMARTFORM. i need to know whether TIFF format is used and also the full steps.
Thanks,

Hi,
You can not directly use a logo from a file into a Smart form. First you will have to upload it to SAP. This has to be done only once. Once it is imported into SAP then you can use it in smart form. To import a logo to SAP, goto SE78. Open the tree under GRAPHICS. Select the file type and click on the Import (first button on the toolbar, just before delete button). Select the logo file and give it some appropriate name along with description. Select appropriate type of the image and click Continue. Your logo will be uploaded into SAP from a file. Now in your smartform, Create a Graphic Node, give the name of the logo along with other properties. In this way you can import a logo from a flat file into SAP and consequently in a smart form.
Reward points if the answer is helpful.
Regards,
Mukul

How to insert Page Break in SPOOL file

How to insert Page Break in SPOOL file.

How to insert Page Break in SPOOL file.
SET NEWP[AGE] {1|n|NONE}
SET NEWPAGE is not supported in iSQL*Plus
Sets the number of blank lines to be printed from the top of each page to the top
title. A value of zero places a formfeed at the beginning of each page (including
the first page) and clears the screen on most terminals. If you set NEWPAGE to
NONE, SQL*Plus does not print a blank line or formfeed between the report pages.
http://www.lc.leidenuniv.nl/awcourse/oracle/server.920/a90842/ch13.htm
SQL> SET PAGESIZE 5
SQL> SET NEWPAGE 0 --a form feed between your pages
SQL> SPOOL C:\output.doc
SQL> SELECT * FROM emp;
     EMPNO ENAME      JOB             MGR HIREDATE         SAL       COMM     DEPTNO
      7369 SMITH      CLERK           7902 17-DEC-80        800          0         20
      7499 ALLEN      SALESMAN        7698 20-FEB-81       1600        300         30
      7521 WARD       SALESMAN        7698 22-FEB-81       1250        500         30
     EMPNO ENAME      JOB             MGR HIREDATE         SAL       COMM     DEPTNO
      7654 MARTIN     SALESMAN        7698 28-SEP-81       1250       1400         30
      7698 BLAKE      MANAGER         7839 01-MAY-81       2850          0         30
      7782 CLARK      MANAGER         7839 09-JUN-81       2450          0         10
     EMPNO ENAME      JOB             MGR HIREDATE         SAL       COMM     DEPTNO
      7788 SCOTT      ANALYST         7566 09-DEC-82       3000          0         20
      7839 KING       PRESIDENT            17-NOV-81       5000          0         10
      7844 TURNER     SALESMAN        7698 08-SEP-81       1500          0         30
     EMPNO ENAME      JOB             MGR HIREDATE         SAL       COMM     DEPTNO
      7876 ADAMS      CLERK           7788 12-JAN-83       1100          0         20
      7900 JAMES      CLERK           7698 03-DEC-81        950          0         30
      7902 FORD       ANALYST         7566 03-DEC-81       3000          0         20
     EMPNO ENAME      JOB             MGR HIREDATE         SAL       COMM     DEPTNO
      7934 MILLER     CLERK           7782 23-JAN-82       1300          0         10
13 rows selected.
SQL> SPOOL OFFKhurram

How to skip first record while inserting data from a flat file to BW system

Hi Experts,
In my project we have to upload flat file into a BW system. I have written a program and it is working fine.
Now we have got another requirement. The flat file will have a header record (first row). While uploading the flat file we have to skip this record. How I can do so?
The code is as below:
FORM upload1.
DATA : wf_title    TYPE string,
          lt_filetab TYPE filetable,
          l_separator TYPE char01,
          l_action    TYPE i,
          l_count     TYPE i,
          ls_filetab TYPE file_table,
          wf_delemt TYPE rollname,
          wa_fieldcat TYPE lvc_s_fcat,
          tb_fieldcat TYPE lvc_t_fcat,
          rows_read TYPE i,
          p_error   TYPE char01,
          l_file      TYPE string.
DATA: wf_object(30) TYPE c,
          wf_tablnm TYPE rsdchkview.
wf_object = 'myprogram'.
DATA i TYPE i.
DATA:
       lr_mdmt                TYPE REF TO cl_rsdmd_mdmt,
       lr_mdmtr               TYPE REF TO cl_rsdmd_mdmtr,
       lt_idocstate           TYPE rsarr_t_idocstate,
       lv_subrc               TYPE sysubrc.
TYPES : BEGIN OF test_struc,
           /bic/myprogram TYPE /bic/oimyprogram,
           txtmd   TYPE rstxtmd,
           END OF test_struc.
DATA :    tb_assum TYPE TABLE OF /bic/pmyprogram.
DATA: wa_ztext TYPE /bic/tmyprogram,
        myprogram_temp TYPE ziott_assum,
        wa_myprogram TYPE /bic/pmyprogram.
DATA : test_upload TYPE STANDARD TABLE OF test_struc,
         wa2 TYPE test_struc.
DATA : wa_test_upload TYPE test_struc,
         ztable_data TYPE TABLE OF /bic/pmyprogram,
         ztable_text TYPE TABLE OF /bic/tmyprogram,
         wa_upld_text TYPE /bic/tmyprogram,
         wa_upld_data TYPE /bic/pmyprogram,
          t_assum TYPE ziott_assum.
DATA : wa1 LIKE test_upload.
wf_title = text-026.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = wf_title
      default_extension       = 'txt'
      file_filter             = 'Tab delimited Text Files (*.txt)'
    CHANGING
      file_table              = lt_filetab
      rc                      = l_count
      user_action             = l_action
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      OTHERS                  = 3.                          "#EC NOTEXT
IF sy-subrc <> 0.
    EXIT.
ENDIF.
LOOP AT lt_filetab INTO ls_filetab.
    l_file = ls_filetab.
ENDLOOP.
CHECK l_action = 0.
IF l_file IS INITIAL.
    EXIT.
ENDIF.
l_separator = 'X'.
wa_fieldcat-fieldname = 'test'.
wa_fieldcat-dd_roll = wf_delemt.
APPEND wa_fieldcat TO tb_fieldcat.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
CLEAR wa_test_upload.
Upload file from front-end (PC)
File format is tab-delimited ASCII
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = l_file
      has_field_separator     = l_separator
    TABLES
     data_tab                = i_mara
    data_tab                   = test_upload
    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.
    EXIT.
ELSE.
   CALL FUNCTION 'MESSAGES_INITIALIZE'.
    IF test_upload IS NOT INITIAL.
      DESCRIBE TABLE test_upload LINES rows_read.
      CLEAR : wa_test_upload,wa_upld_data.
      LOOP AT test_upload INTO wa_test_upload.
        CLEAR : p_error.
        rows_read = sy-tabix.
        IF wa_test_upload-/bic/myprogram IS INITIAL.
          p_error = 'X'.
          MESSAGE s153 WITH wa_test_upload-/bic/myprogram sy-tabix.
          CONTINUE.
        ELSE.
          TRANSLATE wa_test_upload-/bic/myprogram TO UPPER CASE.
          wa_upld_text-txtmd = wa_test_upload-txtmd.
          wa_upld_text-txtsh = wa_test_upload-txtmd.
          wa_upld_text-langu = sy-langu.
          wa_upld_data-chrt_accts = 'xyz1'.
          wa_upld_data-co_area = '12'.
          wa_upld_data-/bic/zxyzbcsg = 'Iy'.
          wa_upld_data-objvers = 'A'.
          wa_upld_data-changed = 'I'.
          wa_upld_data-/bic/zass_mdl = 'rrr'.
          wa_upld_data-/bic/zass_typ = 'I'.
          wa_upld_data-/bic/zdriver = 'yyy'.
          wa_upld_text-langu = sy-langu.
          MOVE-CORRESPONDING wa_test_upload TO wa_upld_data.
          MOVE-CORRESPONDING wa_test_upload TO wa_upld_text.
          APPEND wa_upld_data TO ztable_data.
          APPEND wa_upld_text TO ztable_text.
        ENDIF.
      ENDLOOP.
      DELETE ADJACENT DUPLICATES FROM ztable_data.
      DELETE ADJACENT DUPLICATES FROM ztable_text.
      IF ztable_data IS NOT INITIAL.
        CALL METHOD cl_rsdmd_mdmt=>factory
          EXPORTING
            i_chabasnm     = 'myprogram'
          IMPORTING
            e_r_mdmt       = lr_mdmt
          EXCEPTIONS
            invalid_iobjnm = 1
            OTHERS         = 2.
   CALL FUNCTION 'MESSAGES_INITIALIZE'.
   **Lock the Infoobject to update
        CALL FUNCTION 'RSDG_IOBJ_ENQUEUE'
          EXPORTING
            i_objnm      = wf_object
            i_scope      = '1'
            i_msgty      = rs_c_error
          EXCEPTIONS
            foreign_lock = 1
            sys_failure = 2.
        IF sy-subrc = 1.
          MESSAGE i107(zddd_rr) WITH wf_object sy-msgv2.
          EXIT.
        ELSEIF sy-subrc = 2.
          MESSAGE i108(zddd_rr) WITH wf_object.
          EXIT.
        ENDIF.
*****Update Master Table
        IF ztable_data IS NOT INITIAL.
          CALL FUNCTION 'RSDMD_WRITE_ATTRIBUTES_TEXTS'
                EXPORTING
                  i_iobjnm                     = 'myprogram'
                  i_tabclass                   = 'M'
       I_T_ATTR                     = lt_attr
                TABLES
                  i_t_table                    = ztable_data
                  EXCEPTIONS
                 attribute_name_error         = 1
                 iobj_not_found               = 2
                 generate_program_error       = 3
                 OTHERS                       = 4.
          IF sy-subrc <> 0.
            CALL FUNCTION 'MESSAGE_STORE'
              EXPORTING
                arbgb = 'zddd_rr'
                msgty = 'E'
                txtnr = '054'
                msgv1 = text-033
              EXCEPTIONS
                OTHERS = 3.
            MESSAGE e054(zddd_rr) WITH 'myprogram'.
          ELSE.
            CALL FUNCTION 'MESSAGE_STORE'
              EXPORTING
                arbgb = 'zddd_rr'
                msgty = 'S'
                txtnr = '053'
                msgv1 = text-033
              EXCEPTIONS
                OTHERS = 3.
          ENDIF.
*endif.
*****update Text Table
          IF ztable_text IS NOT INITIAL.
            CALL FUNCTION 'RSDMD_WRITE_ATTRIBUTES_TEXTS'
              EXPORTING
                i_iobjnm               = 'myprogram'
                i_tabclass             = 'T'
              TABLES
                i_t_table              = ztable_text
              EXCEPTIONS
                attribute_name_error   = 1
                iobj_not_found         = 2
                generate_program_error = 3
                OTHERS                 = 4.
            IF sy-subrc <> 0.
              CALL FUNCTION 'MESSAGE_STORE'
                EXPORTING
                  arbgb = 'zddd_rr'
                  msgty = 'E'
                  txtnr = '055'
                  msgv1 = text-033
                EXCEPTIONS
                  OTHERS = 3.
            ENDIF.
          ENDIF.
        ELSE.
          MESSAGE s178(zddd_rr).
        ENDIF.
      ENDIF.
      COMMIT WORK.
      CALL FUNCTION 'RSD_CHKTAB_GET_FOR_CHA_BAS'
        EXPORTING
          i_chabasnm = 'myprogram'
        IMPORTING
          e_chktab   = wf_tablnm
        EXCEPTIONS
          name_error = 1.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
****Release locks on Infoobject
      CALL FUNCTION 'RSDG_IOBJ_DEQUEUE'
        EXPORTING
          i_objnm = 'myprogram'
          i_scope = '1'.
    ENDIF.
ENDIF.
PERFORM data_selection .
PERFORM update_alv_grid_display.
CALL FUNCTION 'MESSAGES_SHOW'.
ENDFORM.
Please let me know how I can skip first record of the flat file?
Regards,
S

go through this hope u can get some idea
REPORT ztest no standard page heading line-size 255.
                      Declaration                            *
TYPES t_itab1 TYPE alsmex_tabline.
types: begin of t_csks,
       kostl like csks-kostl,
      end of t_csks.
types: begin of t_cska,
       kstar like cska-kstar,
      end of t_cska.
data: begin of t_flatfile,
      docdate like COHEADER-BLDAT,
      postdate like COHEADER-BUDAT,
      doctext like COHEADER-BLTXT,
       costele like RK23F-KSTAR,
       amount like RK23F-WTGBTR,
       scostctr like RK23F-SKOSTL,
       rcostctr like RK23F-EKOSTL,
       rintorder like RK23F-EAUFNR,
     end of t_flatfile.
data: begin of t_flatfile1,
      docdate like COHEADER-BLDAT,
      postdate like COHEADER-BUDAT,
      doctext like COHEADER-BLTXT,
       costele like RK23F-KSTAR,
       amount like RK23F-WTGBTR,
       scostctr like RK23F-SKOSTL,
       rcostctr like RK23F-EKOSTL,
       rintorder like RK23F-EAUFNR,
       NUM LIKE SY-INDEX,
     end of t_flatfile1.
data: itab like table of t_flatfile with header line.
data: itab2 like table of t_flatfile1 with header line.
DATA: it_itab1 TYPE STANDARD TABLE OF t_itab1 WITH HEADER LINE,
      MESSTAB1 LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE,
      MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
data: begin of bdcdata occurs 0.
        include structure bdcdata.
data: end of bdcdata.
data:t_lin type i VALUE '0',
     u_rec type i VALUE '0',
     s_rec type i VALUE '0'.
data: it_csks type standard table of t_csks,
      wa_csks type t_csks.
data: it_cska type standard table of t_cska,
      wa_cska type t_cska.
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.
parameters: p_docdat LIKE COHEADER-BLDAT obligatory,
            p_postda LIKE COHEADER-BUDAT obligatory,
            p_doctxt LIKE COHEADER-BLTXT.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-011.
parameters: p_file LIKE RLGRAP-FILENAME obligatory,
            DIS_MODE LIKE CTU_PARAMS-DISMODE DEFAULT 'N'.
SELECTION-SCREEN END OF BLOCK b2.
              A T S E L E C T I O N   S C R E E N                  *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_local_file_name USING p_file.
*Start of Selection
START-OF-SELECTION.
Perform get_Excel_data.
perform validate_data.
Perform Process_Data.
                end-of-selection
end-of-selection.
perform display_data.
*&      Form get_local_file_name
      text
     -->P_P_FILE text
FORM get_local_file_name USING    P_P_FILE.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      file_name = p_file.
ENDFORM.                    " get_local_file_name
*&      Form get_Excel_data
      text
--> p1        text
<-- p2        text
FORM get_Excel_data .
FIELD-SYMBOLS : <FS>.
DATA : V_INDEX TYPE I.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
    i_begin_row             = 2
      i_begin_row             = 1
      i_end_col               = 256
      i_end_row               = 9999                        "65536
    TABLES
      intern                  = it_itab1
    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.
    Message text-013 type 'E'.
ENDIF.
IF IT_ITAB1[] IS INITIAL.
    Message text-001 type 'E'.
else.                                    "IF IT_ITAB1[] IS INITIAL.
    data: itab2 like itab occurs 0 with header line.
    SORT IT_ITAB1 BY ROW COL.
    LOOP AT IT_ITAB1.
      MOVE :IT_ITAB1-COL TO V_INDEX.
      ASSIGN COMPONENT V_INDEX OF STRUCTURE itab2 TO <FS>.
      MOVE : IT_ITAB1-VALUE TO <FS>.
      AT END OF ROW.
        MOVE-CORRESPONDING itab2 TO itab.
        APPEND itab.
        CLEAR:itab,itab2.
      ENDAT.
    endloop.
    describe table itab lines t_lin.
endif.               "IF IT_ITAB1[] IS INITIAL.
ENDFORM.                    " get_Excel_data
*&      Form Process_Data
      text
--> p1        text
<-- p2        text
FORM Process_Data .
data:l_tabix type sy-tabix.
data:l_periv like t001-periv,
       l_monat like bkpf-monat,
       l_gjahr like bkpf-gjahr,
       l_amt(21) type c.
data: l_ddate(10),
        l_pdate(10).
WRITE p_docdat TO l_ddate.
WRITE p_postda TO l_pdate.
clear: l_periv,l_monat,l_gjahr.
select single periv from t001 into l_periv where bukrs = '5000'. "P_bukrs
if sy-subrc eq 0.
    l_gjahr = p_postda+0(4).
    call function 'FI_PERIOD_DETERMINE'
      EXPORTING
        i_budat = p_postda
        i_bukrs = '5000'     "p_bukrs
        i_periv = l_periv
        i_gjahr = l_gjahr
      IMPORTING
        e_monat = l_monat.
    clear:l_periv.
endif.
loop at itab2.
    refresh:bdcdata.
    clear:bdcdata.
    l_tabix = sy-tabix.
    perform bdc_dynpro      using 'SAPLK23F1' '1200'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'COHEADER-SEND_REC_REL'
                                  '10SAP'.
    perform bdc_field       using 'RK23F-STATUS'
                                  'S'.
    perform bdc_field       using 'COHEADER-BLDAT'
                             itab-docdate.
                                  l_ddate.
    perform bdc_field       using 'COHEADER-BUDAT'
                             itab-postdate.
                                  l_pdate.
    perform bdc_field       using 'COHEADER-PERIO'
                                   l_monat.                 "'9'.
    perform bdc_field       using 'COHEADER-BLTXT'
                             itab-doctext.
                                  p_doctxt.
    perform bdc_field       using 'RK23F-KSTAR'
                                  itab2-costele.
    WRITE itab2-amount TO l_amt.
l_amt = itab-amount.
    condense l_amt no-gaps.
    perform bdc_field       using 'RK23F-WTGBTR'
                                   l_amt.
                             itab-amount.
    perform bdc_field       using 'RK23F-WAERS'
                                  'USD'.
*perform bdc_field       using 'RK23F-SGTXT'
                             itab-doctext.
    perform bdc_field       using 'RK23F-SKOSTL'
                                  itab2-scostctr.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RK23F-EAUFNR'.
    perform bdc_field       using 'RK23F-EKOSTL'
                                  itab2-rcostctr.
    perform bdc_field       using 'RK23F-EAUFNR'
                                  itab2-rintorder.
    perform bdc_dynpro      using 'SAPLK23F1' '1200'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=POST'.
    perform bdc_field       using 'COHEADER-SEND_REC_REL'
                                  '10SAP'.
    perform bdc_field       using 'RK23F-STATUS'
                                  'S'.
    perform bdc_field       using 'COHEADER-BLDAT'
                             itab-docdate.
                                  l_ddate.
    perform bdc_field       using 'COHEADER-BUDAT'
                              itab-postdate.
                                  l_pdate.
    perform bdc_field       using 'COHEADER-PERIO'
                             '9'.
                                    l_monat.
    perform bdc_field       using 'COHEADER-BLTXT'
                              itab-doctext.
                                  p_doctxt.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RK23F-KSTAR'.
    perform bdc_field       using 'RK23F-WAERS'
                                  'USD'.
    CALL TRANSACTION 'KB15N' USING BDCDATA MODE DIS_MODE MESSAGES INTO MESSTAB.
    If sy-subrc = 0.
      s_rec = s_rec + 1.
    ELSE.
      u_rec = u_rec + 1.
      move ITAB2-NUM to messtab1-msgv1.
      concatenate itab2-costele ' | ' itab2-scostctr ' | ' itab2-rcostctr ' | ' itab2-rintorder into messtab1-msgv2.
      condense messtab1-msgv2.
      condense messtab1-msgv1.
      append messtab1.
    endif.
    clear:itab2.
endloop.
ENDFORM.                    " Process_Data
      BDC_DYNPRO                                                     *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO   = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.                    "BDC_DYNPRO
       BDC_FIELD                                                     *
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> ''. "NODATA.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
ENDIF.
ENDFORM.                    "BDC_FIELD
*&      Form display_data
      text
--> p1        text
<-- p2        text
FORM display_data .
skip 2.
write:/15 text-002.
skip 2.
write:/8 text-003.
SKIP.
write:/12 text-008,
         25 P_DOCDAT.
SKIP.
write:/12 text-009,
         25 P_POSTDA.
SKIP.
write:/12 text-012,
          25 P_DOCTXT.
SKIP.
write:/12 text-004,
         25 p_file.
skip 2.
write:/8 text-005,
        60 t_lin.
skip.
write:/8 text-006,
        60 s_rec.
skip.
write:/8 text-007,
        60 u_rec.
skip.
write:/10 'row no',
         20 'Information'.
skip.
loop at messtab1.
    write:/10 messtab1-msgv1,
           20 messtab1-msgv2.
    clear:messtab1.
endloop.
ENDFORM.                    " display_data
*&      Form validate_data
      text
--> p1        text
<-- p2        text
FORM validate_data .
data: l_tabix1 type sy-tabix.
data: l_tabix2 type sy-tabix.
if not itab[] is initial.
    select kostl from CSKS into table it_csks.
    if sy-subrc eq 0.
      sort it_csks by kostl.
    endif.
    select kstar from CSKA into table it_cska.
    if sy-subrc eq 0.
      sort it_cska by kstar.
    endif.
    loop at itab.
      l_tabix1 = sy-tabix.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = itab-scostctr
IMPORTING
   OUTPUT        = itab-scostctr .
      read table it_csks into wa_csks with key kostl = itab-scostctr.
      if sy-subrc ne 0.
        u_rec = u_rec + 1.
       L_TABIX2 = l_tabix1 + 1.
       move l_tabix2 to messtab1-msgv1.
        move l_tabix1 to messtab1-msgv1.
        move itab-rintorder to messtab1-msgv2.
        concatenate itab-costele ' | ' itab-scostctr ' | ' itab-rcostctr ' | ' itab-rintorder into messtab1-msgv2.
        condense messtab1-msgv2.
        condense messtab1-msgv1.
        append messtab1.
        clear:wa_csks.
       CLEAR:L_TABIX2.
        continue.
      endif.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = itab-rcostctr
IMPORTING
   OUTPUT        = itab-rcostctr .
      read table it_csks into wa_csks with key kostl = itab-rcostctr.
      if sy-subrc ne 0.
        u_rec = u_rec + 1.
       L_TABIX2 = l_tabix1 + 1.
       move l_tabix2 to messtab1-msgv1.
        move l_tabix1 to messtab1-msgv1.
          concatenate itab-costele ' | ' itab-scostctr ' | ' itab-rcostctr ' | ' itab-rintorder into messtab1-msgv2.
        condense messtab1-msgv2.
        condense messtab1-msgv1.
        append messtab1.
        clear:wa_csks.
       CLEAR:L_TABIX2.
        continue.
      endif.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = itab-costele
IMPORTING
   OUTPUT        = itab-costele .
      read table it_cska into wa_cska with key kstar = itab-costele.
      if sy-subrc ne 0.
        u_rec = u_rec + 1.
       L_TABIX2 = l_tabix1 + 1.
       move l_tabix2 to messtab1-msgv1.
        move l_tabix1 to messtab1-msgv1.
        concatenate itab-costele ' | ' itab-scostctr ' | ' itab-rcostctr ' | ' itab-rintorder into messtab1-msgv2.
        condense messtab1-msgv2.
        condense messtab1-msgv1.
        append messtab1.
        clear:wa_csks.
       CLEAR:L_TABIX2.
        continue.
      endif.
move-corresponding itab to itab2.
MOVE l_tabix1 TO ITAB2-NUM.
append itab2.
clear: itab2.
      clear:itab.
    endloop.
else.
    message 'No records in File' type 'S'.
endif.
ENDFORM.                    " validate_data

How to upload schedule line from flat files to sap file

dear all,
i want to upload the schedule lines from flat files to sap schedulle lines
but the flat files have 15 schedule lines and the data is as per date
so how to upload that and the fields available in flat files are more than the sap screen
we are having more than 6 items
and 15scedule lines its abt 90data to be upload
for one customer in every 15 day
so how to do this
is there any direct use in functional side
with out the help of any abap
but my user will do it
so he need a permanent solution
with regards
subrat

Hi Subrat ,
u can upload the data either ( Master /Transaction) data with the help of lsmw. for that all u need to do is go through the lsmw and do it. in that u can go Batch input recording/ BAPI/ IDOC any of that. here i am sending the LSMW Notes go through it and do the work.
once u create the LSMW project then u can ask the data from user or u can explain the user about the program and can run the flat file to upload the data.
if u require LSMW material Just send me blank mail from u. my mail id is [email protected]
Reward if Helpful.
Regards,
Praveen Kumar.D

How to load the data from flat file ( ex excel ) to Planning area directly

Hi all ,
How can i load thedata fro m flat file directly to Planning area .
PLease help me in this.
Regards,
Chandu .

download one key figure data from planning book ( interactive damand plan) and made some changes and need to upload the data back to same planning book
But, may I know why you are thinking of downloading, changing and uploading for just changing the figures for a particular key figure. You can do it in the planning book itself.
However, not all the key-figures can be changed. But, what type of key-figure you are speaking here? Is it like 'Forecast' for which the value is based on other key-figures, or is like a key-figure where some manual adjustments are to be done--so that it can be manually edited? However, in both the cases, the data can be changed in the planning book only. In first case, you can change the values of dependant key-figures and in the second case, you can change the key-figures directly.
And please note that you can change the values of the key-figures only at the detailed level. So, after loading the data in the book, use drill-down option, maintain the data at the detailed level, change the figures, and automatically, this gets reflected at the higher level.
In case you are unable to change the values, go to the 'Design' mode of the book, right-click your key-figure, under "Selected Rows", uncheck "Output Only" option. In case you are unable to see that option, then you are not authorised to change that. See if you can change the authorisations by going to the "Data View" tab in planning book configuration (/n/sapapo/sdp8b), and change the value of Status to 3.
Hope your query is answered with different solutions offered by many of the sdn colleagues here.
Regards,
Guru Charan.

How to eliminate empty lines in Flat file.

Hi All,
How to delete the empty lines in flat file,i am explaining below with data
Here we have 3 fields with field lengths 30,10,34 i am checking the condition in message mapping if the middle field containing 9999999999 i am deleting the total record but in output file i am getting empty line how to eleminate empy lines in file please suggest me is it possible through Content Convertion.
Thanks,
Sudheer.
0500189175247200000500003141700000142888073108000009640566210000
0500189175247200000500012449050000142889072908000009623017230000
0500189175247200000500000496210000142890073008000009631840760000
0500189175247200000500000162130000142891072808000009613028730000
0500189175247200000500001356750000142892072908000009621443430000
0500189175247200000500012982910000142893072908000009622158440000
0500189175247200000500001380990000142894073008000009631876720000
0500189175247200000500000074560000142895072808000009613904430000
0500189175247200000500003351650000142896072908000009623005030000
0500189175247200000500000061170000142898072808000009613026140000
0500189175247200000500000060590000142900073008000009630862400000
0500189175247200000500000155320000142901072908000009623234640000
0500189175247200000500043425220000142903072808000009612752160000
0500189175247200000500000517450000142904073108000009640911680000
0500189175247200000500006901140000142905073008000009630927540000
0500189175247200000500001565590000142906073008000009630938540000
0500189175247200000500000210440000142907073108000009640765850000
0500189175247200000500000187500000142908072908000009622980650000
0500189175247200000500000069240000142909072908000009622980660000

Hi,
I think we could handle this with may be usage of Advanced UDF in Graphical mapping only.
Here as per the condition you are deleting the particular record but unknowingly blank value i.e. " " is getting passed so on target side blank node is created for this record.
You need to just avoid this blank Node.
If you can share the logic you have applied for Middle field as well the source and target structure I will be able to try the UDF code..based on it
Thanks
swarup

How to create source system for flat file loads

How do I create a source system to load flat file?
I have a screen that asks for the following:
Logical system name
Source system name
Type and release
What should I enter for these?
I am not Basis and Basis was supposed to set this up.

hi sam.
STEPS TO CREATE FLAT FILE SOURCE SYSTEM
step:1 select source systems under modeling in AWB.
step:2 select Source Systems root node.
           |---> context menu
               |--->create......
step:3 select your required source system Icon.
          (in your case it is PC Icon).
there it askes for a logical.......and source system name...
here u can specify any name of ur wish
for example:-
logical sys name --- PC_FF
source system name --- flat file source system*
*press Continue * button.
Observe the activation icon to confirm the successfull creation(_glowing lamp icon_ symbol)

How to built a hierarchy with flat file?

Hi Experts,
for a better representation of the report, i need to built a hierarchy with flat file.
The Data load is via Flat file.
Do you have some documentation about that?
Thanks
Cheers
Gilo

Hi Gilo,
Check these docs...
<a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/0403a990-0201-0010-38b3-e1fc442848cb">How to Download a Hierarchy to a Flat File</a>
<a href="http://help.sap.com/saphelp_nw04/helpdata/en/fa/e92637c2cbf357e10000009b38f936/content.htm">Uploading Hierarchies from Flat Files</a>
<a href="http://sapbwneelam.blogspot.com">More Docs...</a>
Hope it Helps
Srini

How To guide...for Flat File upload for User-Defined variables

Has anyone got link to the guide that describes how to do a flat file upload for populating User-Defined Variables ?
Any assistance will be appreciated.
Uche

SAP BW Business Planning and Simulation "How To" Guides
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/ab9fd590-0201-0010-2590-be78eb70015c
How to Upload User-Specific Variable Selections in BW-BPS
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/how to upload user-specific variable selections in bw-bps.pdf
this is what you are looking for ?
Message was edited by: Murali

How to insert my signature in pdf file by using adobe?

how to insert my digital signature in pdf file by using adobe

Hi vani.boddu,
If you're using Adobe Acrobat then refer the below links:
Video : http://tv.adobe.com/watch/i-didnt-know-acrobat-xi-could-do-that-tutori als/sign-pdf-files-electronically/
Document : http://help.adobe.com/en_US/acrobat/X/standard/using/WSAC8084C2-14F7-4 841-9EF8-92106D22C3DB.w.html
If You're Using Adobe Reader
Please refer : http://helpx.adobe.com/reader/using/sign-pdfs.html

How to insert sysdate in a flat file

Similar Messages

Maybe you are looking for