Block sensitive table via Table browser

Hello
We have implemented HCM on out existing R/3 and now we have all the sensitive data in the production.
In my production system there are some users who has SE16(data browser) and thet can dump those sensitive data from the production system.
I want to restrict those sensitive data for non HR users.Can any one guide me that how to do.I have some small idea this can be done trough authorization object.(S_TABU_DIS)
Pls provide me step by step procedure guide for this.I am totally new to SAP Basis and pls provide me the procedure doc if u have.
Thanks
Roshantha

am not a basis guy but creating an authroization object and restricint it via profile would do the trick. pls check it....u can restrict at table level only for the users and not at data level

Similar Messages

Block sensitive tables with SE16

Hi Guys,
I encounter a question recently regarding authorization of SE16 . Could someone kindly help me regarding blocking certain sensitive tables when using SE16. Perhaps provide a link or something.
Its just blocking , say a group of users with a role that has SE16 , accessing certain sensitive tables.
Any guide or advise is very much appreciated .
Thanks guys.

Hi Jurg
Thanks for the tip.
I scan through some of the forum , and manage to find something like this:
"You can check table TDDAT to find the authorization groups related to the Z-tables. Note that if a table is not maintained here it is automatically assigned group &NC&.
if you want to allow a user access to only some Z-tables then the procedure would be -
1. create a new auth group for S_TABU_DIS via SE54.
2. modify table TDDAT to associate the required Z-tables to the Z-auth group.
3. create a new role with SE16 and the object S_TABU_DIS and only add the new Z-auth group in field DICBERCLS.
4. assign the role to the concerned user. "
But what about , say i found auth group , example "SS" , which by default belongs to a table A & B , and a whole lot of other tables. Table A which I allow users to view , but table B I don't. What is the usual practise to separate for this scenario. I was thinking of changing auth group for B , to example ZZ , so that the users are
not authorize to view them. But does this have any impact on anywhere else?
Any help or tips will be greatly appreciated. Thanks.

A partition tab is needed in the schema-table browser and it's missing

After a first sight with the product, I couldn't find a partition tab in the schema-table browser.
For those having partitions it is absolutely essential.

It's easy to add,
create a file that has the following content
<?xml version="1.0" encoding="UTF-8"?>
<items>
<item type="sharedQuery" id="PartSubPartkeys">
<query minversion="9">
     <sql>
     <![CDATA[ select 'PARTITION KEYS' PARTITION_LEVEL,substr(sys_connect_by_path(column_name,','),2) "PARTITION KEYS"
               from (select column_name, column_position
               from all_part_key_columns
               where owner = :OBJECT_OWNER
               and name = :OBJECT_NAME
               and object_type='TABLE' )
               start with column_position=1
               connect by column_position=prior column_position+1
               union all
               select 'SUBPARTITION KEYS' ,substr(sys_connect_by_path(column_name,','),2)
               from (select column_name, column_position
               from all_subpart_key_columns
               where owner = :OBJECT_OWNER
               and name = :OBJECT_NAME
               and object_type='TABLE' )
               start with column_position=1
               connect by column_position=prior column_position+1]]></sql>
     </query>
     </item>
<item type="sharedQuery" id="PartSubPartkeysFI">
<query minversion="9">
     <sql>
     <![CDATA[ select 'PARTITION KEYS' PARTITION_LEVEL,substr(sys_connect_by_path(column_name,','),2) "PARTITION KEYS"
               from (select column_name, column_position
               from all_part_key_columns
               where owner = :OBJECT_OWNER
               and name = (select table_name
                         from all_indexes
                         where index_name=:OBJECT_NAME
                         and owner=:OBJECT_OWNER)
               and object_type='TABLE' )
               start with column_position=1
               connect by column_position=prior column_position+1
               union all
               select 'SUBPARTITION KEYS' ,substr(sys_connect_by_path(column_name,','),2)
               from (select column_name, column_position
               from all_subpart_key_columns
               where owner = :OBJECT_OWNER
               and name =(select table_name
                         from all_indexes
                         where index_name=:OBJECT_NAME
                         and owner=:OBJECT_OWNER)
               and object_type='TABLE' )
               start with column_position=1
               connect by column_position=prior column_position+1]]></sql>
     </query>
     </item>
<item type="sharedQuery" id="Partitions">
<query minversion="9">
     <sql>
     <![CDATA[ select partition_name, num_rows,AVG_ROW_LEN, blocks ,LAST_ANALYZED from all_tab_partitions where table_owner = :OBJECT_OWNER and table_name = :OBJECT_NAME order by partition_position]]></sql>
     </query>
     </item>
