Transport and Program Relation Database table

Hello,
From which database table we can find program and its active transport request details?
I need to check all Z programs requests from DEV to PRD.
Thanks,
Krishna.

hi,
you can see
E070 -Header of Requests/Tasks
E071- Object Entries of Requests/Tasks
refer transactions SE01 and SE09 .
thanks

Similar Messages

How to fnd SAP STANDARD program of Database table

Hi to all,
Please can anybody tell me , how to find out SAP standard program of database Tables S070 (Breakdown Statistics).
As this table contain two filelds Time To Repair and Time Between Repair , i want to knew how the standard program for the table have calculate them.
i shall be thankfull to you for this.
Regards
Pavneet Rana

Hi,
Program for table is generated dynamically for each user ID, when ever you change the selection screen in SE16 or when you are executing the table entries for first time. Usually it starts with /1BCDWB/DB followed by table name. In your case it would be /1BCDWB/DBS070.
Go to Se16, enter your table name and click enter. Once you are in selection screen, goto Menu=>system=>Status. Here you can see the program name.
Thanks,
Vinod.

I have a column where I have implemented writeback, its working fine. On top of this I need to show 0 as No and 1 as yes in our report, that is also done. Now I want to enter Yes in a column where it was no and I want database table to get update with 1.

I have a column where I have implemented writeback, its working fine. On top of this I need to show 0 as No and 1 as yes in our report, that is also done. Now I want to enter Yes in a column where it was no and I want database table to get update with 1. I am not sure how to do it. SOmeone please help me out.

Hi ,
In your write back XML try the below query insert
INSERT INTO TABLE_XYZ (attribute1) values (SELECT CASE WHEN @{C1}=’Yes’ then 1 when @{C1}=’No’ then 0 else null end from dual)
Regards
Rajagopal

Import and export the database table

I would like to know what is the syntax of using imp.exe and exp.exe to import and export the database table?
Could anyone teach me what is the syntax and how could do the export and import in the Forms?
Thanks a loT~

try: imp help=yes
Or read the documentation online on OTN.

RELATIONAL DATABASE TABLES IN SAP BW

hi
friends please give me the information regarding the RELATIONAL DATABASE TABLES IN SAP BW?

Hi,
See the tables.
InfoObjects Table:
RSDIOBJ Directory of all InfoObjects
RSDIOBJT Texts of InfoObjects
InfoCube Tables:
RSDCUBE Directory of InfoCubes
RSDCUBET Texts on InfoCubes
DSO Tables:
RSDODSO Directory of all ODS Objects
RSDODSOT Texts of all ODS Objects
PSA Table:
RSTSODS Directory of all PSA Tables
For reports:
RSRREPDIR
Thanks & Regards,
Sathish

New JNDI name created for each drag and drop of database table into table

Hi All,
I'm using Netbeans 5.5 with Visual Web Pack with Mysql as backend. Whenever I drag and drop a database table into table component it creates new JNDI (data source) name for each table. I want to use single JNDI name for all tables. If I change the JNDI name to default name then the design disappears and shows error . Is there any option to set the JNDI name unique for all tables?
Thanks in advance.

Hi again,
Well I've tried using the MouseListener / MouseMotionListener approach but it doesn't quite seem to work, although it does get the events correctly. I think the reason is that it doesn't interact correctly with the Java DnD machinery which is something that V.V hinted at. It's something that I may need to look into if / when I have more time available.
I have to say though that I haven't had any problems with scrollbars - we're making fairly heavy use of large tables and if you drag over a table with a scroll bar and move to the top or bottom then it scrolls as you would expect and allows you to drop the data where you like. For this situation I've used pretty much the same approach as for the toy example above except that I've implemented separate source and destination TransferHandlers (the source table is read-only, and it really doesn't make sense to allow people to drag from the destination table so I've essentially split the functionality of the example handler down the middle).
I'm not actually particularly in favour of messing too much with the mechanics of DnD, more because of lack of time than anything else. Guess I'll just have to put up with this for the moment. Doesn't help that DnD is so poorly documented by Sun.
Thanks for all your help.
Bart

Program to upload csv file to internal table and insert into database table

Hi I'm writing a program where I need to upload a csv file into an internal table using gui_upload, but i also need this program to insert the data into my custom database table using the split command. Anybody have any samples to help, its urgent!

