Urgent....HR benefit data...employee and dependent

Here is what i need ...i need to pull data from it167 for a particular benefit plan and also pull data of their dependents who are enrolled .....In pa20 if you pull data for any employee and look in to the dependent tab...i need to pull data of dependents who are currently enrolled....
I put this query in ERP HCM forums too....they helped me out ....i tried using the tech info on that field...its give me the structure RPBENRPT01 ....i dont know how to get data from thaqt structure....i know that dependent data is derived from it0021....and i need to know how to know that a family member is a enrolled dependent .....
plz help its urgent

I was able to find a FM HR_BEN_GET_POSS_DEPENDENTS
can some one give me a sample code ...how to use this FM

Similar Messages

How to make a Infocube as data source and upload data? urgent

Hi all,
I have 2 same InfoCubes, and I want to make the test InfoCube(ZCO_1T) as data source and upload data to another Cube(ZCO_1), Now I has Generated Export DataSource on ZCO_1T and create a update rule between ZCO_1T and ZCO_1. what will I do the next step? Thanks.

hi delve,
once u generate datasource from test cube it acts as an data source for further upload.
now u choose update target3.x in additional functions in context menu of the test cube.
u will get an infopackage pop up with data target to the cube ZCO_1,processing to datatarget only.
selection criterion can bve selected from the first tab.
under schedule tab you can start extraction.
reward points if helpful.

Data Services and Data Quality Recommnded Install process

Hi Experts,
I have a few questions. We have some groups that have requested Data Quality be implemented along with another request for Data Services to be implemented. I've seen the requested for Data Services to be installed on the desktop, but from what I've read, it appears to be best to install this on the server side to allow for more of a central benefit to all.
My questions are:
1. Can Data Services (Server) install X.1 3.2 be installed on the same server as X.I 3.1 SP3 Enterprise?
2. Is the Data Services (CLIENT) Version dependent on if the Data Services (Server) install is completed? Basically can the u201CData Services Designeru201D be used without the Server install?
3. Do we require a new License key for this or can I use the Enterprise Server license key?
4. At this time we are not using this to move data in and out of SAP, just using this to read data that is coming from SAP.
From what I read, DATA Services comes with the SAP BusinessObjects Data Integrator or SAP BusinessObjects Data Quality Management solutions. Right now it's seems we dont have a need for the SAP Connection supplement, but definetly something we would implement in the near future. What would be the recommended architecture? A new Server with tomcat and cmc (seperate from our current BOBJ Enterprise servers)? or can DataServices be installed on the same?
Thank you,
Teresa

Hi Teresa.
Hope you are referring to BOE 3.1 (Business Objects Enterprise) and BODS (Business Objects Data Services) installation on the same server machine.
Am not an expert on BODS installation.
But this is my observation :
We had recently tested on a test machine BOE BOXI 3.1 SP3 (full build) installation before upgrade of our BOE system.
We also have BODS in our environment.
Which we also wanted to check whether we could keep on the same server.
So on this test machine, which already has BOXI 3.1 SP3 build, when i installed BODS server installation,
what we observed was that,
all the menus of BOE went away
and only menus of BODS were seen.
May be BODS installation overwrites/ or uninstalls BOE, if it already exists ?
I dont know. Though i could not fine any documentation, saying that we cannot have BODS and BOE on the same server machine. But this is what we observed.
So we have kept BODS and BOE on 2 different machines running independently and we do not see any problem.
Cheers
indu

ADF mobile Data sync and sql lite usage

Hi,
We are working on ADF mobile POC.(Jdev version 11.1.2.3.0)
Following Oracle mobile developer guide we generated "Webservice data control" which creates process(object) method to work with Webservice. We created the data-controls and used them in our Java code and are able to get the Webservice response also.
However we want to implement the offline mode feature and for this we are not able to get any document reference for implementation.
With offline mode support is it the application's responsibility to store the data locally using SQL Lite and do the data sync (using Web Service) OR will the framework would do the data sync automatically. Can someone please provide the implementation hint on how to do the Offline mode support in the mobile application using ADF.
Thanks
Pavan