<item type="sharedQuery" id="SubPartitions">
<query minversion="9">
     <sql>
     <![CDATA[ select subpartition_name, partition_name, num_rows,AVG_ROW_LEN, blocks ,LAST_ANALYZED from all_tab_subpartitions where table_owner = :OBJECT_OWNER and table_name = :OBJECT_NAME order by partition_name,subpartition_position]]></sql>
     </query>
     </item>
<item type="editor" node="TableNode" >
<title><![CDATA[Partitions/SubPartitions]]></title>
<query id="PartSubPartkeys" />
<subquery>
<title>Partitions/SubPartition</title>
<query>
<sql><![CDATA[select partition_position, partition_name "Partition/Subpartition", tablespace_name,high_value,compression,num_rows,AVG_ROW_LEN, blocks ,LAST_ANALYZED from all_tab_partitions where table_owner = :OBJECT_OWNER and table_name = :OBJECT_NAME and 'PARTITION KEYS'=:PARTITION_LEVEL
         union all
         select subpartition_position, partition_name||'/'||subpartition_name, tablespace_name,high_value,compression,num_rows,AVG_ROW_LEN, blocks ,LAST_ANALYZED from all_tab_subpartitions where table_owner = :OBJECT_OWNER and table_name = :OBJECT_NAME and 'SUBPARTITION KEYS' =:PARTITION_LEVEL
         order by 2]]></sql>
</query>
</subquery>
</item>
<item type="editor" node="MViewNode" >
<title><![CDATA[Partitions/SubPartitions]]></title>
<query id="PartSubPartkeys" />
<subquery>
<title>Partitions/SubPArtition</title>
<query>
<sql><![CDATA[select partition_position, partition_name "Partition/Subpartition", tablespace_name,
         high_value,compression,num_rows,AVG_ROW_LEN, blocks ,LAST_ANALYZED
         from all_tab_partitions where table_owner = :OBJECT_OWNER and table_name = :OBJECT_NAME and 'PARTITION KEYS'=:PARTITION_LEVEL
         union all
         select subpartition_position, partition_name||'/'||subpartition_name, tablespace_name,high_value,
         compression,num_rows,AVG_ROW_LEN, blocks ,LAST_ANALYZED
         from all_tab_subpartitions where table_owner = :OBJECT_OWNER and table_name = :OBJECT_NAME and 'SUBPARTITION KEYS' =:PARTITION_LEVEL
         order by 2]]></sql>
</query>
</subquery>
</item>
<item type="editor" node="IndexNode" >
<title><![CDATA[Partitions/SubPartitions]]></title>
<query id="PartSubPartkeysFI" />
<subquery>
<title>Partitions/SubPArtition</title>
<query>
<sql><![CDATA[select partition_position, partition_name "Partition/Subpartition", tablespace_name,high_value,compression,
         Leaf_Blocks, Distinct_Keys, clustering_factor ,LAST_ANALYZED
         from all_ind_partitions where index_owner = :OBJECT_OWNER and index_name = :OBJECT_NAME
         and 'PARTITION KEYS'=:PARTITION_LEVEL
         union all
         select subpartition_position, partition_name||'/'||subpartition_name, tablespace_name,high_value,compression,
         Leaf_Blocks, Distinct_Keys, clustering_factor ,LAST_ANALYZED
         from all_ind_subpartitions
         where index_owner = :OBJECT_OWNER
         and index_name = :OBJECT_NAME
         and 'SUBPARTITION KEYS'=:PARTITION_LEVEL
         order by 2]]></sql>
</query>
</subquery>
</item>
<item type="editor" node="TableNode">
<title><![CDATA[Unabridged SQL]]></title>
<query>
<sql><![CDATA[select :OBJECT_OWNER OOWNER, :OBJECT_NAME ONAME, 'TABLE' OTYPE from dual union all select owner,index_name,'INDEX' from all_indexes where table_owner= :OBJECT_OWNER and table_name=:OBJECT_NAME ]]></sql>
</query>
<subquery type="code">
<query>
<sql><![CDATA[select dbms_metadata.get_ddl(:OTYPE,:ONAME, :OOWNER) "SQL Statements" from dual]]></sql>
</query>
</subquery>
</item>
<item type="editor" node="TableNode">
<title><![CDATA[Partition Columns Statistics]]></title>
<query id="Partitions" />
<subquery>
<query>
     <sql>
     <![CDATA[ select COLUMN_NAME, NUM_DISTINCT, LOW_VALUE, HIGH_VALUE, DENSITY, NUM_NULLS
         from all_part_col_statistics where owner = :OBJECT_OWNER
         and table_name = :OBJECT_NAME
         and partition_name= :PARTITION_NAME
         order by column_name]]></sql>