Hi,
Check this table may be it will give u an hint...
REPORT z_table_upload LINE-SIZE 255.
Data
DATA: it_dd03p TYPE TABLE OF dd03p,
      is_dd03p TYPE dd03p.
DATA: it_rdata TYPE TABLE OF text1024,
      is_rdata TYPE text1024.
DATA: it_fields TYPE TABLE OF fieldname.
DATA: it_file TYPE REF TO data,
      is_file TYPE REF TO data.
DATA: w_error TYPE text132.
Macros
DEFINE write_error.
concatenate 'Error: table'
              p_table
              &1
              &2
         into w_error
         separated by space.
condense w_error.
write: / w_error.
stop.
END-OF-DEFINITION.
Field symbols
FIELD-SYMBOLS: <table> TYPE STANDARD TABLE,
               <data> TYPE ANY,
               <fs>    TYPE ANY.
Selection screen
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
PARAMETERS: p_file TYPE localfile DEFAULT 'C:\temp\' OBLIGATORY,
            p_separ TYPE c DEFAULT ';' OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b01.
SELECTION-SCREEN: BEGIN OF BLOCK b02 WITH FRAME TITLE text-b02.
PARAMETERS: p_table TYPE tabname OBLIGATORY
                                 MEMORY ID dtb
                                 MATCHCODE OBJECT dd_dbtb_16.
SELECTION-SCREEN: END OF BLOCK b02.
SELECTION-SCREEN: BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
PARAMETERS: p_create TYPE c AS CHECKBOX.
SELECTION-SCREEN: END OF BLOCK b03,
                  SKIP.
SELECTION-SCREEN: BEGIN OF BLOCK b04 WITH FRAME TITLE text-b04.
PARAMETERS: p_nodb RADIOBUTTON GROUP g1 DEFAULT 'X'
                               USER-COMMAND rg1,
            p_save RADIOBUTTON GROUP g1,
            p_dele RADIOBUTTON GROUP g1.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_test TYPE c AS CHECKBOX,
            p_list TYPE c AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN: END OF BLOCK b04.
At selection screen
AT SELECTION-SCREEN.
IF sy-ucomm = 'RG1'.
    IF p_nodb IS INITIAL.
      p_test = 'X'.
    ENDIF.
ENDIF.
At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            field_name = 'P_FILE'
       IMPORTING
            file_name = p_file.
Start of selection
START-OF-SELECTION.
PERFORM f_table_definition USING p_table.
PERFORM f_upload_data USING p_file.
PERFORM f_prepare_table USING p_table.
PERFORM f_process_data.
IF p_nodb IS INITIAL.
    PERFORM f_modify_table.
ENDIF.
IF p_list = 'X'.
    PERFORM f_list_records.
ENDIF.
End of selection
END-OF-SELECTION.
      FORM f_table_definition                                       *
--> VALUE(IN_TABLE)                                               *
FORM f_table_definition USING value(in_table).
DATA: l_tname TYPE tabname,
        l_state TYPE ddgotstate,
        l_dd02v TYPE dd02v.
l_tname = in_table.
CALL FUNCTION 'DDIF_TABL_GET'
       EXPORTING
            name          = l_tname
       IMPORTING
            gotstate      = l_state
            dd02v_wa      = l_dd02v
       TABLES
            dd03p_tab     = it_dd03p
       EXCEPTIONS
            illegal_input = 1
            OTHERS        = 2.
IF l_state NE 'A'.
    write_error 'does not exist or is not active' space.
ENDIF.
IF l_dd02v-tabclass NE 'TRANSP' AND
     l_dd02v-tabclass NE 'CLUSTER'.
    write_error 'is type' l_dd02v-tabclass.
ENDIF.
ENDFORM.
      FORM f_prepare_table                                          *
--> VALUE(IN_TABLE)                                               *
FORM f_prepare_table USING value(in_table).
DATA: l_tname TYPE tabname,
        lt_ftab TYPE lvc_t_fcat.
l_tname = in_table.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
       EXPORTING
            i_structure_name = l_tname
       CHANGING
            ct_fieldcat      = lt_ftab
       EXCEPTIONS
            OTHERS           = 1.
IF sy-subrc NE 0.
    WRITE: / 'Error while building field catalog'.
    STOP.
ENDIF.
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = lt_ftab
    IMPORTING
      ep_table        = it_file.