Hi,
With offline mode support is it the application's responsibility to store the data locally using SQL Lite and do the data sync (using Web Service) OR will the framework would do the data sync automatically.
This is all you. In this version of ADF Mobile there is no automatic data synchronization between local data and the server side. The sample that come with the ADF Mobile extension have a SQLLIte example as well, which is in the HR application. Look for the "DBConnectionFactory" file
package application;
import java.sql.Connection;
import java.sql.SQLException;
import oracle.adfmf.framework.api.AdfmfJavaUtilities;
public class DBConnectionFactory {
    public DBConnectionFactory() {
        super();
    protected static Connection conn = null;
    public static Connection getConnection() throws Exception {
        if (conn == null) {
            try {
                // create a database connection
                String Dir = AdfmfJavaUtilities.getDirectoryPathRoot(AdfmfJavaUtilities.ApplicationDirectory);
                String connStr = "jdbc:sqlite:" + Dir + "/HR.db";
                conn = new SQLite.JDBCDataSource(connStr).getConnection();
            } catch (SQLException e) {
                // if the error message is "out of memory",
                // it probably means no database file is found
                System.err.println(e.getMessage());
        return conn;
}The LifeCycleListenerImpl class in the same demo shows how to use this SQL Lite connection
package application;
import java.io.BufferedReader;
import java.io.InputStream;
import java.io.InputStreamReader;
import java.sql.Connection;
import java.sql.ResultSet;
import java.sql.SQLException;
import java.sql.Statement;
import java.util.ArrayList;
import java.util.List;
import javax.el.ValueExpression;
import oracle.adfmf.application.LifeCycleListener;
import oracle.adfmf.framework.api.AdfmfJavaUtilities;
public class LifeCycleListenerImpl implements LifeCycleListener {
    public LifeCycleListenerImpl() {
     * The start method will be called at the start of the application. Only the
     * Application Lifecycle Event listener will be called on start up.
    public void start() {
        System.out.println("!!!!!!!!!!!!!! App Start !!!!!!!!!!!!!!");
        //InitDB();
        try {
            Statement stat = DBConnectionFactory.getConnection().createStatement();
            ResultSet rs = stat.executeQuery("SELECT * FROM EMPLOYEES;");
        } catch (SQLException e) {
            // if the error message is "out of memory",
            // it probably means no database file is found
            System.err.println(e.getMessage());
            System.out.println("Database does not exist, creating it");
            InitDB();
        } catch (Exception e) {
            System.err.println(e.getMessage());
        System.out.println("!!!!!!!!!!!!!! Done App Start !!!!!!!!!!!!!!");
     * The stop method will be called at the termination of the application. Only
     * the Application Lifecycle Event listener will be called on start up.
     * NOTE: Depending on how the application is being shutdown, this method may
     * or may not be called. Features should save off their state in the deactivate
     * handler.
    public void stop() {
        // Add code here...
     * The activate method will be called when the feature is activated. The
     * Application Lifecycle Event listener will be called on application
     * being started and resumed.
    public void activate() {
        // Add code here...
     * The deactivate method will be called when the feature is deactivated. The
     * Application Lifecycle Event listener will be called on application
     * being hibernated.
    public void deactivate() {
        // Add code here...
    private void InitDB() {
        try {
            System.out.println("!!!!!!!!!!!!!!InitDB Start!!!!!!!!!!!!!!");
            ClassLoader cl = Thread.currentThread().getContextClassLoader();
            InputStream is = cl.getResourceAsStream(".adf/META-INF/hr.sql");
            if (is == null) {
                System.err.println("###### Could not look up : /META-INF/hr.sql");
                return;
            BufferedReader bReader = new BufferedReader(new InputStreamReader(is));
            List stmts = new ArrayList();
            String strstmt = "";
            String ln = bReader.readLine();
            while (ln != null) {
                if (ln.startsWith("REM") || ln.startsWith("COMMIT")) {
                    ln = bReader.readLine();
                    continue;
                strstmt = strstmt + ln;
                if (strstmt.endsWith(";")) {
                    System.out.println(strstmt);
                    stmts.add(strstmt);
                    strstmt = "";
                    ln = bReader.readLine();
                    continue;
                ln = bReader.readLine();
            DBConnectionFactory.getConnection().setAutoCommit(false);
            for (int i = 0; i < stmts.size(); i++) {
                Statement pStmt = DBConnectionFactory.getConnection().createStatement();
                pStmt.executeUpdate((String)stmts.get(i));
            DBConnectionFactory.getConnection().commit();
            System.out.println("!!!!!!!!!!!!!!InitDB Done!!!!!!!!!!!!!!");
        } catch (Exception e) {
            e.printStackTrace();
}Hope this is what you were looking for
Frank

Hi All, difference btwen data selection and person selection period in ldb

Hi All, difference btwen data selection and person selection period in ldb -pnp
If possible provide with an example .Its Urgent pls.

Hi,
Difference:--
Data Selection Period
The data selection period enables you to specify the period in which employee data records are read. Only records which overlap with the specified period by at least one day are selected. To define an interval, enter the start date in the left column and the end date in the right column
Person Selection Period
When you enter a person selection period, the system selects only those employees who are members of the enterprise on at least one day in the specified period. These are persons with a valid Organizational Assignment (0001) record. Entries in the standard selection options fields limit the personnel numbers that are selected. You can specify an interval by entering the start and end dates in the left and right columns respectively.
Selection criteria in PNP are just used to determine the pernrs which meet them. For these pernrs then all wanted data is selected. This data then is not checked against this criterias.
An Example:
Pernr 4711 has benn assigned to costcenter 10 from 01.01.2004 until 31.12.2004. On 01.01.2005 costcenter changes to 20.
If you now select all employees with costcenter 10 and list their costcenters, you will get both costcenters 10 and 20.
Most reports which use PNP have to sets of date-ranges:
- Person selection period that controls selection of pernr.
- Other period that controls selection of data.
If you set person selection period in above example to 01.01.2004 and other period to 01.01.2005 and select costcenter 10 you will in fact get employee 4711 with costcenter 20 shown.
Same effect with org-unit or any other selection criteria.
Regards
Vasu

Data Migration and Reconcile

Hi All,
What all Elements need to be considered for Data Migration and how do we reconcile the historic data?
Regards
Raghavender K

Hi
For project foundation you will need to migrate the following -
projects and tasks
For project costing you will need to migrate the following -
Projects expenditures and CDL's. Usually companies are migrating historic costs in a summarized way. Consider an expenditure for total cost per project, task, expenditure organization and type. You may consider summarizing by period, and maybe summarizing by employee. Actually the level of data summarization depends on the reporting needs of the historic data from the new system.
For project billing you will need to migrate -
Agreements and funding allocations to projects.
Revenue and invoices amounts. Here also you may consider allocating the accumulated amounts or keeping each invoice / revenue as a separate transaction.
If you have budgets and forecasts, those should be converted as well.
Dina

BW Reports: Way to find the data origin and describe the formulas?

Hi!
I need to create a document describing the data origins and the calculations in the reports that are in use.
Reports are standard BW reports for HR Personnel Administration.
Is there any feasible way to find and describe that from which fields in R/3 is the data coming from? I know the DataSources 0HR_PA_0 and 0HR_PA_1 are the ones used, but is there a way to drill further?
E.g.
How would you descibe, how does the query "Average Headcount (4-quarter) calculate the number of employees?
I've been told that the answer "BW reports uses Standard BW extractors/update/transfer rules etc. to download the data from R/3 and standard BW keyfigures and formulas etc. in queries to calculate the results" is not enough.
The answer should be more detailed with additional info about locations of the data in R3?
SAP documentation gives describtions for each report, as for example the report "Average Headcount (4-quarter)", formula: Average 4-quarters of Previous Year = Sum of quarter values (previous year) / 4
Is there a way to describe this more in detail?
All the documents and postings I've read does not give too much hope for this. Generally the answer has been that this mission is more or less impossible.
I hope you figure out what I'm trying to find here.
-Mikko-

Place archive_reports.sms in %systemroot%\ccm\inventory\temp\ for both 64-bit and 32-bit computers.
There are two situations where you can use this depending on the type of client:
1. To keep inventory reports on a client (that is not an MP), create the following file:
%systemroot%\ccm\inventory\temp\archive_reports.sms
2. To keep inventory reports on a MP (that is also a client), create the following file:
<x>:\sms_ccm\inventory\temp\archive_reports.sms
The XML file will be saved in the inventory\temp folder.
More information on the above here: http://blogs.technet.com/b/configurationmgr/archive/2012/09/17/controlling-configuration-manager-2012-using-hidden-files.aspx

How to Load Text Data whish is depended on Location --Compounding

Hi,
Employee is Compounded on Location
JOB is an attribute of an Employee
Job Description (Text) is Location Dependent...
Ex: Job- ADMIN in One location is describes as Administrator and in another location is describes as Supervisior...
I want to see both Administrator and Supervisior in the report in the respective location
How can i acheve this
Thanks

Hi,
Location and Employee will acts as a primary keys in both P and T tables. You have to Load Location and Employee and job in ur data.
Location Employee Job
India ABC Admin
US ABC Supervisor
In the above example the Location and Employee will be the primary keys. Depending on those same keys the data will gets overwirited.
Khaja

Dreamweaver CC data source and ser

Hello,
I am doing a follow up to the question asked a year ago here: Insert Image using a Data Source
I understand there is a deprecated server behaviors extension which i have downloaded and was able to get databases and bindings onto Dreamweaver cc but under the insert images path for inserting dynamic images there is no data sources button. I do not know how to hand code which is my problem..
I have seen this work for mac users which i found on a Webb-Assist tutorial (which i can offer pictures if requested) but have seen allot discussions where this is not working for users with windows?
After hours of searching i still have not found an answer to how i can get the data source button to appear for Dreamweaver cc on a windows 8 operating system.
Is there a nice friendly and simple answer out there?
P.S.
I am just starting with MySQL and PHP and have no prior experience therefore inserting code by hand is not an option at this point.
Thanks
Erik

Your best bet is going to be installing DWCS6 as part of your CC subscription and using that until you understand how to code it yourself in CC. It doesn't look like any of the old database stuff that was removed is going to come back officially, unless it's added by third party extensions. I could be wrong and maybe enough people will complain in the bug report/feature request to convince Adobe to bring it back in some form, but hope isn't going to get you back up and running.
Here's some instruction on how to get DWCS6 added to you machine as a Cloud Subscriber: Download previous versions of Adobe Creative applications
Here's the feature request/bug report form: Adobe - Feature Request/Bug Report Form
Keep in mind, the features that were removed, were removed because they were becoming outdated. PHP and mySQL are changing over time like anything else online and, depending on what your server has installed or installs in the future, some of the older methods used by the older versions of DW may simply stop working.
You may also benefit from purchasing some of the paid extensions available at DMXZone. I'm not 100% sure if they include everything you're looking for, but someone should be around that knows for sure.

Data fileds and key fields in DSO

Can any one explain what exactly difference between data fileds and keyfields in DSO or the concept of these two
And how to know which fields should be assigned to data filed or key field
with regards,
musai

Hi Musai,
Let me take an ex. Say you have 3 fields A, B & C. Let us assume 'A' is keyfield, 'B' & 'C' are Datafields.
Lets assume the PSA data is :
A             B              C
001      Musai        89.9
002      Musai        89.9
003      Pavan       75.00
So when you load the data to DSO, since all the keyfield values are unique (001,002,003), all the records will get loaded to DSO.
But If PSA data is :
A             B              C
001      Musai        89.9
001      Musai        85.7
003      Pavan       75.00
Only 2nd & 3rd rows will be loaded to DSO since 1st & 2nd row have same value for keyfield (001). So 1st row gets overwritten(or summation depending on what is the setting in Transformation rule for C considering C is Keyfigure) by 2nd when you load to DSO. 3rd row doesn't have any problem. So that will go as it is.
Also please note that we cannot use Keyfigures as keyfield.
Hope it is clear now!
Regards,
Pavan

Data usage and battery drain has skyrocketed with iOS 8.1.2 (maybe earlier)

3 weeks ago my wife got a text message on her iPhone 5 from AT&T that she had used 90% of her data for the month. 30 seconds later, she got another one saying that she had used 100%. Granted, her data plan is small, 200 MB. But, for the last two years she has used as little as 17 MB in a month and her largest prior to this latest month was 49 mb. This month she got to 380 mb before we were able to shut off her cell data. Otherwise, a second chunk of 200 MB and another $15 would have been added to the month.
We had noticed that her battery had been draining rather rapidly in standby mode with no background apps running when she didn't have access to WiFi. We have now correlated the two results, High Cell data usage, Quick battery drain and very warm phone. In case anyone is wondering about her iPhone 5 being one in the recall, it is. I took it in and had it tested. Apple says the battery is fine. It does hold a charge well. When all network communications are shut down on her phone and it is in standby mode, there is no noticeable loss of charge in 24 hours (our longest test).
Since I have a grandfathered Unlimited Data Plan with AT&T, I have been doing some testing on my iPhone 5s. Sure enough, I've seen similar results. With nearly everything turned off except Cell Data, I've seen 483 MB used in 24 hours. Of that total, 479 MB was used for Documents & Sync. I even have everything turned off in my iCloud account, Location services are turned off, no push notifications etc...
The best I can figure, this has been a problem since we installed 8.1.2 and yesterday I installed 8.1.3 resulting in no positive effect on this issue.
At this rate of data usage and no access to WiFi, my wife would have to have a 15 Gb data plan to keep from exceeding her limit. I don't think AT&T even offers one that big anymore. I might have to switch to Sprint or T-Mobile if this doesn't get resolved.
Any ideas would be greatly appreciated. Thanks in advance for your shared insights.

Hey this is Brian, bjmcmurry, under a different user ID. If I logged in as bmcmurry, original post, I was just getting a server error and couldn't get to this discussion nor post a comment anywhere.
Anyway, let me be as brief as I can. After an extensive analysis of replicating the problem on another phone to eliminate it being a hardware specific issue and that the test phone has an unlimited data plan, I was able to stop the excessive data usage and consequential battery drain. I believe I have a reasonable explanation of the problem, an iOS logic bug.
I had everything under my control clamped down on the test phone to minimize data usage. Also, I was forcing all data usage to use the cell towers. I determined that I was burning at least 11 to 13 Mb per hour doing nothing important. I literally had everything turned off except 'Settings' was allowed to use Cell data providing a avenue to log into the Apple ID.
The two phones had 2 things in common, they were using the same Apple ID and the same version of the OS. One was a iPhone 5 and the other was a 5s.
Here is a synopsis of my experience via my written evaluation of the Apple support system (Apple Rep name's have been removed):
After a couple of hours on the phone with an Apple Care Senior support Analyst, it was suggested that I go to the Apple Store to 1) get my battery replace in the iPhone 5 since it qualified for the replacement program and 2) see if the Genius could provide me with any insight in the data usage issue and battery drain.
I'm certainly glad I had multiple reasons to visit the closest Apple store, a 45 min drive. I got the battery replaced, thanks for that.
Regarding the important issue to me that brought me to the Genius Bar, excessive Cell data usage, I thought the Genius did a wonderful job listening and documenting the problem we were experiencing. Unfortunately, educating us on the use of the product or replacing our phone was not going to solve the problem. He eventually figured it out, this was not a user error or broken hardware. We surmised that the reason I was sent to him was to verify and document that there was a problem. I clearly had a problem. After writing copious notes on the issue, The Genius smartly referred me back the the AppleCare Senior Advisor. So, back to AppleCare Senior Analyst I went. She, knowing this was not a simple problem to solve i.e. beyond her level of expertise, got an Apple Software engineer involved.
My primary frustration is that this should have been escalated to software engineering right away. My trip to see the Genius was, I believe, a waste of time for both me and Apple regarding this issue. Diagnosis of this type of problem is well beyond the Genius’ knowledge and job. The Genius did a very good job doing what he could within the scope of his job. He just couldn’t solve this problem and had no one within Apple to which he had access for help.
However, that initial consult with the engineer was a bit feeble. Not only could I not talk to him/her directly, his/her focus was still working with the ‘Black Box' approach. Having Analyst ask me to do stuff like restore the Phone was more like trying to find a 'work around' than 'identifying the real problem.' Maybe restoring the phone was going to fix some corrupted data on the phone sidesteping the real problem, the handling of this condition. The engineer did listen to the fact that I had restored the test phone, the 5s, and only added the use of my Apple ID. Duh, been there!!!
Having been an previous owner of a software development company that I started in 1980 and retired in 2001, I can tell you that using the 'Black Box' method of debugging is extremely inefficient. Instead, having access to an ‘Activity Manager’ type app to identify in real time what process was blowing up the data flow would have saved me a lost afternoon at the Apple store and hours on the phone with tech support.
Ironically, I may have stumbled onto a "work around" solution short of turning off Cell Data that stopped the excessive Cell Data usage and consequential battery drain. Just prior to leaving the Apple Store, I used one of their Macs to log in my Apple ID on the id.apple.com website to ‘Manage my Apple ID’, I was forced to upgrade the security level of my password. Afterward, my cell data usage seemed to drop dramatically.
I told the AppleCare Senior Analyst that I may have stumbled onto a workaround and I suggested that I give it a couple of days of monitoring. We'd talk then and I would have results to report. She agreed.
Sure enough, my Document & Sync usage was back to normal, about 1/2 Mb per day. Am I happy that the excessive Cell Data usage has stopped? You bet! But, there was no intuitive reason that an end user would know to log in on the ID website to unknowingly solve this problem. As I use to say to my employees, that is not the ‘Macintosh Way.’ And, rebooting the the 'Microsoft Way.'
When I reported my findings to the Analyst, we both concluded that data usage was back to normal. She did report to me that the engineer did provide a laundry list of suggested activities to help solve the problem. Remarkably, they were everything that I had already done and were pretty much what the Analyst and the Genius tried to do. All reasonable tasks. But clearly, the engineer hadn't even ready the notes on the case before responding. And, none of the things suggested would have uncovered the real problem, likely a logic bug in iOS.
My advice now is to have the software engineering team rule out that there was an unresolvable state that a background process was fiercely trying to handle. The iOS does not seem to know how to intervene and prompt the user with a requirement to upgrade their password. If this does end up being the case, I would call it a logic bug, a perpetual exception that is not being handled properly.
Anyway, I hope this helps you.

What is open data set and close data set

what is open data set and close data set,
how to use the files in sap directories ?

hi,
Open Dataset is used to read or write on to application server ... other than that i am not sure that there exists any way to do the same ... here is a short description for that
FILE HANDLING IN SAP
Introduction
Files on application server are sequential files.
Files on presentation server / workstation are local files.
A sequential file is also called a dataset.
Handling of Sequential file
Three steps are involved in sequential file handling
OPEN
PROCESS
CLOSE
Here processing of file can be READING a file or WRITING on to a file.
OPEN FILE
Before data can be processed, a file needs to be opened.
After processing file is closed.
Syntax:
OPEN DATASET <file name> FOR {OUTPUT/INPUT/APPENDING}
IN {TEXT/BINARY} MODE
This statement returns SY_SUBRC as 0 for successful opening of file or 8, if unsuccessful.
OUTPUT: Opens the file for writing. If the dataset already exists, this will place the cursor at the start of the dataset, the old contents get deleted at the end of the program or when the CLOSE DATASET is encountered.
INPUT: Opens a file for READ and places the cursor at the beginning of the file.
FOR APPENDING: Opens the file for writing and places the cursor at the end of file. If the file does not exist, it is generated.
BINARY MODE: The READ or TRANSFER will be character wise. Each time n characters are READ or transferred. The next READ or TRANSFER will start from the next character position and not on the next line.
IN TEXT MODE: The READ or TRANSFER will start at the beginning of a new line each time. If for READ, the destination is shorter than the source, it gets truncated. If destination is longer, then it is padded with spaces.
Defaults: If nothing is mentioned, then defaults are FOR INPUT and in BINARY MODE.
PROCESS FILE:
Processing a file involves READing the file or Writing on to file TRANSFER.
TRANSFER Statement
Syntax:
TRANSFER <field> TO <file name>.
<Field> can also be a field string / work area / DDIC structure.
Each transfer statement writes a statement to the dataset. In binary mode, it writes the length of the field to the dataset. In text mode, it writes one line to the dataset.
If the file is not already open, TRANSFER tries to OPEN file FOR OUTPUT (IN BINARY MODE) or using the last OPEN DATASET statement for this file.
IF FILE HANDLING, TRANSFER IS THE ONLY STATEMENT WHICH DOES NOT RETURN SY-SUBRC
READ Statement
Syntax:
READ DATASET <file name> INTO <field>.
<Field> can also be a field string / work area / DDIC structure.
Each READ will get one record from the dataset. In binary mode it reads the length of the field and in text mode it reads each line.
CLOSE FILE:
The program will close all sequential files, which are open at the end of the program. However, it is a good programming practice to explicitly close all the datasets that were opened.
Syntax:
CLOSE DATASET <file name>.
SY-SUBRC will be set to 0 or 8 depending on whether the CLOSE is successful or not.
DELETE FILE:
A dataset can be deleted.
Syntax:
DELETE DATASET <file name>.
SY-SUBRC will be set to 0 or 8 depending on whether the DELETE is successful or not.
Pseudo logic for processing the sequential files:
For reading:
Open dataset for input in a particular mode.
Start DO loop.
Read dataset into a field.
If READ is not successful.
Exit the loop.
Endif.
Do relevant processing for that record.
End the do loop.
Close the dataset.
For writing:
Open dataset for output / Appending in a particular mode.
Populate the field that is to be transferred.
TRANSFER the filed to a dataset.
Close the dataset.
Regards
Anver
if hlped pls mark points

Reporting on Master Data From and To

Hello Experts,
We are trying to report on the From and To dates of a time dependent infoobject 0FUND. We have turned the infoobject on as a dataprovider but we dont see how you report on the two dates. When we try adding 0DATETO to the attributes tab we get an error saying "attribute cannot be used with time-dependent attribute". Next i tried mapping in a Z infobject but I could not get the object to populate with the Date To data. What is the trick to getting these date fields in a query?
Thanks,
TMS

Hi,
Create Z objects for both dates. Create a Z object for master data objects "Fund".
Add these two Z objects as attributes in master data Z object.
Create as infoset with Orignal master data object and Z master data object.
Use Infoset to create report.
I hope it will work.
Thanks,
S

Who holds Verizon employees and management accountable and where can I file a complaint.

I feel that writing this letter is a waste of time, but I feel the way customer service reps (not all) as well as their managers (again not all) need to held accountable for lies and disrespectful business practices they place on loyal customers. This is a long and confusing issue, but in as short as possible, I have been a loyal Verizon Wireless customer for several years. This past September 2014, I along with about 200 other loyal customers waited for several hours in anticipation of the IPhone 6 being released outside of a big box Verizon Store located at 7790 Montgomery Rd, Cincinnati, OH 45236, phone number (513) 984-9939. Because of my early arrival, I was number two in line and number two to enter the store once opened. At approximately 7:30 a.m., Verizon Store employees and an unknown woman claiming to be a manager came from the store with flyers in hand and explained the purchase process. She advised customers were able to buy a maximum of three phones, but could only buy one phone at retail price without contract. I informed the manager that I was not eligible for an upgrade at the time, as my wife and I still had about a year of service left on my current contract. At that time I was told “too bad, there are a lot of customers here for the same thing, and if you want the iPhones you will have to add two lines of service.” I had about $2000.00 in my hand willing to pay full price for phones and have them swapped out for my current devices and was told “too bad.” Well after waiting in line for the amount of time I had, I pretty much had no other choice, entered the store, and paid for two new lines of service in order to get two IPhone 6 plus devices with 128 gb of storage.
Immediate upon returning home, I contacted Verizon customer service (phone call one 9/19/14) and requested to terminate both lines, and move the IPhone 6 plus phones to my original lines. Upon explaining the situation to the customer service rep, he was confused as to why I was told I had to open two new lines, but complied. Later in the night, I had realized service was still not activated on the lines after switching the IPhone 6 plus to my original numbers and call customer service again (call two 9/19/14). After explaining the whole situation over again, I was again informed that the store was wrong and should not have made me add two new lines. This customer service rep informed me of the cancellation fees ($350.00 per line x 2), which I told her I was aware, and had planned to pay $950.00 per phone originally so had no problem paying the termination fee. The customer service rep again told me that all had been completed and the lines would be turned off.
On Saturday September 20, 2014, I signed on to my Verizon wireless.com account and saw that I still had two lines (previously told were shut off) still active on my account, with no phones associated with the numbers. Again, upon contacting customer service (call 3 9/20/2014) I had to explain the entire situation all over. At that time I was advised by the customer service rep, that because I was not returning the phones and just wished to pay the termination fees, that I would need to wait until after 14 days of service to call in and cancel the lines, and also have to request a refund on the activation fees (should be waived if canceled within 72 hours of activation) and any service charges associated with having two lines with no physical phones actually being attached to them. At this point I thanked the customer service rep and was informed that all notations to the account were visible in the account to anyone I spoke with.
Friday October 3, 2014, I again contacted Verizon customer service (call 4 10/3/2014) to cancel these lines. Upon explaining the situation again to the customer service rep, I was informed the store I got the phones from (A VERIZON WIRELESS OWNED STORE) had lied to me in that I needed to add lines. At this point, the female representative informed me the activation fees would be waived, along with any other fees, and the lines were cancelled.
Saturday October 4, 2014 I again logged onto my Verizon Wireless.com account and saw that the lines I was told had twice been removed, were still active and alive with no physical devices actually being associated with the lines of service. AGAIN, calling customer service (call 5 10/4/2014) I spoke with a gentleman and expressed my frustrations as to being misinformed several times thus far. At this point, the customer service rep, after keeping me on hold for about 45 minutes, returned to the phone and advised my that the lines were set for cancelation, but not until my next billing cycle, and that I would need to call in again once all service, activation, and whatever else charges were put on my account to have them removed. During the conversation, (without me asking for a single thing at any point during the conversation except just to have the lines turned off and refund the fees) The customer service rep informed me that he was sorry and his manager was sorry for inconvenience that VERIZON had caused me, as a small toke of VERIZON’s appreciation, VERIZON would waive any and all fees associated with the two lines I was forced to add, to include any and all early termination fees. Again, I never once asked for anything, but was offered by VERIZON employees and a VERIZON manager. I was also informed that when I did call back in, the next customer service rep would see all of these offers in my account notations and would comply.
Tuesday October 7, 2014, I was able to view my bill and had observed the added charges associated with account activation, and lines of service. At that point I again called Verizon customer service (Call 6, 10/7/2014) to have these charges removed. Upon calling and AGAIN explaining the two weeks of hell VERIZON had caused me, I was again apologized to, and informed that the last customer service rep had notated everything as I had explained and was informed and exactly quoted by the representative from VERIZON “We are nothing without our integrity at VERIZON, and VERIZON told you we would waive all of these fees (as notated in my account) VERIZON will stand by our word.” At that point, I was told I would need to be placed on hold as the charges and fees were large (about $263.00 in service fees and $700.00 in early termination fees) it would take a while for the customer service rep to work with his manager to have these charges removed (and in the case of the ETFs, not post to the account at my next billing cycle). After one hour of sitting on hold, I was again in contact with the customer service rep and told, he and his manager had put in for every single refund and credit, the VERIZON MANAGER had approved all, but one final approval was needed which may take a day or two. AGAIN all of this is notated in the account as to offers and promises made by VERIZON wireless employees and managers, and again I had NEVER asked for a single penny refunded, but was offered. I AGAIN was completely willing to pay for the phones and the ETFs without problem, but was again and again offered such refunds and credits by VERIZON employees.
Wednesday October 9, 2014, because of the continual misinformation I have been given by VERIZON employees, I contacted VERIZON customer service again (call 7, 10/9/2014) to check on the status of the credits and refunds. At that time, I was informed, that many of the credits had been approved, but both ETF fees were denied and would only be refunded if I returned the devices. As frustrated and confused as I was, I calmly explained every single thing that was offered to me again by VERIZON and was confused as to why a MANAGER for VERIZON would offer such things and then they would be denied. The female customer service rep informed me that she was unfamiliar with the situation, would message the male customer service rep and or manager I spoke with on October 7, 2014 and have them reach out to me to explain. I was also told I would hear from them within a “few hours.” This call was placed at about 9:00 a.m., and by 6:00 p.m. I had still not heard anything back from VERIZON. At that time I again called VERIZON customer service (call 8, 10/9/2014) and spoke with another customer service rep. Again for the 8th time explained the entire VERIZON lying situation, and was told that he (VERIZON representative) saw was I had been offered several times (refunds and credits) in the account notations and “too bad, VERIZON does not offer refunds or waivers of ETFs.” At this point in the conversation, without completely cursing out the representative, I asked to speak with his supervisor and was turned over to another supervisor to speak with. Upon speaking with the supervisor, I was informed (for the first time) that although VERIZON WIRELESS employees / MANAGERs had offered me refunds of ETFs, WHICH WAS DOCUMENTED NUMEROUS TIMES BY VERIZON in my account details, VERIZON simply could not waive these fees. I again informed the manager that I didn’t care about the fees and was willing to pay, but I was tired of being LIED TO. At that point in the conversation, I was again apologized to over and over again and as a token of apology from VERIZON, he a VERIZON MANAGER offered me a $70.00 bill credit in order to help with the ETFs. Again, I never once asked for anything, but was offered time and time again from VERIZON EMPLOYEES and MANAGERS. I thanked him for his offer and the call ended.
October 10, 2014 (AGAIN after repeatedly being lied to contacted VERIZON customer service to check on the status of my credits (call 9, 10/10/2014). At that time, I spoke with a female representative and again explained the entire dilemma caused by VERIZON. Again, I was apologized to countless times and was informed that a bill credit for $70.00 was pending as I was informed on the previous night by a VERIZON WIRELESS MANAGER, but she did not have access to see any further details. After again apologizing countless times, the customer service representative seemed to be frustrated that I had been treated so negatively and informed me she was going to address this with her manager. Upon her return to the line, and again without ever asking for one single thing, the VERIZON representative with her VERIZON MANAGER offered to meet “half way” with regards to the lowest ETF fees associated with my accounts and provide a $235.00 bill credit to help me and as a token of “sorry for VERIZON’s screw up and constant lies.” I was also told I would be contacted by her manager within four hours at approximately or before 2:00 p.m. 5:00 p.m. on that same date, after not hearing anything back I again called VERIZON customer service (call 10, 10/10/2014) spoke with another customer service rep and told her the entire story over again. I told the rep I wanted to speak with a manager right at that moment and was placed on the phone with a woman named Linda I believe. Linda informed me that the credit I was previously told I would be given earlier on that date was rejected and I would not be given it. Again without completely going nuts, I calmly explained my complete disgust with VERIZON and the constant lies I was being told. Again after countless apologies from another VERIZON MANAGER, she politely explained to me again the whole VERIZON cannot offer such refunds or credits associated with ETFs and was appalled that anyone in VERIZON would offer such things knowing they could not be given. While working with her, she informed me the best solution to saving money was to cancel my original phone accounts and keep the two new lines that were pending deactivation, which would result in a $250.00 reduced ETF as opposed to a $700.00. I agreed based on her advice without argument and was informed it may take a few hours for the new numbers to be placed back on the IPhones. Two hours later, my phones still not turned on, I contacted VERIZON again. I had also noted that every single bill credit previously applied to my account was back on the account. At this point being as furious as I was, I again called VERIZON WIRELESS (call 11, 10/10/2014) demanded to speak with a MANAGER and was placed on hold. After waiting for an hour on hold (no exaggeration) the customer service representative returned, apologized for everything including the wait time, and placed a male MANAGER on the phone. After explaining the entire three plus week VERIZON lying dilemma, which he was able to see in the account notes where every VERIZON employees acknowledged the misinformation of the previous employee I had spoke with, he again apologized and explained that I did not lose the bill credits, but because two lines had been canceled, the credits were instead applied to my unbilled ETFs, and they would appear on my next bill. He also informed the SIM cards in my devices would still require more time to activate and that they should be turned on by 7:00 a.m. the next day.
While doing research on the SIM issue, I found that VERIZON policy was immediate and SIMs would not require rebooting time to come out of I believe it is called “AG” or “aging” status. Again contacting VERIZON customer service (call 12, 10/10/2014) spoke with a female customer service agent, who actually looking back was the only one not to represent falsehoods or lies, informed me that because the SIM cards were previously associated with cancelled lines, I would need to go to a VERIZON wireless store and get two new SIM cards. At this point in the day it was about 10:00 p.m. and all VERIZON stores were closed for the day. With no choice in the matter, I agreed, and asked just out of curiosity, on the status of the$70.00 bill credit, I was promised on October 9, 2014. At that point the rep informed me that she was able to see that the VERIZON MANAGER had notated and put a credit request in while I was speaking with him, but then immediately cancelled his own request and closed the situation immediately following the completion of our call. I believe at this point in the entire situation I was so fed up this did not surprise me whatsoever so who could I complain to. The very nice customer service representative again apologized for the continued lies I was told and offered me (not a bill credit), but a data GB credit for 12 months (again without me asking for anything). In her own words “I do not want to promise you the world and then lie to you and get your hopes up thinking it will happen as has happened to you numerous times.”    I truly appreciated her honesty and her acknowledgement of the complete disgusting actions by previous VERIZON employees and MANAGERS.
The next day October 11, 2014 I drove with both IPhones to the Verizon big box store, explained the entire story to the employee, was apologized to for a 20 minutes, the manager came out and apologized as well, GREAT CUSTOMER SERVICE! The store is located at 2028 Florence Mall Rd, Space 1139, Florence, KY, (859) 746-3790 (Manager was great so was employee). Never once offered me anything to make up for mistakes VERIZON had made in the past, which I really didn’t care because I never asked nor expected anything, but were truly grateful for my service (I am military and a Federal Law Enforcement Officer) and truly apologized for the actions of the Verizon Sore in Cincinnati Ohio (Again the manager stated the manager at the Cincinnati store lied), and especially apologized for all the lies and mis-information given to me over a three plus week time period.
            Finally, October 15, 2014, I log in to my Verizon wireless account to view my features and reactivate VERIZON’s high definition calling features and see that since September 19, 2014 (original date I purchased the IPhones) I have been charged for Verizon Cloud storage. I HAVE NEVER AGREED TO THESE SERVICES, NEVER REQUESTED THESE SERVICES, NEVER EVEN NEW THEY WERE THERE!!!! Again had to call VERIZON for the fraud and lies they are perpetrating on a daily basis, COMPLAIN to another customer service rep (call 13 10/15/2014) in order to get the fraudulent charges removed from my bill.
Conclusion
            Here I sit writing this long complaint that no one in VERIZON will ever be held accountable for, no one will answer for the lies, mis-information, and disrespect employees and VERIZON MANAGERS perpetrate even though each lie was documented by VERIZON in account notations, and no one will be accountable for the lies the retail stores tell in order to increase their QUOTA to activate a certain amount of new lines per month. I am utterly disgusted with the treatment I have received, will be requesting these notations (if they have not been deleted from my account), have documented each conversation, and recorded many of the conversations, with an end result of pretty much nothing. VERIZON does not care about their customers and could probably care less about my terrible experience. While there are several other cellular options available, they are all crooks and liars just as the perfect documented examples of VERIZON employees and management lying in this case.
Christopher

    Giogetz,
Thank you for taking the time to share your experience. I am shocked by the many representatives that you had to speak to regarding your first request. This situation should have never gotten to be complicated and resulting in multiple calls from you. I apologize on behalf of those representatives for dropping the ball. I do agree that the representatives do need to be held accountable and I would like to submit feedback for those that you worked with. I have sent you a direct message. Please reply to the direct message so I can begin submitting feedback.
AndreaS_VZW
Follow us on Twitter @VZWSupport

Hi all, need data file and co file after single transport in 6.4 or 6.7

hi all
following is the requirement
To process/compile the attached programs (given below) in 6.4/7 Kernel (SAP 6.4 version or 6.7 version )and send a single transport (Data File and Co File).
these data file and co file are flat files.
CAN ANYONE HELP ME GETTING THESE FLAT FILES. I need these flat files urgently.
WHAT U HAVE TO DO IS:
IF U HAVE 6.4 OR 6.7 VERSION, JUST TRANSPORT FOLLOWING 10 PROGRAMS IN SINGLE TRANSPORT IN TESTING SYSTEM OR DEVELOPEMENT SYSTEM AND AFTER GETTING DATA FILE AND CO FILE U CAN REVERT THE TRANSPORT.
Programs files are as follows: (total number of prog is 10)
1.
FUNCTION Z_3N_CKS_EXIST_USER .
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" VALUE(CKSMDTID) TYPE USR02-MANDT DEFAULT SY-MANDT
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
*" EXCEPTIONS
*" USER_DONT_EXIST
*" USER_EXISTS
FUNCTION TO CHECK IF USER EXISTS
CLEAR RCODE.
CALL FUNCTION 'USER_EXISTS'
EXPORTING
BNAME = CKSUSRID
CLIENT = CKSMDTID
EXCEPTIONS
USER_DONT_EXIST = 1
USER_EXISTS = 0.
RCODE = SY-SUBRC.
ENDFUNCTION.
2.
FUNCTION Z_3N_CKS_LOCKSTATE.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
FUNCTION TO OBTAIN THE CURRENT LOCK STATUS FOR A USER
*{ PASSGOAPR06
*\DATA:LOCKSTATE(50) type c,
*\C_LOCKED_BY_ADMIN like usr02-uflag.
*\tables:usr02.
DATA:LOCKSTATE(50) type c.
*} PASSGOAPR06
CLEAR: RCODE, LOCKSTATE.
SELECT SINGLE * FROM USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC <> 0.
RCODE = 01. "No such User
EXIT.
ENDIF.
*{ PASSGOAPR06
IF USR02-UFLAG Z C_LOCKED_BY_ADMIN AND
USR02-UFLAG Z C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'UNLOCKED'.
RCODE = 00.
ELSE.
IF USR02-UFLAG O C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'LOCKED_BY_FAILED_LOGON'.
RCODE = 02.
ENDIF.
IF USR02-UFLAG O C_LOCKED_BY_ADMIN.
LOCKSTATE = 'LOCKED_BY_ADMIN'.
RCODE = 02.
ENDIF.
ENDIF.
uflag = usr02-uflag.
IF UFLAG Z C_LOCKED_BY_ADMIN AND
UFLAG Z C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'UNLOCKED'.
RCODE = 00.
ELSE.
IF UFLAG O C_LOCKED_BY_FAILED_LOGON.
LOCKSTATE = 'LOCKED_BY_FAILED_LOGON'.
RCODE = 02.
ENDIF.
IF UFLAG O C_LOCKED_BY_ADMIN.
LOCKSTATE = 'LOCKED_BY_ADMIN'.
RCODE = 02.
ENDIF.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
3.
FUNCTION Z_3N_CKS_PWDCHG_INITIAL.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
*" TABLES
*" RETURN STRUCTURE BAPIRET2
FUNCTION TO INITIALISE USERs PASSWORD, USER WILL BE FORCED
TO CHANGE PASSWORD ON NEXT LOGIN
CLEAR: USR02, RCODE.
SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC <> 0.
RCODE = 01.
else.
CALL FUNCTION 'BAPI_USER_CHANGE'
EXPORTING
USERNAME = CKSUSRID
PASSWORD = CKSUSRPWD
PASSWORDX = 'X'
TABLES
RETURN = RETURN.
loop at return.
if return-type eq 'E' or return-type eq 'A'.
rcode = 13.
endif.
endloop.
endif.
ENDFUNCTION.
4.
FUNCTION Z_3N_CKS_VERIFY_USER.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE RSYST-BNAME
*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE OPTIONAL
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
FUNCTION TO VALIDATE A USER
*{ PASSGOAPR06
TABLES:USR02.
CLEAR: USR02, RCODE.
SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC = 4.
RCODE = 01. "no such user
EXIT.
ELSEIF CKSUSRPWD = SPACE.
RCODE = 03. "invalid old password
EXIT.
ELSE.
CALL FUNCTION 'SUSR_LOGIN_CHECK_RFC'
EXPORTING
BNAME = CKSUSRID
PASSWORD = CKSUSRPWD
EXCEPTIONS
WAIT = 1
USER_LOCKED = 2
USER_NOT_ACTIVE = 3
PASSWORD_EXPIRED = 4
WRONG_PASSWORD = 5
NO_CHECK_FOR_THIS_USER = 6
INTERNAL_ERROR = 7
OTHERS = 8
CASE SY-SUBRC.
WHEN '2'. RCODE = 02. "user disabled/blocked
WHEN '3'. RCODE = 02. "user disabled/blocked
WHEN '4'. RCODE = 03. "invalid old password
WHEN '5'. RCODE = 03. "invalid old password
WHEN '8'. RCODE = 12. "internal error
ENDCASE.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
5.
*& Include ZMS01JTOP *
PROGRAM MS01JTOP MESSAGE-ID 01 LINE-SIZE 132. "Berechtigungsdatenpflege
13.08.93
INCLUDE MS01CTP2.
INCLUDE MS01CTCO.
TABLES: XU200, XU213, XU310, XU350, XU390, XU400.
TABLES: TSTC, TSP03, TPARA, TPARAT.
TABLES: *USR01, *USR03, USR15.
TABLES: SOUD, SOUD3.
*ABLES: ZCSA, ADRS.
*{ PASSGOAPR06
TABLES: usr02.
DATA: uflag type x.
DATA: begin of return occurs 0.
INCLUDE structure bapiret2.
DATA: end of return.
DATA calling_cksusrid like usr02-bname.
DATA: init_pass like BAPIPWD.
INCLUDE USER_CONSTANTS.
*} PASSGOAPR06
CONTROLS TC213 TYPE TABLEVIEW USING SCREEN 213.
CONTROLS TC520 TYPE TABLEVIEW USING SCREEN 350.
DATA: COPYOK TYPE I,
RENAMEOK TYPE I,
DATFM1,
DATFM2,
DATFM3,
DATFM4,
DCPFM1,
DCPFM2,
USERNAME LIKE USR01-BNAME,
LOCK,
UNLO,
STATFLAG TYPE I VALUE 0,
NAVIFLAG TYPE I VALUE 0,
PARTOPIX TYPE I,
PARFILL TYPE I,
PARAMETER LIKE USR05-PARVA,
PARID LIKE USR05-PARID,
PARLOOP LIKE SY-STEPL,
SHOW_ONLY VALUE ' ',
INTPRO_LOADED TYPE I VALUE 0,
EXT_SECURITY VALUE ' '.
DATA: H_201_USGRP LIKE USGRP-USERGROUP,
H_201_VALID TYPE C,
CC201 LIKE SY-CUCOL VALUE 2,
CR201 LIKE SY-CUROW VALUE 6,
SAVE_LINE201 LIKE SY-LILLI VALUE 1,
SAVE_LSIND201 LIKE SY-LSIND VALUE 1.
DATA: OFFICENAME LIKE SOUD-USRNAM.
DATA: BEGIN OF NAME_IN.
INCLUDE STRUCTURE SOUD3.
DATA: END OF NAME_IN.
DATA: BEGIN OF NAME_OUT.
INCLUDE STRUCTURE SOUD3.
DATA: END OF NAME_OUT.
DATA: BEGIN OF EMPTYPROF OCCURS 2.
INCLUDE STRUCTURE USREF.
DATA: END OF EMPTYPROF.
DATA: BEGIN OF PROFILES OCCURS 10.
INCLUDE STRUCTURE USREF.
DATA: END OF PROFILES.
DATA: MAXPAR TYPE I VALUE 300.
DATA: BEGIN OF TABPAR OCCURS 300,
PARID LIKE USR05-PARID,
PARVA LIKE USR05-PARVA,
END OF TABPAR.
DATA: BEGIN OF DELTAB OCCURS 50,
USGRP LIKE USR02-CLASS,
END OF DELTAB.
DATA: BEGIN OF ADDTAB OCCURS 50,
USGRP LIKE USR02-CLASS,
END OF ADDTAB.
DATA: BEGIN OF ADDRESS_DATA.
INCLUDE STRUCTURE SADRP_USR.
DATA: END OF ADDRESS_DATA.
DATA:
CLEAR TYPE X VALUE '00'.
*ATA: BEGIN OF ADRSDATEN.
INCLUDE STRUCTURE ADRS.
*ATA: END OF ADRSDATEN.
06.10.95 Tosun
DATA 930_FLAG.
"$$
6.
FUNCTION Z_3N_CKS_LOCK_USER.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
CLEAR RCODE.
*{ PASSGOAPR06
*\ PERFORM LOCK_USER IN PROGRAM ZSAPMS01J USING CKSUSRID.
*\ IF SY-SUBRC <> 0.
*\ RCODE = SY-SUBRC.
*\ EXIT.
*\ ELSE.
*\ COMMIT WORK.
*\ ENDIF.
the report (form) is dumping.
so we try it with the correct BAPI
CALL FUNCTION 'BAPI_USER_LOCK'
EXPORTING
USERNAME = CKSUSRID
TABLES
RETURN = return
IF return-type <> 'S'.
RCODE = '8'.
rollback work.
EXIT.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
7.
FUNCTION Z_3N_CKS_PWDCHG_DIRECT.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
*" TABLES
*" RETURN STRUCTURE BAPIRET2
FUNCTION TO CHANGE USERs PASSWORD
Password is initialised to a fixed value,
to avoid having to provide the valid old password
If the password change fails, the change is
rolled back - this is required because
BAPI_USER_CHANGE does an internal commit.
CLEAR: USR02, RCODE.
DATA: L_TIME LIKE SY-UZEIT,
ZLIN TYPE I.
*{ PASSGOAPR06
calling_cksusrid = cksusrid. "Save calling userid
init_pass = 'INITPASS'.
*} PASSGOAPR06
do 1 times.
SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.
IF SY-SUBRC <> 0.
RCODE = 1.
else.
* Change login to initpass.
CALL FUNCTION 'BAPI_USER_CHANGE'
EXPORTING
USERNAME = CKSUSRID
*{ PASSGOAPR06
*\ PASSWORD = 'INITPASS'
PASSWORD = init_pass
*} PASSGOAPR06
PASSWORDX = 'X'
TABLES
RETURN = RETURN.
* Evaluate return table, if not success, rcode = 13
describe table return lines zlin.
IF zlin > 0.
IF return-type ne 'S'.
rcode = 13.
exit.
ENDIF.
ENDIF.
* Wait 1 second, otherwise table ush02 gets the same key as before.
* Not very good, but its the only way, because the wait up to
* statement includes a db-commit.
L_TIME = sy-uzeit.
WHILE L_TIME = sy-uzeit.
GET TIME.
ENDWHILE.
* Change 'INITPASS' to input login
CALL FUNCTION 'SUSR_USER_CHANGE_PASSWORD_RFC'
EXPORTING
BNAME = CKSUSRID
PASSWORD = 'INITPASS'
NEW_PASSWORD = CKSUSRPWD
NEW_BCODE = '0000000000000000'
NEW_CODVN = ' '
EXCEPTIONS
CHANGE_NOT_ALLOWED = 1
PASSWORD_NOT_ALLOWED = 2
INTERNAL_ERROR = 3
CANCELED_BY_USER = 4
OTHERS = 5.
case sy-subrc.
when '0'. rcode = 0.
when '1'. rcode = 2.
when '2'. rcode = 4.
when '3'. rcode = 12.
when '4'. rcode = 2.
when '5'. rcode = 12.
ENDCASE.
ENDIF.
exit. "end of do 1 times "
enddo.
* rollback if it didn't work
if not rcode is initial.
rollback work.
endif.
ENDFUNCTION.
8.
FUNCTION Z_3N_CKS_UNLOCK_USER.
""Local interface:
*" IMPORTING
*" VALUE(CKSUSRID) TYPE USR02-BNAME
*" EXPORTING
*" VALUE(RCODE) TYPE SY-SUBRC
CLEAR RCODE.
*{ PASSGOAPR06
*\ PERFORM UNLOCK_USER IN PROGRAM ZSAPMS01J USING CKSUSRID.
*\ IF SY-SUBRC <> 0.
*\ RCODE = SY-SUBRC.
*\ EXIT.
*\ ELSE.
*\ COMMIT WORK.
*\ ENDIF.
the report (form) is dumping.
so we try it with the correct BAPI
CALL FUNCTION 'BAPI_USER_UNLOCK'
EXPORTING
USERNAME = CKSUSRID
TABLES
RETURN = return
IF return-type <> 'S'.
RCODE = '8'.
rollback work.
EXIT.
ENDIF.
*} PASSGOAPR06
ENDFUNCTION.
9.
*& Include ZMS01JO10 *
MS01JO10 Module before Output
14.05.93
MODULE D150_SELECT *
Einen Eintrag aus der Liste uebernehmen. *
MODULE D150_SELECT OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
IF USRFLAG = 10 AND SY-LILLI = 3.
MESSAGE S209.
ELSE.
IF USRFLAG = 10.
XU150-VON = SY-LISEL.
ELSE.
COUNTX = PUSR - 1.
ASSIGN SY-LISEL+COUNTX(12) TO <TEXT>. " unicode
WRITE <TEXT> TO XU150-VON.
ENDIF.
ENDIF.
ENDIF.
SELE = 0.
ENDIF.
IF FERTIG = 2.
FCODE = 'BACK'.
SUPPRESS DIALOG.
ENDIF.
ENDMODULE.
MODULE D150_SETSTATUS *
PF-Status setzen *
MODULE D150_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 150.
XU150-SELPROF = XU150-SELFEST = XU150-SELADRE = XU150-SELPARA = 'X'.
XU150-SELMENU = 'X'.
ENDMODULE.
MODULE D155_SETSTATUS *
PF-Status setzen *
MODULE D155_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 155.
ENDMODULE.
MODULE D200_SELECT *
Einen Eintrag aus der Liste ins Dynpro uebernehmen *
MODULE D200_SELECT OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
XU200-XUSER = SY-LISEL.
ENDIF.
SELE = 0.
ENDIF.
IF FCODE2 = 'USER' OR FCODE2 = 'FEST' OR FCODE2 = 'ADRE' OR
FCODE2 = 'PARA' OR FCODE2 = 'ADMI' OR FCODE2 = 'RESE' OR
FCODE2 = 'N '.
SUPPRESS DIALOG.
ENDIF.
PERFORM SET_STATUS USING 200.
ENDMODULE.
MODULE D213_VALOUT *
Festwerte auf das Dynpro schreiben. *
MODULE D213_VALOUT OUTPUT.
DEL = 0.
XU213-DIA = '.'.
XU213-ODC = '.'.
XU213-BDC = '.'.
XU213-CPIC = '.'.
XU213-BATCH = '.'.
CASE USR02-USTYP.
WHEN TYPDIA.
XU213-DIA = 'X'.
WHEN TYPBATCH.
XU213-BATCH = 'X'.
WHEN TYPCPIC.
XU213-CPIC = 'X'.
WHEN TYPBDC.
XU213-BDC = 'X'.
WHEN TYPODC.
XU213-ODC = 'X'.
ENDCASE.
IF USR02-LTIME <> SPACE AND USR02-LTIME <> '000000'.
LOOP AT SCREEN.
CASE SCREEN-GROUP1.
WHEN 'MOD'.
SCREEN-INVISIBLE = '1'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
SET CURSOR FIELD 'USR02-CLASS'.
IF F <> ' ' AND L <> 0.
SET CURSOR FIELD F LINE L.
ENDIF.
CODEFLAG = 1.
ELSE.
CLEAR XU213-BCODE.
CLEAR XU213-BCODE2.
IF USR02-BCODE <> '0000000000000000' AND BCODE_C = SPACE.
CODEFLAG = 0.
ENDIF.
IF CODEFLAG = -2.
SET CURSOR FIELD 'XU213-BCODE'.
MESSAGE S290.
ELSE.
SET CURSOR FIELD 'USR02-CLASS'.
IF F <> ' ' AND L <> 0.
SET CURSOR FIELD F LINE L.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE D213_SELECT *
Einen Eintrag aus der Liste uebernehmen. *
MODULE D213_SELECT OUTPUT.
IF SELE = 1.
IF SY-LILLI < 4.
MESSAGE S209.
ELSE.
ASSIGN SY-LISEL(PROFLNG) TO <TEXT>.
MOVE <TEXT> TO XU213-PROFILE.
PERFORM AUTH_CHECK USING OBJ_PROF
XU213-PROFILE SPACE ACT_INCLUDE RC.
IF RC <> 0.
MESSAGE S478 WITH XU213-PROFILE.
ELSE.
FOUND = 0.
LOOP AT TABUSR.
IF TABUSR-PROFILE = XU213-PROFILE.
FOUND = 1.
MESSAGE S268 WITH XU213-PROFILE.
EXIT.
ENDIF.
ENDLOOP.
IF FOUND = 0.
PERFORM EXIST_USR10
USING XU213-PROFILE AKTIVATED SPACE RC.
CLEAR TABUSR.
TABUSR-PROFILE = XU213-PROFILE.
IF USR10-TYP = COLECTPROF.
TABUSR-SAMPROF = 'X'.
ENDIF.
Profiletext lesen
CLEAR USR11.
SELECT SINGLE * FROM USR11
WHERE LANGU = SY-LANGU
AND PROFN = TABUSR-PROFILE
AND AKTPS = AKTIVATED.
TABUSR-PTEXT = USR11-PTEXT.
APPEND TABUSR.
XU213-FILL = XU213-FILL + 1.
IF XU213-FILL >= MAXUSR.
MESSAGE S269.
ENDIF.
UCHANGE = 1.
PERFORM NOTSAVED.
ENDIF.
ENDIF.
ENDIF.
SELE = 0.
ENDIF.
PERFORM SET_STATUS USING 213.
PERFORM MESSAGE.
IF EXT_SECURITY <> '1'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'EXT'.
SCREEN-INPUT = '0'.
SCREEN-INVISIBLE = '1'.
SCREEN-ACTIVE = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE D213_PROFOUT *
Profiles auf den Bildschirm ausgeben. *
MODULE D213_PROFOUT OUTPUT.
include <symbol>.
COUNTX = XU213-TOPIX + SY-STEPL - 1. "Bild-oben-Pos. in Tab. feststell
IF COUNTX <= XU213-FILL. "Am Ende der Tabelle ?
READ TABLE TABUSR INDEX COUNTX. "Tab. lesen
IF SY-SUBRC = 0.
MOVE-CORRESPONDING TABUSR TO XU213. "Daten auf den Bildschirm
xu213-samprof = sym_documents.
ENDIF.
ENDIF.
USRLOOP = SY-LOOPC.
ENDMODULE.
MODULE D254_SUPPRESS *
Dialog fuer Dynpro 254 unterdruecken *
MODULE D254_SUPPRESS OUTPUT.
SUPPRESS DIALOG.
ENDMODULE.
MODULE D310_SETSTATUS *
PF-Status setzen *
MODULE D310_SETSTATUS OUTPUT.
IF SHOW_ONLY = SPACE.
PERFORM SET_STATUS USING 310.
IF STATFLAG = 1.
LOOP AT SCREEN.
IF SCREEN-NAME = 'USR01-CATTKENNZ '.
AUTHORITY-CHECK OBJECT 'S_DEVELOP'
ID 'DEVCLASS' DUMMY
ID 'OBJTYPE' FIELD 'SCAT'
ID 'OBJNAME' DUMMY
ID 'P_GROUP' DUMMY
ID 'ACTVT' FIELD '70'.
IF SY-SUBRC <> 0.
SCREEN-INPUT = 0.
SCREEN-INVISIBLE = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
PERFORM SET_STATUS USING 330.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RO '.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR FCODE.
ENDMODULE.
MODULE D310_FORMAT_OUT. *
Datumsformat und Dezimalpunktformat entsprechend Daten aus usr01 *
ankreuzen. *
MODULE D310_FORMAT_OUT OUTPUT.
XU310-DATFM1 = ' '.
XU310-DATFM2 = ' '.
XU310-DATFM3 = ' '.
XU310-DATFM4 = ' '.
XU310-DATFM5 = ' '.
XU310-DCPFM1 = ' '.
XU310-DCPFM2 = ' '.
XU310-SPDB1 = ' '.
XU310-SPDA1 = ' '.
IF USR01-DATFM < 1 OR USR01-DATFM > 5.
CALL 'C_SAPGPARAM'
ID 'NAME' FIELD 'zcsa/moddatfm'
ID 'VALUE' FIELD USR01-DATFM.
ENDIF.
CASE USR01-DATFM.
WHEN 1.
XU310-DATFM1 = 'X'.
WHEN 2.
XU310-DATFM2 = 'X'.
WHEN 3.
XU310-DATFM3 = 'X'.
WHEN 4.
XU310-DATFM4 = 'X'.
WHEN 5.
XU310-DATFM5 = 'X'.
WHEN OTHERS.
XU310-DATFM1 = 'X'.
ENDCASE.
IF USR01-DCPFM = ' '.
XU310-DCPFM1 = 'X'.
ELSE.
XU310-DCPFM2 = 'X'.
ENDIF.
IF USR01-SPDB = 'G'.
XU310-SPDB1 = 'X'.
ENDIF.
IF USR01-SPDA = 'D'.
XU310-SPDA1 = 'X'.
ENDIF.
CLEAR TSP03.
SELECT SINGLE * FROM TSP03
WHERE PADEST = USR01-SPLD.
ENDMODULE.
MODULE D320_SETSTATUS *
PF-Status setzen *
MODULE D320_SETSTATUS OUTPUT.
IF SHOW_ONLY = SPACE.
PERFORM SET_STATUS USING 320.
ELSE.
PERFORM SET_STATUS USING 340.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RO '.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR FCODE.
ENDMODULE.
MODULE D330_SETSTATUS *
PF-Status setzen *
MODULE D330_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 330.
ENDMODULE.
MODULE D340_SETSTATUS *
PF-Status setzen *
MODULE D340_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 340.
ENDMODULE.
MODULE D350_SETSTATUS *
PF-Status setzen *
MODULE D350_SETSTATUS OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
TABPAR-PARID = SY-LISEL.
APPEND TABPAR.
PARFILL = PARFILL + 1.
ENDIF.
SELE = 0.
ENDIF.
IF SHOW_ONLY = SPACE.
PERFORM SET_STATUS USING 350.
ELSE.
PERFORM SET_STATUS USING 360.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RO '.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR FCODE.
ENDMODULE.
MODULE D350_PAROUT *
Parameter auf den Bildschirm ausgeben. *
MODULE D350_PAROUT OUTPUT.
COUNTX = PARTOPIX + SY-STEPL - 1. "Bild-oben-Pos. in Tab. feststell
IF COUNTX <= PARFILL. "Am Ende der Tabelle ?
READ TABLE TABPAR INDEX COUNTX. "Tab. lesen
IF SY-SUBRC = 0.
MOVE-CORRESPONDING TABPAR TO XU350. "Daten auf den Bildschirm
SELECT SINGLE * FROM TPARAT
WHERE SPRACHE = SY-LANGU
AND PARAMID = TABPAR-PARID.
ENDIF.
ENDIF.
PARLOOP = SY-LOOPC.
ENDMODULE.
MODULE D351_SETSTATUS *
PF-Status setzen *
*ODULE D351_SETSTATUS OUTPUT.
IF SELE = 1.
IF SY-LILLI < 3.
MESSAGE S209.
ELSE.
XU350-PARID = SY-LISEL.
ENDIF.
SELE = 0.
ENDIF.
PERFORM SET_STATUS USING 352.
SUPPRESS DIALOG.
*NDMODULE.
MODULE D360_SETSTATUS *
PF-Status setzen *
MODULE D360_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 360.
ENDMODULE.
MODULE D390_STATUS *
PF-Status setzen. *
MODULE D390_STATUS OUTPUT.
data uflag_x type x. " unicode
SELECT SINGLE * FROM USR02
WHERE BNAME = XU200-XUSER.
uflag_x = USR02-UFLAG. " unicode
IF SY-SUBRC <> 0.
XU390-STATTEXT = ' Nicht vorhanden.'(222).
ELSE.
IF uflag_x Z YULOCK AND uflag_x Z YUSLOC. " unicode
PERFORM SET_STATUS USING 390.
XU390-STATTEXT = ' Nicht gesperrt. '(223).
ELSE.
IF uflag_x O YULOCK. " unicode
PERFORM SET_STATUS USING 391.
XU390-STATTEXT = ' Durch Falschanmeldungen gesperrt !!!'(224).
ENDIF.
IF uflag_x O YUSLOC. " unicode
PERFORM SET_STATUS USING 391.
XU390-STATTEXT = ' Durch Systemmanager gesperrt !!!'(225).
ENDIF.
ENDIF.
ENDIF.
LOCK = '.'.
UNLO = '.'.
ENDMODULE.
MODULE D400_CLEAR_CODE *
Passwortfeld loeschen. *
MODULE D400_CLEAR_CODE OUTPUT.
CLEAR XU400-NEWCODE.
CLEAR XU400-NEWCODE1.
ENDMODULE.
MODULE D400_SETSTATUS *
PF-Status setzen *
MODULE D400_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 400.
ENDMODULE.
MODULE D500_SUPPRESS *
Dynpro unterdruecken *
MODULE D500_SUPPRESS OUTPUT.
SET PF-STATUS '0200'.
SUPPRESS DIALOG.
ENDMODULE.
*& Module D214_SETSTATUS OUTPUT
MODULE D214_SETSTATUS OUTPUT.
SET PF-STATUS '0214'.
SET TITLEBAR '214'.
ENDMODULE. " D214_SETSTATUS OUTPUT
*& Module D216_PROFOUT OUTPUT
MODULE D216_PROFOUT OUTPUT.
COUNTX = XU213-TOPIX2 + SY-STEPL - 1. "Bild-oben-Pos. in Tab. festst
IF COUNTX <= XU213-FILL2. "Am Ende der Tabelle ?
READ TABLE INTPRO2 INDEX COUNTX. "Tab. lesen
IF SY-SUBRC = 0.
MOVE-CORRESPONDING INTPRO2 TO XU213. "Daten auf den Bildschirm
ENDIF.
ENDIF.
ENDMODULE. " D216_PROFOUT OUTPUT
*& Module D504_STATUS OUTPUT
MODULE D504_STATUS OUTPUT.
SET PF-STATUS '0504'.
SET TITLEBAR '604'.
ENDMODULE. " D504_STATUS OUTPUT
*& Module D217_SETSTATUS
MODULE D217_SETSTATUS OUTPUT.
PERFORM SET_STATUS USING 217.
PERFORM MESSAGE.
IF FERTIG = -1.
SUPPRESS DIALOG.
ENDIF.
ENDMODULE. " D217_SELECT OUTPUT
*& Module D202_SETSTATUS OUTPUT
text *
MODULE D202_SETSTATUS OUTPUT.
SET PF-STATUS '0203'.
SET TITLEBAR '203'.
ENDMODULE. " D202_SETSTATUS OUTPUT
*& Module D200_LESEN_MEMORY OUTPUT
Schnittstelle mit RSUSR008
call transaction su01 and skip first screen
MODULE D200_LESEN_MEMORY OUTPUT.
IMPORT FCODE FROM MEMORY ID 'OK_CODE'.
EXPORT FCODE FROM SPACE TO MEMORY ID 'OK_CODE'.
ENDMODULE. " D200_LESEN_MEMORY OUTPUT
"$$
10.
*& Report ZSAPMS01J *
23.10.92
set extended check off.
INCLUDE ZMS01JTOP.
*INCLUDE MS01JTOP. "Datendeklarationen
INCLUDE ZMS01JO10.
*INCLUDE MS01JO10. "PBO-Module
*INCLUDE ZMS01JI10.
INCLUDE MS01JI10. "PAI-Module
*INCLUDE ZMS01JF10.
INCLUDE MS01JF10. "Forms
*INCLUDE ZMS01JR10.
INCLUDE MS01JR10. "Reporting
*INCLUDE ZMS01CC10.
INCLUDE MS01CC10. "Checks
*INCLUDE ZMS01CD10.
INCLUDE MS01CD10. "Datenzugriffe
set extended check on.
see there are in total 10 prog that should go in one trasport order. this will creat data file and co file. these are flat files. i want these flat files.
do it in developement server or testing server and then delete it or revert it once you get data file or co file.
i will greatful to u if you could send me these flat files.
thanx in advance
raj

hi all,
this can be done in 4.6 version also.
thanx for spending time on this.
thanx&regards
raj

Urgent....HR benefit data...employee and dependent

Similar Messages

Maybe you are looking for