</query>
</subquery>
</item>
<item type="editor" node="TableNode">
<title><![CDATA[SUBPartition Columns Statistics]]></title>
<query id="SubPartitions" />
<subquery>
<query>
     <sql>
     <![CDATA[ select COLUMN_NAME, NUM_DISTINCT, LOW_VALUE, HIGH_VALUE, DENSITY, NUM_NULLS from all_subpart_col_statistics where owner = :OBJECT_OWNER and table_name = :OBJECT_NAME and subpartition_name=:SUBPARTITION_NAME order by column_name]]></sql>
     </query>
</subquery>
</item>
<item type="editor" node="MViewNode">
<title><![CDATA[Partition Columns Statistics]]></title>
<query id="Partitions" />
<subquery>
<query>
     <sql>
     <![CDATA[ select COLUMN_NAME, NUM_DISTINCT, LOW_VALUE, HIGH_VALUE, DENSITY, NUM_NULLS
         from all_part_col_statistics where owner = :OBJECT_OWNER
         and table_name = :OBJECT_NAME
         and partition_name= :PARTITION_NAME
         order by column_name]]></sql>
</query>
</subquery>
</item>
<item type="editor" node="MViewNode">
<title><![CDATA[SUBPartition Columns Statistics]]></title>
<query id="SubPartitions" />
<subquery>
<query>
     <sql>
     <![CDATA[ select COLUMN_NAME, NUM_DISTINCT, LOW_VALUE, HIGH_VALUE, DENSITY, NUM_NULLS from all_subpart_col_statistics where owner = :OBJECT_OWNER and table_name = :OBJECT_NAME and subpartition_name=:SUBPARTITION_NAME order by column_name]]></sql>
     </query>
</subquery>
</item>
<item type="editor" node="SchemaFolder" minversion="10.1">
<title><![CDATA[Sessions]]></title>
<query>
<sql><![CDATA[select sid,serial#,program,last_call_et,machine, status, sql_hash_value shv,sql_child_number scn
         from v$session
         order by 1]]></sql>
</query>
<subquery>
<query>
<sql><![CDATA[select * from table(dbms_xplan.display_cursor(:SHV,:SCN))]]></sql>
</query>
</subquery>
</item>
</items>
and add the following line to your ide.conf file (in jdev/bin directory in the sqldev install dir)
AddVMOption -Draptor.user.editors=fullpathofthefile(dir and name)
and restart, you'll get several additional tabs to the ones displayed for tables.
enjoy

Table Browser does not 'fetch' any tables back from Database.

Post Author: StevenL
CA Forum: Semantic Layer and Data Connectivity
When I click on 'table browser', after waiting overnight (not me, physically..), the list of modules are shown but with no tables in. If I click on a module's contents it says 'Fetching tables' for a split secind before returning nothing. If I do a refresh the modules list goes blank. I have been able to do this until very recently, my Connection, user Account (Supervisor-Designer), BO version (6.5.1, ORACLE Database 10g) etc have all not changed. The problem we have is because there is more than 20 000 tables to return when 'table browser' is clicked and this takes overnight. Other users here with same resp. can all come in next morning to a full list to choose from - except me. We're all confused. Can anyone offer suggestions to what this could be?u201D A trace file setup via sqlnet.ora revealed nothing.
Has anybody got any suggestions here or methods of finding out more information?
Many thanks in Advance..
StevenL

Post Author: StevenL
CA Forum: Semantic Layer and Data Connectivity
Well well. The good old remove and re-install has worked! Can't understand it. After simply getting the product re-installed, I opened up Designer, imported 2 differing Universes that used the LIVE Finance Database that was causing me the problems, clicked on table browser, waited approximately 60 seconds, hit escape, all tables were visible, I dragged and dropped no problem. I didnt need to reconfigure and create new BO Database Connections, replace the BoMain Key, in fact, anything. Totally mystery yet it works so Im happy!" Many thanks for all who read, helped or assisted.
Steven

The tables are not listed in table browser (Designer) MS SQL 2005 SP3

Database: SQL 2005 SP3, using ODBC Connection
Database name: Test_7.6_Reporting
Business Objects XI3.1 SP2
When I open the table browser, I see all my databases listed.
If I expand these I see three folders - Information_Schema, dbo and Sys, it doesn't show anything after i expand dbo.
I need to know how to get these tables to show.
Please advice. Thanks!