ASSIGN it_file->* TO <table>.
CREATE DATA is_file LIKE LINE OF <table>.
ASSIGN is_file->* TO <data>.
ENDFORM.
      FORM f_upload_data                                            *
--> VALUE(IN_FILE)                                                *
FORM f_upload_data USING value(in_file).
DATA: l_file    TYPE string,
        l_ltext   TYPE string.
DATA: l_lengt   TYPE i,
        l_field   TYPE fieldname.
DATA: l_missk   TYPE c.
l_file = in_file.
l_lengt = strlen( in_file ).
FORMAT INTENSIFIED ON.
WRITE: / 'Reading file', in_file(l_lengt).
CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
            filename = l_file
            filetype = 'ASC'
       TABLES
            data_tab = it_rdata
       EXCEPTIONS
            OTHERS   = 1.
IF sy-subrc <> 0.
    WRITE: /3 'Error uploading', l_file.
    STOP.
ENDIF.
File not empty
DESCRIBE TABLE it_rdata LINES sy-tmaxl.
IF sy-tmaxl = 0.
    WRITE: /3 'File', l_file, 'is empty'.
    STOP.
ELSE.
    WRITE: '-', sy-tmaxl, 'rows read'.
ENDIF.
File header on first row
READ TABLE it_rdata INTO is_rdata INDEX 1.
l_ltext = is_rdata.
WHILE l_ltext CS p_separ.
    SPLIT l_ltext AT p_separ INTO l_field l_ltext.
    APPEND l_field TO it_fields.
ENDWHILE.
IF sy-subrc = 0.
    l_field = l_ltext.
    APPEND l_field TO it_fields.
ENDIF.
Check all key fields are present
SKIP.
FORMAT RESET.
FORMAT COLOR COL_HEADING.
WRITE: /3 'Key fields'.
FORMAT RESET.
LOOP AT it_dd03p INTO is_dd03p WHERE NOT keyflag IS initial.
    WRITE: /3 is_dd03p-fieldname.
    READ TABLE it_fields WITH KEY table_line = is_dd03p-fieldname
                         TRANSPORTING NO FIELDS.
    IF sy-subrc = 0.
      FORMAT COLOR COL_POSITIVE.
      WRITE: 'ok'.
      FORMAT RESET.
    ELSEIF is_dd03p-datatype NE 'CLNT'.
      FORMAT COLOR COL_NEGATIVE.
      WRITE: 'error'.
      FORMAT RESET.
      l_missk = 'X'.
    ENDIF.
ENDLOOP.
Log other fields
SKIP.
FORMAT COLOR COL_HEADING.
WRITE: /3 'Other fields'.
FORMAT RESET.
LOOP AT it_dd03p INTO is_dd03p WHERE keyflag IS initial.
    WRITE: /3 is_dd03p-fieldname.
    READ TABLE it_fields WITH KEY table_line = is_dd03p-fieldname
                         TRANSPORTING NO FIELDS.
    IF sy-subrc = 0.
      WRITE: 'X'.
    ENDIF.
ENDLOOP.
Missing key field
IF l_missk = 'X'.
    SKIP.
    WRITE: /3 'Missing key fields - no further processing'.
    STOP.
ENDIF.
ENDFORM.
      FORM f_process_data                                           *
FORM f_process_data.
DATA: l_ltext TYPE string,
        l_stext TYPE text40,
        l_field TYPE fieldname,
        l_datat TYPE c.