Hi BK,
This seems odd. All I can think of is that there may be a security issue. Maybe it doesn't register you as dbo. Check into the possible security differences between you and a user who can see those tables under dbo.
Thanks!
Bill

How to filter tables in table browser in designer

Hello Experts,
I had a direct connection to SAP ECC database and I want to create an universe (with designer) on top of a database table. Problem is that ECC have a lot of tables and is very time consuming the selection of tables in table browser, question is:
is there a way to filter tables or to directly select a table provided I know the table name I want to work with?
note: I want to use aggregate data from logistic information tables because there is no BW system in this landscape
thank you
Edited by: Garduño Azael on Jul 29, 2011 6:12 PM

Hi,
You should use the external strategy function of the designer (see chapter OPTIMIZING UNIVERSES -> USING EXTERNAL STRATEGIES TO CUSTOMIZE UNIVERSE CREATION)
http://help.sap.com/businessobject/product_guides/boexir31/en/xi31_designer_en.pdf
you don't need to create a new external strategy. Designer comes with a set of "standard" external strategies.
For filtering tables use "table strategy".
In order to make it to work for your environment, check the file *.STG and see which db user is used in the delivered strategy, then, add this user to your RDBMS and set the permissions and tables you wish to select to in designer
For example in my BO installation the user is named 'USER', so I added it to my DB2 RDBMS of sapecc and added the required tables
hope it helps

Query in expdp with case-sensitive table and columnname