LOOP AT it_rdata INTO is_rdata FROM 2.
    l_ltext = is_rdata.
    LOOP AT it_fields INTO l_field.
      ASSIGN COMPONENT l_field OF STRUCTURE <data> TO <fs>.
      IF sy-subrc = 0.
      Field value comes from file, determine conversion
        DESCRIBE FIELD <fs> TYPE l_datat.
        CASE l_datat.
          WHEN 'N'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            WRITE l_stext TO <fs> RIGHT-JUSTIFIED.
            OVERLAY <fs> WITH '0000000000000000'.           "max 16
          WHEN 'P'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            TRANSLATE l_stext USING ',.'.
            <fs> = l_stext.
          WHEN 'F'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            TRANSLATE l_stext USING ',.'.
            <fs> = l_stext.
          WHEN 'D'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            TRANSLATE l_stext USING '/.-.'.
            CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
                 EXPORTING
                      date_external = l_stext
                 IMPORTING
                      date_internal = <fs>
                 EXCEPTIONS
                      OTHERS        = 1.
          WHEN 'T'.
            CALL FUNCTION 'CONVERT_TIME_INPUT'
                 EXPORTING
                      input = l_stext
                 IMPORTING
                      output = <fs>
                 EXCEPTIONS
                      OTHERS = 1.
          WHEN OTHERS.
            SPLIT l_ltext AT p_separ INTO <fs> l_ltext.
        ENDCASE.
      ELSE.
        SHIFT l_ltext UP TO p_separ.
        SHIFT l_ltext.
      ENDIF.
    ENDLOOP.
    IF NOT <data> IS INITIAL.
      LOOP AT it_dd03p INTO is_dd03p WHERE datatype = 'CLNT'.
      This field is mandant
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-mandt.
      ENDLOOP.
      IF p_create = 'X'.
        IF is_dd03p-rollname = 'ERDAT'.
          ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                        TO <fs>.
          <fs> = sy-datum.
        ENDIF.
        IF is_dd03p-rollname = 'ERZET'.
          ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                        TO <fs>.
          <fs> = sy-uzeit.
        ENDIF.
        IF is_dd03p-rollname = 'ERNAM'.
          ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                        TO <fs>.
          <fs> = sy-uname.
        ENDIF.
      ENDIF.
      IF is_dd03p-rollname = 'AEDAT'.
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-datum.
      ENDIF.
      IF is_dd03p-rollname = 'AETIM'.
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-uzeit.
      ENDIF.
      IF is_dd03p-rollname = 'AENAM'.
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-uname.
      ENDIF.
      APPEND <data> TO <table>.
    ENDIF.
ENDLOOP.
ENDFORM.
      FORM f_modify_table                                           *
FORM f_modify_table.
SKIP.
IF p_save = 'X'.
    MODIFY (p_table) FROM TABLE <table>.
ELSEIF p_dele = 'X'.
    DELETE (p_table) FROM TABLE <table>.
ELSE.
    EXIT.
ENDIF.
IF sy-subrc EQ 0.
    FORMAT COLOR COL_POSITIVE.
    IF p_save = 'X'.
      WRITE: /3 'Modify table OK'.
    ELSE.
      WRITE: /3 'Delete table OK'.
    ENDIF.
    FORMAT RESET.
    IF p_test IS INITIAL.
      COMMIT WORK.
    ELSE.
      ROLLBACK WORK.
      WRITE: '- test only, no update'.
    ENDIF.
ELSE.
    FORMAT COLOR COL_NEGATIVE.
    WRITE: /3 'Error while modifying table'.
    FORMAT RESET.
ENDIF.
ENDFORM.
      FORM f_list_records                                           *
FORM f_list_records.
DATA: l_tleng TYPE i,
        l_lasti TYPE i,
        l_offst TYPE i.
Output width
l_tleng = 1.
LOOP AT it_dd03p INTO is_dd03p.
    l_tleng = l_tleng + is_dd03p-outputlen.
    IF l_tleng LT sy-linsz.
      l_lasti = sy-tabix.
      l_tleng = l_tleng + 1.
    ELSE.
      l_tleng = l_tleng - is_dd03p-outputlen.
      EXIT.
    ENDIF.
ENDLOOP.
Output header
SKIP.
FORMAT COLOR COL_HEADING.
WRITE: /3 'Contents'.
FORMAT RESET.
ULINE AT /3(l_tleng).
Output records
LOOP AT <table> ASSIGNING <data>.
    LOOP AT it_dd03p INTO is_dd03p FROM 1 TO l_lasti.
      IF is_dd03p-position = 1.
        WRITE: /3 sy-vline.
        l_offst = 3.
      ENDIF.
      ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data> TO <fs>.
      l_offst = l_offst + 1.
      IF is_dd03p-decimals LE 2.
        WRITE: AT l_offst <fs>.
      ELSE.
        WRITE: AT l_offst <fs> DECIMALS 3.
      ENDIF.
      l_offst = l_offst + is_dd03p-outputlen.
      WRITE: AT l_offst sy-vline.
    ENDLOOP.
ENDLOOP.
Ouptut end
ULINE AT /3(l_tleng).
ENDFORM.
Regards,
Joy.

Download and upload ABAP database table to presentation server and R/3

Hi experts,
I want to download ABAP database table (Ztable) to presentation server and again want to upload this to another R/3 server but i dont want to use any transport request. is there any possible sollution for this.
Thanks in advance

Hi,
Look at this code hope this will help you to solve your problem
REPORT y_test_559.
Program for
1. Downloading Data of any DB table to a tab delimited ASCII file
2. Checking if a tab delimited ASCII file has the structure of a
   DB table and showing its contents
3. Uploading a tab delimited ASCII file to a DB table with the same
   structure
4. Showing the data of any DB table
======================================================================
======================================================================
DATA DECLARATIONS
======================================================================
TYPES : data_object TYPE REF TO data.
DATA : itab TYPE REF TO data .
TYPE-POOLS : slis .
DATA : it_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv
        WITH HEADER LINE .
DATA : it_fieldcatalog TYPE lvc_t_fcat .
DATA : wa_fieldcatalog TYPE lvc_s_fcat .
DATA : i_structure_name LIKE dd02l-tabname .
DATA : i_callback_program LIKE sy-repid .
DATA : dyn_line TYPE data_object .
FIELD-SYMBOLS : <fs_itab> TYPE STANDARD TABLE .
DATA : table_name_is_valid TYPE c .
DATA : dynamic_it_instantiated TYPE c .
CONSTANTS buttonselected TYPE c VALUE 'X' .
======================================================================
SELECTION SCREEN DEFAULT
======================================================================
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_tabl.
PARAMETERS : tabl_nam LIKE rsrd1-tbma_val
             MATCHCODE OBJECT dd_dbtb_16 OBLIGATORY .
                               "Search for Database Tables is dd_dbtb_16
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_file.
PARAMETERS : file_nam LIKE rlgrap-filename .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_down.
PARAMETERS : p_downld RADIOBUTTON GROUP grp1
             USER-COMMAND m_ucomm .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_chkf.
PARAMETERS : p_chkfil RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_upld.
PARAMETERS : p_upload RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_show.
PARAMETERS : p_show_t RADIOBUTTON GROUP grp1 ."show table data
SELECTION-SCREEN END OF LINE.
======================================================================
AT SELECTION SCREEN OUTPUT
======================================================================
AT SELECTION-SCREEN OUTPUT .
PERFORM check_filename .
======================================================================
AT SELECTION SCREEN ON VALUE REQUEST FOR FILENAME
======================================================================
AT SELECTION-SCREEN ON VALUE-REQUEST FOR file_nam .
PERFORM f4_for_filename .
======================================================================
Initialization .
======================================================================
INITIALIZATION .
t_tabl = 'Table Name' .
t_file = 'File Name' .
t_down = 'Download Table' .
t_chkf = 'Check File to Upload' .
t_upld = 'Upload File' .
t_show = 'Show Table Contents' .
======================================================================
START OF SELECTION
======================================================================
START-OF-SELECTION .
PERFORM check_table_name_is_valid .
======================================================================
END OF SELECTION
======================================================================
END-OF-SELECTION .
IF table_name_is_valid EQ ' ' .
    MESSAGE i398(00) WITH 'INVALID TABLE NAME' .
ELSE .
    PERFORM instantiate_dynamic_internal_t .
    CHECK dynamic_it_instantiated = 'X' .
    CASE buttonselected .
      WHEN p_downld .
        PERFORM select_and_download .
      WHEN p_chkfil .
        PERFORM check_file_to_upload .
      WHEN p_upload .
        PERFORM upload_from_file .
      WHEN p_show_t .
        PERFORM show_contents .
    ENDCASE .
ENDIF .
*&      Form CHECK_TABLE_NAME_IS_VALID
      text
--> p1        text
<-- p2        text
FORM check_table_name_is_valid.
DATA l_count TYPE i .
TABLES dd02l .
CLEAR table_name_is_valid .
SELECT COUNT(*) INTO l_count FROM tadir
WHERE pgmid = 'R3TR'
AND    object = 'TABL'
AND    obj_name = tabl_nam .
IF l_count EQ 1 .
    CLEAR dd02l .
    SELECT SINGLE * FROM dd02l WHERE tabname = tabl_nam .
    IF sy-subrc EQ 0.
      IF dd02l-tabclass = 'TRANSP' .
        table_name_is_valid = 'X' .
      ENDIF .
    ENDIF.
ENDIF .
ENDFORM.                    " CHECK_TABLE_NAME_IS_VALID
*&      Form SELECT_AND_DOWNLOAD
      text