Hi,
I've got a problem with exporting some specific rows of a table.
The problem is a case-sensitive table and column name. I've tried this in a parfile:
dumpfile=dpumpdir1:test.dmp
logfile=dpumpdir1:test.log
tables="Data"
query="Data":'"where "DataID" = 11"'
but it ended like this:
ORA-31693: Table data object "Data" failed to load/unload and is being skipped due to error:
ORA-06502: PL/SQL: numeric or value error
ORA-31605: the following was returned from LpxXSLSetTextVar in routine kuxslSetParam:
LPX-314: an internal failure occurred
Edited by: [Logik on 18.04.2013 01:18

I've tried to make a function with this. I think you used some Oracle 11 parameters. reusefile for example.
However I've managed to compile the function without error:
CREATE OR REPLACE FUNCTION EXPDP RETURN NUMBER IS
h1 number;
v_job_state       varchar2(4000);
BEGIN
h1 := dbms_datapump.open(operation=>'EXPORT',job_mode=>'TABLE',job_name=>'HARRY10');
dbms_datapump.add_file(h1,'example1.dmp','DPUMPDIR1');
dbms_datapump.add_file(h1,'example1.log','DPUMPDIR1',filetype => dbms_datapump.ku$_file_type_log_file);
dbms_datapump.metadata_filter(handle => h1,name => 'NAME_EXPR',value => 'IN (''Data'')',object_type => 'TABLE');
dbms_datapump.data_filter(handle => h1,name => 'SUBQUERY',value => 'WHERE "DataID" = 1');
dbms_datapump.start_job(h1);
DBMS_DATAPUMP.WAIT_FOR_JOB (h1,v_job_state);
DBMS_OUTPUT.PUT_LINE(v_job_state);
RETURN NULL;
END EXPDP;But when I execute I get:
ORA-31626: job does not exist
ORA-06512: at "SYS.DBMS_SYS_ERROR", line 79
ORA-06512: at "SYS.DBMS_DATAPUMP", line 938
ORA-06512: at "SYS.DBMS_DATAPUMP", line 4592
ORA-06512: at EXPDP", line 5
ORA-06512: at line 5
Probably not my day :(
By the way... how can I Format the text as a script?
Edited by: [Logik on 19.04.2013 11:01

2.1 Cannot remove filter on table column on data tab of table browser

In table browser, click on the data tab. Click a column name, click a data value and then double click to filter by the data value. Data filters as expected. However, when you click on the filter icon which appears to the right of the column name, it presents you with a list which contains "Remove('<DATA VALUE>')". If you double click "Remove('<DATA VALUE>')", all rows are removed from the data tab.
Refreshing does not make the data appear. Clicking on the filter icon again, the text is changed to "Remove('Remove')". Double clicking that also has no effect on the data grid.
Work around is to right click on a column name and select "Remove All Filters".

Ahhh, so sorry.
This has been logged as similar issue
Bug 9192156 - rc2: double-click the list to remove filter will get invalid number
-Raghu

Blocking a table from getting populated

Hi All,
Anybody knows about How to block a table from getting populated at the time of executing a Transaction?. If i execute MM01 transaction I want to block the table MARC only from the population. Is it possible? If possible, please let me know.
Regards

hi ,
One way is that functional guy change the configuration through which we can restrict entry in any table.
Secondly, find an enchancemet through which u can delete particular entry before populating the table.

SQLDeveloper 1.5.4 Table browsing performance issue

Hi all,
I had read of previous posts regarding SQLDeveloper 1.5.3 table browsing performance issues. I downloaded and installed version 1.5.4 and it appears the problem has gotten worse!
It takes ages to display rows of this particular table (the structure is shown below). It takes much longer to view it in Single Record format. Then attempting to Export the data is another frustrating exercise. By the way, TOAD does not seem to have this problem so I guess it is a SQLDeveloper bug.
Can someone help with any workarounds?
Thanks
Chiedu
Here is the table structure:
create table EMAIL_SETUP
APPL_ID VARCHAR2(10) not null,
EML_ID VARCHAR2(10) not null,
EML_DESC VARCHAR2(80) not null,
PRIORITY_NO_DM NUMBER(1) default 3 not null
constraint CC_EMAIL_SETUP_4 check (
PRIORITY_NO_DM in (1,2,3,4,5)),
DTLS_YN VARCHAR2(1) default '0' not null
constraint CC_EMAIL_SETUP_5 check (
DTLS_YN in ('0','1')),
ATT_YN VARCHAR2(1) default '0' not null
constraint CC_EMAIL_SETUP_6 check (
ATT_YN in ('0','1')),
MSG_FMT VARCHAR2(5) default 'TEXT' not null
constraint CC_EMAIL_SETUP_7 check (
MSG_FMT in ('TEXT','HTML')),
MSG_TMPLT VARCHAR2(4000) not null,
MSG_MIME_TYPE VARCHAR2(500) not null,
PARAM_NO NUMBER(2) default 0 not null
constraint CC_EMAIL_SETUP_10 check (
PARAM_NO between 0 and 99),
IN_USE_YN VARCHAR2(1) not null
constraint CC_EMAIL_SETUP_11 check (
IN_USE_YN in ('0','1')),
DFLT_USE_YN VARCHAR2(1) default '0' not null
constraint CC_EMAIL_SETUP_12 check (
DFLT_USE_YN in ('0','1')),
TAB_NM VARCHAR2(30) null ,
FROM_ADDR VARCHAR2(80) null ,
RPLY_ADDR VARCHAR2(80) null ,
MSG_SBJ VARCHAR2(100) null ,
MSG_HDR VARCHAR2(2000) null ,
MSG_FTR VARCHAR2(2000) null ,
ATT_TYPE_DM VARCHAR2(4) null
constraint CC_EMAIL_SETUP_19 check (
ATT_TYPE_DM is null or (ATT_TYPE_DM in ('RAW','TEXT'))),
ATT_INLINE_YN VARCHAR2(1) null
constraint CC_EMAIL_SETUP_20 check (
ATT_INLINE_YN is null or (ATT_INLINE_YN in ('0','1'))),
ATT_MIME_TYPE VARCHAR2(500) null ,
constraint PK_EMAIL_SETUP primary key (EML_ID)
)

Check Tools | Preferences | Database | Advanced Parameters and post the value you have there.
Try setting it to a small number and report if you see any improvement.
-Raghu

BOE 3.0 Designer does not show the table browser

Hi,
I am using BOE 3.0. I was able to view the table browser a few days back. After I changed the license key, the designer stopped showing me the table browser. I am logging into Designer with Administrator previleges. Although the Administrator has "Full control", but when I click on "Insert->Tables" in designer it does not do anything, not even display the table browser. I have created Oracle client connection and tested it. The server is responding, but the insert-> tables does not work.
Any help would be appreciated.
Thanks,
SUS.

1. When you invoke table browser using Insert->Tables do you see progress bar below the designer (task Bar)
Sus: Yes I can see the progress bar. It exists for a few seconds and then disapperas,but does not do anything.
2. Can you try invoking Table browser by double clicking on Universe designer pane.
Sus: Yes I tried, but nothing happened. I mean I could not see the table browser
3. Can you check if Designer can connect to your DB.
Sus: Yes the designer is able to connect to the DB. I tested the connection and got the message "Server is responding". In fact when I am using the quick design wizard I can able to see the tables from my DB.
4. How many tables do you have in DB, IF there are lot many table then it might table time to load those tables
Sus: Currently my DB contains almost 40(20 tables and 20 views). I don't think it is concern. I worked with DB which contains more than this and that time I did not face this issue.
5. Can you strategies tab in parameters (File->Parameters). What is the strategy for Tables. Try using built-in strategy.
Sus: Yes it is built-in for tables. It is the default one and I did not change it.
Is there a limit set to insert tables in designer?
-Sus

Field BLOCKED in table CRMD_ISUEXTA4 and CRMV_ISU_INDEX_H

Hello, and thanks for your time.
Someone could me explain the meaning of BLOCKED in tables CRMD_ISUEXTA4 and CRMV_ISU_INDEX_H, and if there any transaction in CRM to change this???
Thanks in advance.
Best Regards

Hello Abhishek,
Your code looks absolutely fine. I think you are missing just one line of code.
In this section of code,
CLEAR: ls_input_fields.
ls_input_fields-ref_guid = ls_header_guid.
ls_input_fields-objectname = 'ORDERADM_H'.
ls_input_fields-field_names = lt_field.
INSERT ls_input_fields INTO TABLE lt_input_fields.
Replace this code with:
CLEAR: ls_input_fields.
ls_input_fields-ref_guid = ls_header_guid.
ls_input_fields-objectname = 'ORDERADM_H'.
ls_input_fields-ref_handle = 1.
ls_input_fields-ref_kind = 'A'
ls_input_fields-field_names = lt_field.
INSERT ls_input_fields INTO TABLE lt_input_fields.
Please let me know if this code still doesnt work for you.
Thanks
Vishal

How to block a table?

Hi Gurus,
I want to know how to block a table that is created by customer i.e starting with Z or Y.
Thks in Advance

Hi,
I think inactivating the table from SE11 will solve your problem.
Regards,
sam

Report RSWWERRE not finish and Blocking EBAN Table.

Hello,
We have a problem with the report RSWWERRE, suddenly the report starts blocking the table EBAN. This report normally last 30 seconds and now it takes long and it can´t finish blocking Table EBAN and all the system.
Thank you and best regards.

Hi Alberto,
You may want to take a look at SAP Note 943919 and 885179.
Regards
Melih

QM Block not triggered via EDI orders

Hello All,
Please help me with this problem "QM block not triggered via EDI Orders".
Sales Orders will be created using IDOC. When the sales orders was displayed using VA02, goto >> items >> schedule lines, there's no QM status violated being displayed in the delivery block column.
Kindly help me what logic will I applied regarding this matter.
FM used was IDOC_INPUT_ORDERS.
I need your comments/suggestions ASAP.
Thanks in advance.
Carina

hai,
Just check this it may help tou.
Program Name : YX30_UPLOAD_QUALITY_INFO
Quality Info Record for I30 System *
Original Transport Number : I30K903055 *
SYS id: SYS_30_1502_03_41_Upload Quality Info Records *
TDS id: TD_30_1502_03_41_Upload Quality Info Records *
UT ID: UT_30_1502_03_41_Upload Quality Info Records *
======================================================================
Change History *
Date | Change No | Name | Description *
yyyy/mm/dd | AAAYYYYMMDD | xxxxxxxxxxxx | *
REPORT YX30_UPLOAD_QUALITY_INFO MESSAGE-ID yx30_conversions
no standard page heading line-size 255.
include yx30_upload_quality_info_top. "Include for Variable Declaration & Selection Screen
include yx30_upload_quality_info_data. "Include for File read & Authority Check
*& At Selection Screen Output *
AT SELECTION-SCREEN OUTPUT. "PBO
PERFORM fill_parameters.
*& Start Of Selection Event *
start-of-selection.
Perform Authority_check. "Subroutine for authority check
Perform prepare_file. "Subroutine for preparing file
perform file_read. "Subroutine for File read
perform update_qi01. "Subroutine for Uploading data
perform write_error_log1. "Subroutine for writing error log
*& Form write_error_log
text
--> p1 text
<-- p2 text
*& Include YX30_UPLOAD_QUALITY_INFO_TOP
Type Declaration
Types: Begin of type_qtyinf,
matnr type matnr, "Material No
lieferant type char10, "Vendor
werk type werks_d, "Plant
frei_dat type char10, "Frei_Dat
stsma type char8, "Stsma
anwso_01 type char1, "ANWSO(01)
anwso_02 type char1, "ANWSO(02)
anwso_03 type char1, "ANWSO(03)
end of type_qtyinf.
Internal Table Declaration
Data: itab_qtyinf type standard table of type_qtyinf. "Internal table for QTYINF.
Work Area Declaration
Data: wa_qtyinf type type_qtyinf. "Work Area for QTYINF.
Variable Declaration
Data: v_file_qtyinf type string, "Source File Name
v1 type string,
v2 type string,
v3 type string,
v_file_return type string,
v_lin TYPE n.
*Selection Screen Declaration
selection-screen *
SELECTION-SCREEN BEGIN OF BLOCK blk1
WITH FRAME TITLE text-s01.
PARAMETER:
p_sysid(3) TYPE c OBLIGATORY , "Source System
p_bukrs(4) TYPE c OBLIGATORY , "Source CompCode
p_samshr type char30 lower case obligatory default '/sap_upload/' , "Samba Share Drive
p_object TYPE CHAR10 OBLIGATORY default 'MAT' . "Migration Data Object
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN SKIP 3.
PARAMETER:
cb_pfill TYPE c AS CHECKBOX DEFAULT 'X' . "Prefill values?
SELECTION-SCREEN COMMENT /1(79) text-s1a.
SELECTION-SCREEN BEGIN OF BLOCK blk3
WITH FRAME TITLE text-s03.
PARAMETER:
pa_filn1(500) TYPE c LOWER CASE
VISIBLE LENGTH 50 , "Filename AppServer
pa_dlimt TYPE c DEFAULT ';' . "Field Delimter
SELECTION-SCREEN END OF BLOCK blk3.
include bdcrecx1. "Include for the subroutine
*& Include YX30_UPLOAD_QUALITY_INFO_DATA
*& Form file_read
Subroutine for reading the source file into internal table
--> p1 text
<-- p2 text
FORM file_read .
DATA:
single_line TYPE string .
*-- read file, split lines into fields and put data into table
OPEN DATASET v_file_qtyinf FOR INPUT IN TEXT MODE ENCODING NON-UNICODE. "Opening the files
IF sy-subrc EQ 0.
DO.
READ DATASET v_file_qtyinf INTO single_line. "Reading the content of file into line
IF sy-subrc = 0.
IF sy-index > 1. "skip header-line
SPLIT "Split the content of line into work area
single_line
AT ';'
INTO
wa_qtyinf-matnr "Material No
wa_qtyinf-lieferant "Vendor
wa_qtyinf-werk "Plant
wa_qtyinf-frei_dat "Frei Date
wa_qtyinf-stsma "STSMA
wa_qtyinf-anwso_01 "ANWSO_01
wa_qtyinf-anwso_02 "ANWSO_02
wa_qtyinf-anwso_03. "ANWSO_03
APPEND wa_qtyinf TO itab_qtyinf. "Appending Work Area to internal table
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET v_file_qtyinf. "Closing the files
ELSE.
MESSAGE e015 .
ENDIF.
DESCRIBE TABLE itab_qtyinf LINES v_lin.
IF v_lin LT 0.
MESSAGE e016 .
ENDIF.
ENDFORM. " file_read
*& Form fill_parameters
Subroutine for getting the file name
FORM fill_parameters .
IF cb_pfill = 'X'.
Preparing QTYINF File
CONCATENATE p_sysid '_forward' INTO v3.
CONCATENATE p_sysid '_QTYINF_' p_bukrs '.CSV' INTO v2.
CONCATENATE p_samshr v3 '/' p_object '/' v2 INTO pa_filn1.
ENDIF.
ENDFORM. " fill_parameters
*& Form Authority_check
Authority Check
--> p1 text
<-- p2 text
FORM authority_check .
Authority Check For the Migration
AUTHORITY-CHECK OBJECT 'YX30_MIGR'
ID 'SYSTEM' FIELD p_sysid
ID 'BUKRS' FIELD p_bukrs
ID 'YX30_DMOBJ' FIELD p_object
ID 'ACTVT' FIELD '16'.
IF sy-subrc <> 0.
MESSAGE e010 WITH p_sysid p_bukrs p_object.
ENDIF.
ENDFORM. " Authority_check
*& Form prepare_file
text
--> p1 text
<-- p2 text
FORM prepare_file .
CONCATENATE p_sysid '_forward' INTO v3.
CONCATENATE p_sysid '_QTYINF_' p_bukrs '.CSV' INTO v2.
CONCATENATE p_samshr v3 '/' p_object '/' v2 INTO v_file_qtyinf.
CLEAR v3.
CLEAR v2.
Prepare Return File
CONCATENATE p_sysid '_forward' INTO v3.
CONCATENATE p_sysid '_RETRUN_LOG_' p_bukrs '.CSV' INTO v2.
CONCATENATE '/sap_upload/' v3 '/' 'MAT' '/' v2 INTO v_file_return.
ENDFORM. " prepare_file
*& Form update_qi01
text
FORM update_qi01.
PERFORM open_group. "Opening a session
CLEAR wa_qtyinf.
LOOP AT itab_qtyinf INTO wa_qtyinf.
PERFORM bdc_dynpro USING 'SAPMQBAA' '0100'. "Subroutine for mapping data
PERFORM bdc_field USING 'BDC_CURSOR'
'QINF-MATNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'QINF-MATNR'
wa_qtyinf-matnr. "Mapping the material
PERFORM bdc_field USING 'QINF-LIEFERANT'
wa_qtyinf-lieferant. "Mapping the vendor
PERFORM bdc_field USING 'QINF-WERK'
wa_qtyinf-werk. "Mapping the plant
PERFORM bdc_dynpro USING 'SAPMQBAA' '0101'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=STAN'.
PERFORM bdc_field USING 'QINF-FREI_DAT'
wa_qtyinf-frei_dat.
PERFORM bdc_field USING 'BDC_CURSOR'
'QINF-STSMA'.
PERFORM bdc_field USING 'QINF-STSMA'
wa_qtyinf-stsma. "Mapping the status
PERFORM bdc_dynpro USING 'SAPLBSVA' '0201'.
PERFORM bdc_field USING 'BDC_CURSOR'
'J_STMAINT-ANWSO(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=OKAY'.
IF wa_qtyinf-anwso_01 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(01)'
wa_qtyinf-anwso_01. "Mapping the anwso(01)
ELSEIF wa_qtyinf-anwso_02 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(02)'
wa_qtyinf-anwso_02. "Mapping the anwso(02)
ELSEIF wa_qtyinf-anwso_03 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(03)'
wa_qtyinf-anwso_03. "Mapping the anwso(03)
ELSEIF wa_qtyinf-anwso_01 = 'X' AND wa_qtyinf-anwso_02 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(01)'
wa_qtyinf-anwso_01.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(02)'
wa_qtyinf-anwso_02.
ELSEIF wa_qtyinf-anwso_01 = 'X' AND wa_qtyinf-anwso_03 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(01)'
wa_qtyinf-anwso_01.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(03)'
wa_qtyinf-anwso_03.
ELSEIF wa_qtyinf-anwso_02 = 'X' AND wa_qtyinf-anwso_03 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(02)'
wa_qtyinf-anwso_02.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(03)'
wa_qtyinf-anwso_03.
ELSEIF wa_qtyinf-anwso_01 = 'X' AND wa_qtyinf-anwso_02 = 'X' AND wa_qtyinf-anwso_03 = 'X'.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(01)'
wa_qtyinf-anwso_01.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(02)'
wa_qtyinf-anwso_02.
PERFORM bdc_field USING 'J_STMAINT-ANWSO(03)'
wa_qtyinf-anwso_03.
ENDIF.
PERFORM bdc_dynpro USING 'SAPMQBAA' '0101'.
PERFORM bdc_field USING 'BDC_CURSOR'
'QINF-FREI_DAT'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=QMBU'.
PERFORM bdc_field USING 'QINF-FREI_DAT'
wa_qtyinf-frei_dat.
PERFORM bdc_field USING 'QINF-STSMA'
wa_qtyinf-stsma.
PERFORM bdc_transaction USING 'QI01'.
ENDLOOP.
PERFORM close_group. "Closing the session
ENDFORM. "update_qi01
*& Form write_error_log
text
--> p1 text
<-- p2 text
FORM write_error_log1 .
DATA:
single_line TYPE string,
v_msg TYPE string,
v_msg1 TYPE string.
*-- read file, split lines into fields and put data into table
OPEN DATASET v_file_return FOR INPUT IN TEXT MODE ENCODING NON-UNICODE. "Opening the files
IF sy-subrc EQ 0.
CONCATENATE text-020 v_lin INTO v_msg SEPARATED BY space.
CONCATENATE text-021 v_lin INTO v_msg1 SEPARATED BY space.
TRANSFER: v_msg TO v_file_return.
TRANSFER: v_msg1 TO v_file_return.
WRITE:/ v_msg.
WRITE:/ v_msg1.
ENDIF.
ENDFORM. " write_error_log
with regards.
sowjanya.b.

Block sensitive table via Table browser

Similar Messages

Maybe you are looking for