--> p1        text
<-- p2        text
FORM select_and_download.
CLEAR : <fs_itab> .
SELECT * FROM (tabl_nam)
INTO CORRESPONDING FIELDS OF TABLE <fs_itab>   .
PERFORM check_filename.
CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      filename                = file_nam
      filetype                = 'DAT'
    TABLES
      data_tab                = <fs_itab>
    EXCEPTIONS
      file_open_error         = 1
      file_write_error        = 2
      invalid_filesize        = 3
      invalid_type            = 4
      no_batch                = 5
      unknown_error           = 6
      invalid_table_width     = 7
      gui_refuse_filetransfer = 8
      customer_error          = 9
      OTHERS                  = 10.
IF sy-subrc EQ 0.
    MESSAGE i398(00) WITH 'Table' tabl_nam
                          'successfully downloaded to '
                          file_nam .
ENDIF.
ENDFORM.                    " SELECT_AND_DOWNLOAD
*&      Form UPLOAD_FROM_FILE
      text
--> p1        text
<-- p2        text
FORM upload_from_file.
DATA : ans TYPE c .
DATA : lines_of_itab TYPE i .
DATA : l_subrc TYPE i .
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    EXPORTING
      textline1 = 'Are you sure you wish to upload'
      textline2 = 'data from ASCII File to DB table '
      titel     = 'Confirmation of Data Upload'
    IMPORTING
      answer    = ans.
IF ans = 'J' .
    PERFORM check_filename.
    CLEAR l_subrc .
    CALL FUNCTION 'WS_UPLOAD'
      EXPORTING
        filename                = file_nam
        filetype                = 'DAT'
      TABLES
        data_tab                = <fs_itab>
      EXCEPTIONS
        conversion_error        = 1
        file_open_error         = 2
        file_read_error         = 3
        invalid_type            = 4
        no_batch                = 5
        unknown_error           = 6
        invalid_table_width     = 7
        gui_refuse_filetransfer = 8
        customer_error          = 9
        OTHERS                  = 10.
    l_subrc = l_subrc + sy-subrc .
    IF sy-subrc EQ 0.
      DESCRIBE TABLE <fs_itab> LINES lines_of_itab .
      IF lines_of_itab GT 0 .
        DELETE (tabl_nam) FROM TABLE <fs_itab> .
        COMMIT WORK .
        INSERT (tabl_nam) FROM TABLE <fs_itab> .
        l_subrc = l_subrc + sy-subrc .
      ENDIF .
    ENDIF.
    IF l_subrc EQ 0 .
      MESSAGE i398(00) WITH lines_of_itab
                           'Record(s) inserted in table'
                            tabl_nam .
    ELSE .
      MESSAGE i398(00) WITH
                      'Errors occurred No Records inserted in table'
                       tabl_nam .
    ENDIF .
ENDIF .
ENDFORM.                    " UPLOAD_FROM_FILE
*&      Form F4_FOR_FILENAME
      text
--> p1        text
<-- p2        text
FORM f4_for_filename.
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\'
      mask             = ',.,..'
      mode             = '0'
    IMPORTING
      filename         = file_nam
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error = 4
      OTHERS           = 5.
ENDFORM.                    " F4_FOR_FILENAME
*&      Form CHECK_FILENAME
      text
--> p1        text
<-- p2        text
FORM check_filename.
IF file_nam IS INITIAL
AND NOT ( tabl_nam IS INITIAL )
AND p_show_t NE buttonselected.
    CONCATENATE 'C:\' tabl_nam '.TXT' INTO file_nam.
ENDIF .
ENDFORM.                    " CHECK_FILENAME
*&      Form INSTANTIATE_DYNAMIC_INTERNAL_T
      text
--> p1        text
<-- p2        text
FORM instantiate_dynamic_internal_t.
CLEAR dynamic_it_instantiated .
-----> Step 1 - Finding Field Names and ALV GRID Fieldcatalog
i_structure_name = tabl_nam .
CLEAR it_fieldcat[] .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = i_structure_name
    CHANGING
      ct_fieldcat            = it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
IF sy-subrc EQ 0.
-----> Step 2 - Creating Field Catalog of the Object
                                              cl_alv_table_create
    LOOP AT it_fieldcat .
      CLEAR wa_fieldcatalog .
      MOVE-CORRESPONDING it_fieldcat TO wa_fieldcatalog .
      wa_fieldcatalog-ref_field = it_fieldcat-fieldname .
      wa_fieldcatalog-ref_table = tabl_nam .
      APPEND wa_fieldcatalog TO it_fieldcatalog .
    ENDLOOP .
-----> Step 3 - Creating Internal Table Dynamicaly
    CALL METHOD cl_alv_table_create=>create_dynamic_table
      EXPORTING
        it_fieldcatalog = it_fieldcatalog
      IMPORTING
        ep_table        = itab.
    ASSIGN itab->* TO <fs_itab> .
    dynamic_it_instantiated = 'X' .
ENDIF.
ENDFORM.                    " INSTANTIATE_DYNAMIC_INTERNAL_T
*&      Form SHOW_CONTENTS
      text
--> p1        text
<-- p2        text
FORM show_contents.
CLEAR : <fs_itab> .
SELECT * FROM (tabl_nam)
INTO CORRESPONDING FIELDS OF TABLE <fs_itab>   .
i_callback_program = sy-repid .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = i_callback_program
      it_fieldcat        = it_fieldcat[]
    TABLES
      t_outtab           = <fs_itab>
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    " SHOW_CONTENTS
*&      Form CHECK_FILE_TO_UPLOAD
      text
--> p1        text
<-- p2        text
FORM check_file_to_upload.
PERFORM check_filename.
CLEAR l_subrc .
CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename                = file_nam
      filetype                = 'DAT'
    TABLES
      data_tab                = <fs_itab>
    EXCEPTIONS
      conversion_error        = 1
      file_open_error         = 2
      file_read_error         = 3
      invalid_type            = 4
      no_batch                = 5
      unknown_error           = 6
      invalid_table_width     = 7
      gui_refuse_filetransfer = 8
      customer_error          = 9
      OTHERS                  = 10.
l_subrc = l_subrc + SY-SUBRC .
IF sy-subrc EQ 0.
    i_callback_program = sy-repid .
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        i_callback_program = i_callback_program
        it_fieldcat        = it_fieldcat[]
      TABLES
        t_outtab           = <fs_itab>
      EXCEPTIONS
        program_error      = 1
        OTHERS             = 2.
ENDIF .
ENDFORM.                    " CHECK_FILE_TO_UPLOAD
Thanks,
Pramod

Help creating a relational database table

Hi,
I need help creating a relational database data. I am suppose to enter the following information in the workstation:
CREATE TABLE patient (
MedRecNo number (4),
LName varchar2 (15),
FNAME varchar2 (15),
MInitial varchar2 (1),
BDate date,
Sex varchar2 (1));
3. Query (using the syntax below) the database to ensure that you have created the table:
SELECT TABLE_NAME FROM USER_TABLES;
I entered the information in the workstation but I have no idea what to do with this command-------->SELECT TABLE_NAME FROM USER_TABLES;
Pleaaaassssse help me.
Thanks in advance,
Tanya

Thanks for responding so quickly. I'm sorry if I said
it wrong, this is completely new to me. This is what
I am suppose to do:
Directions:
1. Login to the DVOLUSER (select this from the
Connection Identifier drop down window) Oracle
instance using the username and password provided to
you.
2. Use the following SQL syntax to create the patient
table in the database:
CREATE TABLE patient (
MedRecNo number (4),
LName varchar2 (15),
FNAME varchar2 (15),
MInitial varchar2 (1),
BDate date,
Sex varchar2 (1));
3. Query (using the syntax below) the database to
ensure that you have created the table:
SELECT TABLE_NAME FROM USER_TABLES;ETA: I also do not know how to enter this into the data base. I mean I enter the following information into the database and then I click execute but once I do that, what do I do with the SELECT TABLE_NAME FROM USER_TABLES;

Load XML data from UNIX Server Directly into Relational Database Tables

Is there a way I can load data from an XML File into Oracle Tables , without having the Input XML file in some Oracle Server Directory. My XML File resides on UNIX Application server. And I need to directly load the data into Database tables. Without loading them into the Database Directory.
Also I am looking for a solution that would not load my Database much and effect other running processes. Can it be done using SQL Loader ?
Oracle Database Version is : Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 - 64bit Production

Thanks for your reply ,
Please would you quote an Example about : 'Load the file into that table using SQL*Loader' (From UNIX Server) Or instance of some existing thread that relates to my situation.
The Size of the File would be about 3 GB. For a similar requirement one of my peers Code which used XMLTABLE and XPATH Approach consumed a lot of resources while running and caused the other Database Applications to slow down. Thus those guys have come up with an approach to :
        Parse XML using a C Code using some STRING Functions => For a CSV or Fixed width .dat file and then use SQL Loader to just load the file into Tables.
        This approach is efficient in terms of Resources and Time(Takes 5 mins). But I am not confident about parsing XML based on String based C Functions.
         Please comment about this approach . Also if possible Suggest the best efficient way of doing this.

Mapping XML data to relational database tables

I'm writing an application that has two parts: the client part generates XML documents and sends them across the network to a server part, which parses the XML, maps the XML to various RDBMS tables and stores the data in the RDBMS.
I've got everything working using SAX, but now any change I make to the XML schema and/or the RDBMS table structures in the future will mean some serious code changes.
Has anyone worked with this scenario and developed a better method of handling this mapping? All the previous efforts in this area seem to be RDBMS to XML, which is of no use to me.
If you had to do this this, how would you approach it? I'm using XML for ease of reading, as the client has code to allow for documents to be written to the disk if no connection to the server is available, and the server does the same if no database connection is available.
Thanks in advance ...
cheers,
mark

OK, to reply to my own posting for future reference, I've found an open source project called Osage at http://sourceforge.net that does what I need. I'm looking at it now and can't say if it's everything I want, but it seems likely to fit the bil.
cheers,
mark

Change the data in fieldcat and update the database table in alv oops

Hi,
my requirement is i have displayed a fieldcat in change mode and when i change the data and click on save it has to be updated the database table..
this has to be done using alv oops...

Hi,
This code will reflect all the changes into the internal table that is being displayed.
* to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
Now after this code is executed the internal table is modified as per the changes done in alv output.
Now you can use this internal table to update the database table.
Hope this helps you.
Regards,
Tarun

How to synchronize between OID and the Custom Database Tables ?

Hi All,
Our ADF Application is using Oracle SIngle-Sign On (OAS 10.1.4). Meanwhile we also maintain
users login within Database table to store application menu accessibility data.
i.e:
Firstly user Login using Oracle SSO, after logged in, application will query the above mentioned
database tables to determine which menu he/she has access.
We have develope a security module to input users login into the database, so I need to synchronize
the data into OID, so that that particular user can use Oracle SSO.
How is the mechanism to do that ?
Thank you very much,
xtanto

Hi,
OID providesa Java and PLSQL API. I agree with Chris that from what you describe, the PLSQL API seems to be the best approach to take as it allows you to use database triggers for the synchronization
Frank

Date format mismatch between OIM 11gR2 GTC and backend custom database table (Oracle 11g R2)

Hi,
We have an OIM 11g R2 version running that has a GTC installed and configured. The GTC is used to provision to a 11g R2 database table via the DBAT 9.1.0.5.0 connector. Now the requirement is that the timestamp be recorded in the backend DB when a new record is provisioned to it using the GTC.
During the setup of the GTC, the target system date format is asked for should be one from among the values allowed by the following predefined formats:
Customizing Formats (The Java&trade; Tutorials &gt; Internationalization &gt; Formatting)
Now our problem is that the target DB to which the provisioning is supposed to happen, isn't under our control and hence we cannot change its schema, and the date format in that table is of the type "01-JAN-10 12.00.00.000000000 AM", which translates to "dd-MMM-yy hh.mm.ss.fffffffff (AM/PM)".
On the other hand, as you can see from the above link, none of the values that OIM allows to be passed through the GTC allow for that format to be used.
Does anyone know of any way in which we can intercept the GTC provisioning request and convert the date on the fly, after OIM has passed on the control, but before the values are written into the DB table, or does anyone know of any workarounds to this issue?
I'd really appreciate it if someone could provide a solution to this.
Thanks.

[http://docs.oracle.com/cd/E27559_01/dev.1112/e27150/refsched.htm#CIHBFCJG]
See 26.6 for the plugin.zip directory structure, and as I said, I used the same method on a previous task in the same OIM instance.
Edited by: 939908 on Jan 31, 2013 8:04 AM

MM related database table list

What database tables are used by an ABAPer for the second phase of MM workflow called "Source List : ME41"?

Hi
Check
EORD table
Vishal...

Transport and Program Relation Database table

Similar Messages

Maybe you are looking for